gistfile1.lisp

;; cl-who

(let ((colors '("red" "green" "blue")))
  (who:with-html-output-to-string (s)
    (:html
      (:head
        (:title "Colors"))
      (:body
        (:ul
          (dolist (c colors)
            (who:htm (:li (who:str c)))))))))

;; yaclml

(let ((colors '("red" "green" "blue")))
  (yaclml:with-yaclml-output-to-string
    (<:html
     (<:head
      (<:title "Colors"))
     (<:body
      (<:ul
       (dolist (c colors)
         (<:li (<:as-html c))))))))





;; yaclml makes it easier to move snippets to functions
;; It can also do this while preserving indentation, if that's important to you.

(let ((colors '("red" "green" "blue")))
  (yaclml:with-yaclml-output-to-string
    (<:html
     (<:head
      (<:title "Colors"))
     (<:body
      (<:ul
       (dolist (c colors)
         (yaclml-list-item c)))))))

(defun yaclml-list-item (c)
  (<:li :class "foo"
        (<:ah c)))

(defun who-list-item (c s)
  (cl-who:with-html-output  (s)
    (:li (cl-who:esc c))))

(let ((colors '("red" "green" "blue")))
  (who:with-html-output-to-string (s)
    (:html
     (:head
      (:title "Colors"))
     (:body
      (:ul
       (dolist (c colors)
         (who-list-item c s)))))))