|
|
@ -22,18 +22,21 @@
|
|
|
|
|
|
|
|
|
|
|
|
(defn comments-list [post]
|
|
|
|
(defn comments-list [post]
|
|
|
|
(-> (make-api-url INSTANCE COMMENTS)
|
|
|
|
(-> (make-api-url INSTANCE COMMENTS)
|
|
|
|
(api-call {:post_id (str (get-in post ["post" "id"]))})
|
|
|
|
(api-call {:limit "50" :post_id (str (get-in post ["post" "id"]))})
|
|
|
|
(get "comments")))
|
|
|
|
(get "comments")))
|
|
|
|
|
|
|
|
|
|
|
|
(defn show-post-item [post]
|
|
|
|
(defn show-post-item [post]
|
|
|
|
(println (get-in post ["creator" "name"]) "on" (get-in post ["community" "name"]))
|
|
|
|
(let [items [["creator" "name"]
|
|
|
|
(println (get-in post ["post" "name"]))
|
|
|
|
["community" "name"]
|
|
|
|
(println "at" (get-in post ["post" "published"]) "(" (get-in post ["counts" "comments"]) "comments)")
|
|
|
|
["post" "name"]
|
|
|
|
(println)
|
|
|
|
["post" "published"]
|
|
|
|
)
|
|
|
|
["counts" "comments"]]
|
|
|
|
|
|
|
|
data (mapv (partial get-in post) items)]
|
|
|
|
|
|
|
|
(apply (partial printf "%s on %s\n%s\nat %s (%d comments)\n\n") data)))
|
|
|
|
|
|
|
|
|
|
|
|
(defn show-comment-item [commnt]
|
|
|
|
(defn show-comment-item [commnt]
|
|
|
|
(println (get-in commnt ["creator" "name"]) "says:")
|
|
|
|
(println (get-in commnt ["creator" "name"]) "says:")
|
|
|
|
|
|
|
|
(println (get-in commnt ["comment" "content"]))
|
|
|
|
(println)
|
|
|
|
(println)
|
|
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
@ -56,31 +59,31 @@
|
|
|
|
(first (read-line)))
|
|
|
|
(first (read-line)))
|
|
|
|
|
|
|
|
|
|
|
|
(defn view-post [post]
|
|
|
|
(defn view-post [post]
|
|
|
|
(println "Viewing post id:" (get-in post ["post" "id"]))
|
|
|
|
|
|
|
|
(loop [offset 0 comments (comments-list post)]
|
|
|
|
(loop [offset 0 comments (comments-list post)]
|
|
|
|
(println (count comments) offset)
|
|
|
|
|
|
|
|
(show-comments (if (pos? offset) (drop (* 5 offset) comments) comments))
|
|
|
|
(show-comments (if (pos? offset) (drop (* 5 offset) comments) comments))
|
|
|
|
(flush)
|
|
|
|
|
|
|
|
(case (show-comments-prompt)
|
|
|
|
(case (show-comments-prompt)
|
|
|
|
\B (println)
|
|
|
|
\B (println)
|
|
|
|
\N (recur (inc offset) comments)
|
|
|
|
\N (recur (inc offset) comments)
|
|
|
|
\P (recur (dec offset) comments)
|
|
|
|
\P (recur (dec offset) comments)
|
|
|
|
(do (println "Unknown command.") (recur offset comments)))))
|
|
|
|
(do (println "Unknown command.") (recur offset comments)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn -main [& args]
|
|
|
|
(defn view-page []
|
|
|
|
(loop [top true page 1 posts (post-list page)]
|
|
|
|
(loop [top true page 1 posts (post-list page)]
|
|
|
|
(show-posts (if top posts (drop 5 posts)))
|
|
|
|
(show-posts (if top posts (drop 5 posts)))
|
|
|
|
(flush)
|
|
|
|
|
|
|
|
(case (show-posts-prompt)
|
|
|
|
(case (show-posts-prompt)
|
|
|
|
\N (if top (recur false page posts)
|
|
|
|
\N (if top (recur false page posts)
|
|
|
|
(recur true (inc page) (post-list (inc page))))
|
|
|
|
(recur true (inc page) (post-list (inc page))))
|
|
|
|
\P (if top (recur false (dec page) (post-list (dec page)))
|
|
|
|
\P (if top (recur false (dec page) (post-list (dec page)))
|
|
|
|
(recur true page posts))
|
|
|
|
(recur true page posts))
|
|
|
|
\Q (println "Goodbye.")
|
|
|
|
\Q (do)
|
|
|
|
\1 (do (view-post (nth posts 0)) (recur top page posts))
|
|
|
|
\1 (do (view-post (nth posts (cond-> 5 top (- 5)))) (recur top page posts))
|
|
|
|
\2 (do (view-post (nth posts 1)) (recur top page posts))
|
|
|
|
\2 (do (view-post (nth posts (cond-> 6 top (- 5)))) (recur top page posts))
|
|
|
|
\3 (do (view-post (nth posts 2)) (recur top page posts))
|
|
|
|
\3 (do (view-post (nth posts (cond-> 7 top (- 5)))) (recur top page posts))
|
|
|
|
\4 (do (view-post (nth posts 3)) (recur top page posts))
|
|
|
|
\4 (do (view-post (nth posts (cond-> 8 top (- 5)))) (recur top page posts))
|
|
|
|
\5 (do (view-post (nth posts 4)) (recur top page posts))
|
|
|
|
\5 (do (view-post (nth posts (cond-> 9 top (- 5)))) (recur top page posts))
|
|
|
|
(do (println "Unknown command.") (recur top page posts)))))
|
|
|
|
(do (println "Unknown command.") (recur top page posts)))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn -main [& args]
|
|
|
|
|
|
|
|
(view-page)
|
|
|
|
|
|
|
|
(println "Goodbye."))
|
|
|
|
|
|
|
|
|
|
|
|