diff --git a/flake.nix b/flake.nix index f3b2a1b..4482696 100644 --- a/flake.nix +++ b/flake.nix @@ -29,6 +29,7 @@ options.enable = lib.mkEnableOption "Dhyan daily runner"; in { + # TODO This won't work either because secrets aren't passed options.services.mossnet.dhyan = options; config = lib.mkIf serviceConfig.enable { systemd.services."dhyan" = { diff --git a/src/dhyan/connections/shaarli.clj b/src/dhyan/connections/shaarli.clj index 0528349..7b54752 100644 --- a/src/dhyan/connections/shaarli.clj +++ b/src/dhyan/connections/shaarli.clj @@ -40,32 +40,22 @@ (def token (generate-token (System/getenv "SHAARLI_TOKEN"))) -(defn shaarli-request [offset] - (-> (curl/get (str "http://links.mossnet.lan/api/v1/links?searchtags=music&limit=" offset) {:headers {"Authorization" (str "Bearer " token)}}) +(defn shaarli-request [limit offset] + (-> (curl/get (str "http://links.mossnet.lan/api/v1/links?searchtags=music&limit=" limit "&offset=" offset) {:headers {"Authorization" (str "Bearer " token)}}) (:body) (json/parse-string true))) (defn get-all-shaarli-data - ([] (get-all-shaarli-data {} 0)) - ([data offset] - (let [new-data (shaarli-request offset) - total-data (concat data new-data) - old-last (last data) - new-last (last new-data)] - (if (= old-last new-last) - total-data - (get-all-shaarli-data total-data (+ offset 100)))))) + [] + (shaarli-request "all" 0)) (comment - (shaarli-request 0) + (shaarli-request 100 0) (count (get-all-shaarli-data)) (url-filterer {:url "bandcamp"} "bandcamp") (filter (fn [x] (.contains (get x :url) "bandcamp")) [{:url "bandcamp"}]) (println "somestring") (.getBytes (str {"iat" (sh "date" "-u" "+%s")})) - (def signature (-> (Mac/getInstance "HmacSHA256") - (.init (SecretKeySpec. (.getBytes "test secret") "HmacSHA256")) - (.doFinal (.getBytes (str "header.payload") "UTF-8")))) (def sig (let [algo "HmacSHA256" mac (Mac/getInstance algo)]