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

(in-package :vampire)

(defun create-navigation-header (parent)
  (with-clog-create parent
      (section (:header :class "row")
               (div () (img ( :url-src "/favicon.ico")))
               (div ()  (a (:link "/home"  :content "Home")))
               (div () (a (:link "/explore" :content "Explore"))))))