Untitled

(let [html-wrapper (fn [tagname]
                     (fn [body]
                       (str "<" tagname ">" body "</" tagname ">")))
      body-wrapper (html-wrapper "body")]
  (body-wrapper "data"))
;=> "<body>data</body>"

;; or with defs

(defn html-wrapper [tagname]
  (fn [body]
    (str "<" tagname ">" body "</" tagname ">")))

(def body (html-wrapper "body"))

(body "data")
;=> "<body>data</body>"