show post body

master
Clyne 7 months ago
parent b30265fba6
commit f715012499
Signed by: clyne
GPG Key ID: 1B74EE6C49C96795

@ -120,12 +120,27 @@
\P (recur (dec offset) comments)
(do (println "Unknown command.") (recur offset comments)))))
(defn view-post-body
"Shows the body of the post if available; in that case, ask about viewing comments."
[post]
(let [body (get-in post ["post" "body"])]
(or (empty? body)
(do
(println)
(println "Post contents:")
(println)
(println body)
(println)
(print "BC> ")
(flush)
(= \C (first (read-line)))))))
(defn view-nth-post
"Views the index-th post from the current post list."
[state posts index]
(view-post
(:instance state)
(nth posts (cond-> (+ 5 index) (:top state) (- 5))))
(let [post (nth posts (cond-> (+ 5 index) (:top state) (- 5)))]
(when (view-post-body post)
(view-post (:instance state) post)))
state)
(defn get-post-list

Loading…
Cancel
Save