file.clj

(defn- load-post [file]
  (try
    (->> (slurp file)
         (parser/parse)
         (convert-date)
         (split-tags)
         (add-author)
         (add-file-name (.getName file))
         (add-relative-url (.getName file))
         (add-absolute-url (.getName file))
         (published->bool)
         (body->html))
    (catch Exception e (print e) nil)))

posts.clj

(defn last-posts []
  (->> (posts/find-all)
       (filter published?)
       (sort-by :publish-date)
       (reverse)))
       
(defn last-posts []
  (reverse
    (sort-by :published-date
      (filter published? (posts/find-all)))))