aynish/dhyan
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

wallabag annotations are now a flat vector

Browse source
This commit is contained in:
Anish Lakhwara 2022-09-03 13:15:37 +10:00
parent 32a7a6750f
commit 40eec17e1a
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/dhyan/connections/wallabag.clj
View file

@ -52,10 +52,17 @@
(let [useful-keys [:tags :title :url :annotations :id]] (let [useful-keys [:tags :title :url :annotations :id]]
(mapv #(select-keys % useful-keys) entries))) (mapv #(select-keys % useful-keys) entries)))
(defn flatten-annotation
[annotations]
(-> (mapv #(flatten (seq %)) annotations)
(flatten)
(->> (filter #(not (keyword? %))))))
(defn select-useful-annotation-keys (defn select-useful-annotation-keys
[entry] [entry]
(let [only-useful-annotations (mapv #(select-keys % [:quote]) (get entry :annotations))] (let [only-useful-annotations (mapv #(select-keys % [:quote]) (get entry :annotations))
(assoc entry :annotations only-useful-annotations))) flattened-annotations (flatten-annotation only-useful-annotations)]
(assoc entry :annotations flattened-annotations)))
(defn map-useful-annotation-keys (defn map-useful-annotation-keys
[entries] [entries]