gistfile1.lisp

(in-package :puerco-widgets)

(defun headline (level text)
  (markup
   (:div :class "org-headline" :data-level level
         (concatenate 'string
                      (loop for i from 0 to 2
                         collect #\*)
                      " " text))))

;;PUERCO-WIDGETS> (headline 1 "hai")
;; "<div class=\"org-headline\" data-level=\"1\">*** hai</div>"