summaryrefslogtreecommitdiff
path: root/navigation.lisp
blob: 4f739170e60a423c3849590bed4b2bbd801410e3 (plain)
1
2
3
4
5
6
7
8
9
;;;; navigation

(in-package :vampire)

(defun create-navigation-header (parent)
  (with-clog-create parent
      (unordered-list ()
                      (list-item () (a (:link "/home" :content "Home")))
                      (list-item () (a (:link "/explore" :content "Explore"))))))