lookup-following-by-last-post.clj

(require '[paprika.core :as adn])

;; This returns a sequence your of vectors, one for each of the people you follow.
;; Each vector contains the user's username and the date of their last post.
;; The sequence is in ascending order by the date of their last post

;; Careful, though. The lookup is N+1.

(sort-by first
  (map (juxt :created-at #(get-in % [:user :username]))
    (apply concat
      (map #(adn/lookup-user-posts % {:count 1 :access-token t}))
        (adn/lookup-following-ids "me" {:access-token t}))))

(->> (:data (p/lookup-following-ids "me" {:token t})) (map #(:data (p/lookup-user-posts % {:count 1 :token t}))) (apply concat) (map (juxt :created-at #(get-in % [:user :username]))) (sort-by first))