diff options
| -rw-r--r-- | src/lemmold/core.clj | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/src/lemmold/core.clj b/src/lemmold/core.clj index fb34fdd..1f77135 100644 --- a/src/lemmold/core.clj +++ b/src/lemmold/core.clj @@ -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 |