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

Fix container class handling

Browse source
This commit is contained in:
Marcus Kammer 2024-08-03 10:09:20 +02:00
parent 3adf1c26e6
commit 40f94662e6
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/main.lisp
View file

@ -130,8 +130,6 @@ META: The meta-information for the web page.
TITLE: Specifies the title of the web page. Defaults to 'Web page'.
MAIN-CON: If t add css class `container` to <main>.
ADD-CSS-URLS: An optional parameter for additional CSS file URLs.
ADD-JS-URLS: An optional parameter for additional JavaScript file URLs.
@ -169,22 +167,27 @@ Example usage:
,@(loop for url in add-js-urls
collect `(:script :src ,url)))))
(defmacro body-header (main-heading &body body)
`(spinneret:with-html
(:header :class "mb-3"
(:div :class "skippy visually-hidden-focusable overflow-hidden"
(:a :href "#main-content"
:class "d-inline-flex p-2 m-1"
(find-l10n "skip-link" *html-lang* *l10n*)))
,@body
(:div :class "container"
(:h1 ,main-heading)))))
(defmacro body-header (container main-heading &body body)
(let ((class (cond ((eq container t) "container")
((stringp container) (format nil "container-~a" container))
(t ""))))
`(spinneret:with-html
(:header :class "mb-3"
(:div :class "skippy visually-hidden-focusable overflow-hidden"
(:a :href "#main-content"
:class "d-inline-flex p-2 m-1"
(find-l10n "skip-link" *html-lang* *l10n*)))
,@body
(:div ,@(when (not (string= class "")) `(:class ,class))
(:h1 ,main-heading))))))
(defmacro body-main (&optional main-con &body body)
(let ((class-str (concatenate 'string "" (when main-con " container"))))
(defmacro body-main (container &body body)
(let ((class (cond ((eq container t) "container")
((stringp container) (format nil "container-~a" container))
(t ""))))
`(spinneret:with-html
(:main :id "main-content"
:class ,class-str
,@(when (not (string= class "")) `(:class ,class))
,@body))))
(defun remove-special-chars (str)