repushed v4.0.0 pom for markdownj

project.clj

@@ -4,15 +4,15 @@
   :eval-in-leiningen true
   :dependencies
   [[org.clojure/clojure "1.2.0"]
-   [org.clojars.nakkaya/markdownj "1.0.2b4"]
-   [hiccup "0.3.0"]]
+   [hiccup "0.3.0"]
+   [org.markdownj/markdownj "0.3.0-1.0.2b4"]]
   :dev-dependencies
   [[lein-clojars "0.5.0-SNAPSHOT"]
    [jline "0.9.94"]
    [swank-clojure "1.2.1"]
    ;;Needed for testing lein plugin
    [hiccup "0.3.0"]
-   [org.clojars.nakkaya/markdownj "1.0.2b4"]
+   [org.markdownj/markdownj "0.3.0-1.0.2b4"]
    [marginalia "0.3.2"]]
   ;;Needed for testing cake plugin
   :tasks [marginalia.tasks]

src/marginalia/parser.clj

@@ -34,12 +34,22 @@
 
 (defn parse-file
   [filepath]
-  (let [parser (make-parse-fn (slurp filepath))]
+  (let [parser! (make-parse-fn (slurp filepath))]
     (loop [lines []]
-      (if-let [result (try (parser) (catch Exception _ nil))]
+      (if-let [result (try (parser!) (catch Exception _ nil))]
         (recur (conj lines result))
         lines))))
 
 (comment
   (parse-file "../marginalia/src/marginalia/parser.clj")
+
+  (aget (get-field clojure.lang.LispReader :macros nil) (int (first "^")))
+
+  (def R (make-parse-fn "(def ^{:doc \"this is doc\" :author \"fogus\"}
+                              foo
+                              ^{:gah :goo}
+                              [1 2 3])"))
+  
+  (def e (R))
+  (map meta e)
 )