marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Show album page

Browse source
This commit is contained in:
Marcus Kammer 2023-07-04 16:42:47 +02:00
parent 0bb688a4fb
commit 6fb26cb55c
2 changed files with 70 additions and 62 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
src/examples/album/_navbar.lisp Normal file
View file

@ -0,0 +1,62 @@
(in-package :cl-sbt)
(defmacro navbar-header-about (&body body)
`(spinneret:with-html
(:div :class "col-sm-8 col-md-7 py-4"
(:h4 "About")
(:p :class "text-body-secondary"
,@body))))
(defmacro navbar-header-contact (&body body)
`(spinneret:with-html
(:div :class "col-sm-4 offset-md-1 py-4"
(:h4 "Contact")
(:ul :class "list-unstyled"
,@body))))
(defmacro navbar-header (&body body)
`(spinneret:with-html
(:div :class "text-bg-dark collapse"
:id "navbarHeader"
(:div :class "container"
(:div :class "row"
,@body)))))
(defmacro navbar-brand ((&key (brand "Brand") (href "#")) &body body)
`(spinneret:with-html
(:a :class "navbar-brand d-flex align-items-center"
:href ,href
(:strong ,brand)
,@body)))
(defmacro navbar-toggler ((&key (target "#navbarHeader")) &body body)
`(spinneret:with-html
(:button :class "navbar-toggler collapsed"
:type "button"
:data-bs-toggle "collapse"
:data-bs-target ,target
:aria-controls "navbarHeader"
:aria-expanded "false"
:aria-label "Toggle navigation"
(:span :class "navbar-toggler-icon")
,@body)))
(defmacro navbar (&body body)
`(spinneret:with-html
(:div :class "navbar"
(:div :class "container"
,@body))))
(defun show-navbar-header-contact (contacts)
(navbar-header-contact (dolist (contact contacts)
(:li (:a :href (rest contact)
:class "text-white"
(first contact))))))
(defun show-navbar-header (about contacts)
(navbar-header (navbar-header-about about)
(show-navbar-header-contact contacts)))
(defun show-navbar (brand href target)
(navbar () (navbar-brand (:brand brand :href href))
(navbar-toggler (:target target))))

70
src/examples/album/index.lisp
View file

@ -1,74 +1,20 @@
(in-package :cl-sbt)
(defvar header-contact-examples
(load "src/examples/album/_navbar.lisp")
(defvar contact-examples
'(("Follow on Twitter" . "foo")
("Like on Facebook" . "foo")
("Email me" . "foo")))
(defvar header-about-example
(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-navheader-about (&body body)
`(spinneret:with-html
(:div :class "col-sm-8 col-md-7 py-4"
(:h4 "About")
(:p :class "text-body-secondary"
,@body))))
(defmacro header-navheader-contact (&body body)
`(spinneret:with-html
(:div :class "col-sm-4 offset-md-1 py-4"
(:h4 "Contact")
(:ul :class "list-unstyled"
,@body))))
(defmacro header-navheader (&body body)
`(spinneret:with-html
(:div :class "text-bg-dark collapse"
:id "navbarHeader"
(:div :class "container"
(:div :class "row"
,@body)))))
(defmacro header-navbar-brand ((&key (brand "Brand") (href "#")) &body body)
`(spinneret:with-html
(:a :class "navbar-brand d-flex align-items-center"
:href ,href
(:strong ,brand)
,@body)))
(defmacro header-navbar-toggler ((&key (target "#navbarHeader")) &body body)
`(spinneret:with-html
(:button :class "navbar-toggler collapsed"
:type "button"
:data-bs-toggle "collapse"
:data-bs-target ,target
:aria-controls "navbarHeader"
:aria-expanded "false"
:aria-label "Toggle navigation"
(:span :class "navbar-toggler-icon")
,@body)))
(defmacro header-navbar (&body body)
`(spinneret:with-html
(:div :class "navbar"
(:div :class "container"
,@body))))
(defmacro header (&body body)
`(spinneret:with-html
(:header ,@body)))
(defun show-header-navheader-contact (contacts)
(header-navheader-contact (dolist (contact contacts)
(:li (:a :href (rest contact)
:class "text-white"
(first contact))))))
(defun show-header-navheader (about contacts)
(header-navheader (header-navheader-about about)
(show-header-navheader-contact contacts)))
(defun show-header-navbar (brand href target)
(header-navbar () (header-navbar-brand (:brand brand :href href))
(header-navbar-toggler (:target target))))
(defun show-album-page ()
(with-page (:title "foo")
(header (show-navbar-header about-example contact-examples)
(show-navbar "brand" "#" "foo"))))