make it a bit prettier
This commit is contained in:
parent
02447b8b12
commit
e9b785dcb2
|
@ -14,15 +14,15 @@
|
|||
(mapv #(select-keys % [:url :title]))
|
||||
rand-nth)
|
||||
shaarli-message (str "Album of the day is: " (get album-of-the-day :title)
|
||||
" available at: " (get album-of-the-day :url))
|
||||
"\n 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-annotation-of-the-day (rand-nth (get wallabag-entry-of-the-day :annotations))
|
||||
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])
|
||||
"\n from the article: " (get wallabag-entry-of-the-day :title)
|
||||
"\n available at: " (get wallabag-entry-of-the-day :url)
|
||||
"\n tagged as: " (string/join ", " (get wallabag-entry-of-the-day :tags)))
|
||||
message (string/join "\n\n" [shaarli-message wallabag-message])
|
||||
;file-data (sh "ls" (System/getenv "folder"))
|
||||
; remove anything in () [] {}
|
||||
;filtered-file-data (filterv #(string/replace % #"(.*)" "") file-data)
|
||||
|
|
Loading…
Reference in a new issue