travisshears/snippets
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

change list tags to only list tags

Browse source
This commit is contained in:
Travis Shears 2025-06-16 13:04:36 +02:00
parent bbeb1b6ba0
commit e11719b40f
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/snippets/infra/db.clj
View file

@ -41,4 +41,5 @@
(xt/execute-tx client [[:patch-docs :snippets (merge {:xt/id id} patch)]]))
(defn list-tags []
(xt/q client '(-> (from :snippets [{:xt/id id} tags]) (unnest {:tag tags}) (without :tags) (aggregate tag {:ids (array-agg id)}))))
;; (xt/q client '(-> (from :snippets [{:xt/id id} tags]) (unnest {:tag tags}) (without :tags) (aggregate tag {:ids (array-agg id)}))))
(xt/q client '(-> (from :snippets [{:xt/id id} tags]) (unnest {:tag tags}) (without :tags) (aggregate tag {:count (count id)}))))

2
src/snippets/use_cases/view.clj
View file

@ -12,4 +12,4 @@
(defn view-tags []
(t/log! {:level :info} "Viewing tags")
(map #(assoc % :count (count (:ids %))) (db/list-tags)))
(db/list-tags))