diff --git a/src/dhyan/main.clj b/src/dhyan/main.clj index 7813ba8..53ee9bd 100644 --- a/src/dhyan/main.clj +++ b/src/dhyan/main.clj @@ -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)