refactor markdown rendering functions

src/blarg/routes/rss.clj

@@ -1,13 +1,13 @@
 (ns blarg.routes.rss
   (:use [blarg.routes.helpers]
         [compojure.core])
-  (:require [markdown.core :as md]
-            [noir.response :refer [xml]]
+  (:require [noir.response :refer [xml]]
             [clj-rss.core :as rss]
             [clj-time.core]
             [clj-time.coerce]
             [blarg.models.posts :as posts]
-            [blarg.route-utils :refer [register-routes]]))
+            [blarg.route-utils :refer [register-routes]]
+            [blarg.util :refer [md->html]]))
 
 (def rss-title "blarg.ca")
 (def rss-site-url "http://www.blarg.ca/")
@@ -25,7 +25,7 @@
                     {:title (:title post)
                      :pubDate (clj-time.coerce/to-date (:created_at post))
                      :link (str rss-site-url (subs (get-post-url post) 1))
-                     :description (md/md-to-html-string (:body post))}))
+                     :description (md->html (:body post))}))
              (doall))))))
 
 (register-routes rss-routes

src/blarg/util.clj

@@ -19,12 +19,8 @@
   [file]
   (parse-stream (io/reader (io/resource file)) true))
 
-(defn md->html
-  "reads a markdown file from public/md and returns an HTML string"
-  [filename]
-  (->>
-    (noir.io/slurp-resource filename)
-    (md/md-to-html-string)))
+(defn md->html [s]
+  (md/md-to-html-string s))
 
 (defn string->int
   ([s] (string->int s nil))

src/blarg/views/viewfilters.clj

@@ -2,12 +2,12 @@
   (:use [blarg.datetime]
         [blarg.routes.helpers])
   (:require [clj-jtwig.functions :refer [deftwigfn]]
-            [markdown.core :as md]
             [clj-time.core]
-            [clj-time.format]))
+            [clj-time.format]
+            [blarg.util :refer [md->html]]))
 
 (deftwigfn "md_to_html" [s]
-  (md/md-to-html-string s))
+  (md->html s))
 
 (deftwigfn "post_url" [post]
   (->> post