path: root/navigation.lisp

;;;; navigation

(in-package :vampire)

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