blob: 731d31fe9b2fd1b8586f1912e9c54a6c69f41d23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
;;;; navigation
(in-package :vampire)
(defun create-navigation-header (parent)
(with-clog-create parent
(section (:header :class "header")
(div () (a (:link "/home")
(img ( :url-src "/favicon.ico"))))
(div () (a (:link "/explore" :content "Explore")))
(div () (a (:link "/about" :content "About"))))))
|
