Add parsing of posts. Need to look into the security of read-string.

src/clj/shapey_shifty/posts/core.clj

@@ -9,10 +9,10 @@
   (assoc post :type post-type))
 
 (defn set-author [post author]
-  (assoc-in post [:properties :author] author)) 
+  (assoc-in post [:properties :author] author))
 
 (defn set-name [post post-name]
   (assoc-in post [:properties :name] post-name))
 
 (defn set-content [post post-content]
- (assoc-in post [:properties :content] post-content)) 
+  (assoc-in post [:properties :content] post-content))

src/clj/shapey_shifty/posts/posts_io.clj

@@ -1,12 +1,11 @@
 (ns shapey-shifty.posts.posts-io
-  (:require 
-    [shapey-shifty.posts.core :as core]))
+  (:require
+   [shapey-shifty.posts.core :as core]))
 
 (def post-filename "post.json")
 (def base-path "resources/posts")
 
-
-(defn create-path-by-date [year month day] 
+(defn create-path-by-date [year month day]
   {:year year :month month :day day})
 
 (defn pathmap-to-path [{:keys [year month day]}]
@@ -25,7 +24,14 @@
 (defn write-post [post dt-path]
   (let [path (pathmap-to-path dt-path)
         increment (inc (count-posts-in-date dt-path))
-        final-path (format "%s/%s/%d/%s" base-path path increment post-filename)] 
+        final-path (format "%s/%s/%d/%s" base-path path increment post-filename)]
     (clojure.java.io/make-parents final-path)
     (spit final-path post)))
 
+(defn read-post [dt-path n]
+  (let [path (format "%s/%s/%d/%s" base-path (pathmap-to-path dt-path) n post-filename)
+        f (clojure.java.io/file path)]
+    (when (.exists f)
+      (-> f
+       slurp
+       read-string))))