(defmacro page [name-kw fndef & links]
  (let [map `{:page ~name-kw
              :fn ~fndef}
        fn-args (second fndef)
        args  (if (empty? fn-args) {} `{:req-args ~(map keyword fn-args)})
        links (if (empty? links) {} `{:links ~(vec links)})]
    (merge map args links)))