                rest-absts# (rest index-abst-map#)]
            (let [~'page_
                  (merge
-                   {:posts (map #(load-md-abst (.getAbsolutePath %)) (val first-abst#))}
+                   {:posts (map #(load-md-excerpt (.getAbsolutePath %)) (val first-abst#))}
                    {:index (key first-abst#)})
                  output# (io/file (kfile/find-dest) ~head-url)]
-             (println ~'page_)
              (kfile/touch output#)
              (spit output# ~body))
            (dorun
              (for [posts-per-page# rest-absts#]
-               (let [~'page_ (merge {:posts (map #(load-md-abst (.getAbsolutePath %)) (val posts-per-page#))}
+               (let [~'page_ (merge {:posts (map #(load-md-excerpt (.getAbsolutePath %)) (val posts-per-page#))}
                                  {:index (key first-abst#)})
                      output# (io/file (kfile/find-dest)
                                       (string/replace ~tail-url-ptn #":id" (str (key posts-per-page#))))]

        output   (new StringWriter)
        metadata (md/md-to-html input output :parse-meta? true :heading-anchors true)
        html     (.toString output)]
    {:header metadata :body html}))

(defn load-md-abst [^String md]
  (let [compiled (load-markdown md)
        top  (-> (ehtml/select (ehtml/html-resource (StringReader. (:body compiled))) [:p]) first ehtml/text)]
    {:header (:header compiled) :abstract top}))



(defmacro def-templates [url-pattern dir body]
  `(def hiccup#
     (reify HiccupPlugin

           (dorun
             (for [md# mds#]
               (let [compiled# (load-markdown (.getAbsolutePath  md#))
                     output# (io/file (kfile/find-dest) (-> compiled# :url first))
                     ~'page_ compiled#]
                 (kfile/touch output#)
                 (spit output# ~body)))))))))
