hiddens.clj

(def hidden-matcher #"(#)?([^\.]+)\.?(.+)?")
(defmacro hiddens [& args]
  `(list
    ~@(for [[k-str v] (partition 2 args)]
       (let [[_ id? k class] (re-find hidden-matcher k-str)]
         [:input (cond-> {:type "hidden" :name k}
                         id? (assoc :id k)
                         class (assoc :class class)
                         (not= nil v) (assoc :value v))]))))