30 lines
895 B
Common Lisp
30 lines
895 B
Common Lisp
(defpackage cl-sbt-album
|
|
(:use :cl))
|
|
|
|
(in-package :cl-sbt-album)
|
|
|
|
(load "examples/album/_navbar.lisp")
|
|
(load "examples/album/_main.lisp")
|
|
|
|
(defvar contact-examples
|
|
'(("Follow on Twitter" . "foo")
|
|
("Like on Facebook" . "foo")
|
|
("Email me" . "foo")))
|
|
|
|
(defvar about-example
|
|
"Add some information about the album below, the author, or any other background context. Make it a few sentences long so folks can pick up some informative tidbits. Then, link them off to some social networking sites or contact information.")
|
|
|
|
(defmacro header (&body body)
|
|
`(spinneret:with-html
|
|
(:header ,@body)))
|
|
|
|
(defmacro footer (&body body)
|
|
`(spinneret:with-html
|
|
(:footer ,@body)))
|
|
|
|
(defun show-album-page (title)
|
|
(cl-sbt:with-page (:title title)
|
|
(header (show-navbar-header about-example contact-examples)
|
|
(show-navbar "brand" "#" "foo"))
|
|
(main "foo")
|
|
(footer "bar")))
|