wallabag now has functions to filter down to annotated & archived
entries, and filters annotations to only have the quote in the map
This commit is contained in:
		
							parent
							
								
									3a18591f02
								
							
						
					
					
						commit
						32a7a6750f
					
				|  | @ -24,7 +24,6 @@ | |||
| 
 | ||||
| ; Setup Token as an atom for use later on | ||||
| (def token (atom 1)) | ||||
| 
 | ||||
| (reset! token (generate-token)) | ||||
| 
 | ||||
| (defn make-request | ||||
|  | @ -53,6 +52,15 @@ | |||
|   (let [useful-keys [:tags :title :url :annotations :id]] | ||||
|     (mapv #(select-keys % useful-keys) entries))) | ||||
| 
 | ||||
| (defn select-useful-annotation-keys | ||||
|   [entry] | ||||
|   (let [only-useful-annotations (mapv #(select-keys % [:quote]) (get entry :annotations))] | ||||
|     (assoc entry :annotations only-useful-annotations))) | ||||
| 
 | ||||
| (defn map-useful-annotation-keys | ||||
|   [entries] | ||||
|   (mapv select-useful-annotation-keys entries)) | ||||
| 
 | ||||
| (defn make-wallabag-link | ||||
|   "Given a single entry turn the :id key into a hardcoded mossnet wallabag clickable link" | ||||
|   [entry] | ||||
|  | @ -116,17 +124,27 @@ | |||
|          acc-new | ||||
|          (get-all-entries last-link acc)))))) | ||||
| 
 | ||||
| (defn get-all-archived-entries | ||||
| (defn get-archived-entries | ||||
|   "Returns a filtered list of all archived entries" | ||||
|   [] | ||||
|   (get-all-entries {:per-page 20 :archive 1 :detail "metadata"})) | ||||
| 
 | ||||
| (get-all-archived-entries) | ||||
| (defn get-archived-annotated-entries | ||||
|   "Return archived entries that have an annotation" | ||||
|   [] | ||||
|   (let [archived-entries (get-archived-entries)] | ||||
|     (-> (filterv (fn [entry] | ||||
|                    (let [annotations (get entry :annotations)] | ||||
|                      (> (count annotations) 0))) | ||||
|                  archived-entries) | ||||
|         (map-useful-annotation-keys)))) | ||||
| 
 | ||||
| (get-archived-annotated-entries) | ||||
| 
 | ||||
| (comment | ||||
|   (-> (make-request (build-link) (get @token :access_token)) | ||||
|       (make-resp-to-entries)) | ||||
|   (count (get-all-archived-entries)) | ||||
|   (count (get-archived-entries)) | ||||
|   (def next-link (atom "")) | ||||
|   ; Repeatedly get next link until it's not there anymore | ||||
|   (let [link (build-link 1 20 1 "metadata") | ||||
|  |  | |||
		Loading…
	
		Reference in a new issue