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

add wallabag annotationn to message of the day

Browse source
This commit is contained in:
Anish Lakhwara 2022-09-03 13:30:49 +10:00
parent d20eea8691
commit 02447b8b12
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -154,8 +154,6 @@
archived-entries) archived-entries)
(map-useful-annotation-keys)))) (map-useful-annotation-keys))))
(get-archived-annotated-entries)
(comment (comment
(-> (make-request (build-link) (get @token :access_token)) (-> (make-request (build-link) (get @token :access_token))
(make-resp-to-entries)) (make-resp-to-entries))

13
src/dhyan/main.clj
View file

@ -1,5 +1,7 @@
(ns dhyan.main (ns dhyan.main
(:require [dhyan.connections.shaarli :as shaarli] (:require [dhyan.connections.shaarli :as shaarli]
[dhyan.connections.wallabag :as wallabag]
[clojure.string :as string]
[dhyan.connections.matrix :as matrix])) [dhyan.connections.matrix :as matrix]))
(defn -main (defn -main
@ -11,7 +13,16 @@
album-of-the-day (->> filtered-shaarli-data album-of-the-day (->> filtered-shaarli-data
(mapv #(select-keys % [:url :title])) (mapv #(select-keys % [:url :title]))
rand-nth) rand-nth)
message (str "Album of the day is: " (get album-of-the-day :title) " available at: " (get album-of-the-day :url)) shaarli-message (str "Album of the day is: " (get album-of-the-day :title)
" available at: " (get album-of-the-day :url))
wallabag-data (wallabag/get-archived-annotated-entries)
wallabag-entry-of-the-day (rand-nth wallabag-data)
wallabag-annotation-of-the-day (rand-nth wallabag-entry-of-the-day)
wallabag-message (str "Annotation of the day: " wallabag-annotation-of-the-day
" from the article: " (get wallabag-entry-of-the-day :title)
" available at: " (get wallabag-entry-of-the-day :url)
" tagged as: " (string/join ", " (get wallabag-entry-of-the-day :tags)))
message (string/join "\n" [shaarli-message wallabag-message])
;file-data (sh "ls" (System/getenv "folder")) ;file-data (sh "ls" (System/getenv "folder"))
; remove anything in () [] {} ; remove anything in () [] {}
;filtered-file-data (filterv #(string/replace % #"(.*)" "") file-data) ;filtered-file-data (filterv #(string/replace % #"(.*)" "") file-data)