add wallabag annotationn to message of the day
This commit is contained in:
		
							parent
							
								
									d20eea8691
								
							
						
					
					
						commit
						02447b8b12
					
				|  | @ -154,8 +154,6 @@ | |||
|                  archived-entries) | ||||
|         (map-useful-annotation-keys)))) | ||||
| 
 | ||||
| (get-archived-annotated-entries) | ||||
| 
 | ||||
| (comment | ||||
|   (-> (make-request (build-link) (get @token :access_token)) | ||||
|       (make-resp-to-entries)) | ||||
|  |  | |||
|  | @ -1,5 +1,7 @@ | |||
| (ns dhyan.main | ||||
|   (:require [dhyan.connections.shaarli :as shaarli] | ||||
|             [dhyan.connections.wallabag :as wallabag] | ||||
|             [clojure.string :as string] | ||||
|             [dhyan.connections.matrix :as matrix])) | ||||
| 
 | ||||
| (defn -main | ||||
|  | @ -11,7 +13,16 @@ | |||
|         album-of-the-day (->> filtered-shaarli-data | ||||
|                               (mapv #(select-keys % [:url :title])) | ||||
|                               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")) | ||||
|       ; remove anything in () [] {} | ||||
|       ;filtered-file-data (filterv #(string/replace % #"(.*)" "") file-data) | ||||
|  |  | |||
		Loading…
	
		Reference in a new issue