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