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

Provide default container string

Browse source
This commit is contained in:
Marcus Kammer 2024-12-19 19:35:54 +01:00
parent 5cc01e31b8
commit 32a9deb190
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main.lisp
View file

@ -180,13 +180,17 @@ Example usage:
:class "d-inline-flex p-2 m-1" :class "d-inline-flex p-2 m-1"
(t9n "skip-link"))) (t9n "skip-link")))
,@body ,@body
(:div :class ,(concatenate 'string "container-" container) (:div :class (if ,container
(concatenate 'string "container-" ,container)
"container")
(:h1 ,main-heading))))) (:h1 ,main-heading)))))
(defmacro body-main (container &body body) (defmacro body-main (container &body body)
`(spinneret:with-html `(spinneret:with-html
(:main :id "main-content" (:main :id "main-content"
:class ,(concatenate 'string "container-" container) :class (if ,container
(concatenate 'string "container-" ,container)
"container")
,@body))) ,@body)))
(defun remove-special-chars (str) (defun remove-special-chars (str)

4
src/navbar.lisp
View file

@ -239,7 +239,9 @@ ITEMS: A plist of nav items in the form of :key \"url\" pairs"
`(spinneret:with-html `(spinneret:with-html
(:nav :class "navbar navbar-expand-lg bg-body-tertiary mb-5" (:nav :class "navbar navbar-expand-lg bg-body-tertiary mb-5"
:aria-label "Main" :aria-label "Main"
(:div :class ,(concatenate 'string "container-" container) (:div :class (if ,container
(concatenate 'string "container-" ,container)
"container")
(:a :class "navbar-brand" :href ,*brand-url* ,*brand-name*) (:a :class "navbar-brand" :href ,*brand-url* ,*brand-name*)
(:button :class "navbar-toggler" :type "button" (:button :class "navbar-toggler" :type "button"
:data-bs-toggle "collapse" :data-bs-target "#navbarNav" :data-bs-toggle "collapse" :data-bs-target "#navbarNav"