#grumpy

grumpy.clj

(defn posts-after [post-id]
  (slurp (str "https://grumpy.website/after/" post-id)))

(defn get-post-ids [posts]
  (->> posts
       (re-seq #"data\-id=\"(.+?)\"")
       (map second)))

(defn post-ids [start-id]
  (loop [post-ids [start-id]
         posts    (posts-after start-id)]
    (if-let [ids (seq (get-post-ids posts))]
      (do (future (prn ids))
          (recur (into post-ids ids)
                 (posts-after (last ids))))
      post-ids)))