hiccup template/partial util

view_util.clj

(ns beta-shop.view-util
  (:use hiccup.core))


(defmacro defpartial
  [fname doc-or-args & body]
  (if (string? doc-or-args)
    (let [args# (first body)
          fbody# (rest body)]
      `(defn ~fname ~doc-or-args ~args# ~@fbody#))

    `(defn ~fname ~doc-or-args
       (html ~@body))))


(defmacro defpage
  [& args]
  `(defpartial ~@args))

(defmacro deflayout
  [& args]
  `(defpartial ~@args))