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

Update docstrings

Browse source
This commit is contained in:
Marcus Kammer 2024-08-03 12:48:08 +02:00
parent 40f94662e6
commit 1d6484084e
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 26 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
src/section.lisp
View file

@ -2,29 +2,39 @@
(defpackage ml-sbt/section
(:use :cl)
(:export :with-section))
(:export :with-section
:with-title-bar))
(in-package :ml-sbt/section)
(defmacro with-section ((headline &optional functions) &body body)
"Creates a Bootstrap-styled section with a headline and optional function buttons.
(defmacro with-title-bar (head &rest items)
"Creates a Bootstrap-styled title bar with an optional set of action buttons.
HEADLINE: The text for the section's headline.
HEAD: The text for the title bar's heading.
FUNCTIONS: An optional list of alternating label and URL pairs for function buttons.
BODY: The content of the section.
ITEMS: An optional list of alternating label and URL pairs for action buttons.
Example:
(with-section (\"My Section\" (\"Add\" \"/add\" \"Save\" \"/save\"))
\"Section content goes here\")"
(with-title-bar \"My Section\" \"Add\" \"/add\" \"Save\" \"/save\")"
`(spinneret:with-html
(:section :class "mb-3"
(:div :class "d-flex justify-content-between flex-wrap flex-md-nowrap align-items-center pt-3 pb-2 mb-3 border-bottom"
(:h* ,headline)
,@(loop for (label url) on functions by #'cddr
when functions
(:h* ,head)
,@(when items
`(:div :class "btn-group" :role "group"
,@(loop for (label url) on items by #'cddr
collect `(:a :class "btn btn-outline-primary"
:href ,url
,label)))
,label)))))))
(defmacro with-section (&body body)
"Creates a Bootstrap-styled section.
BODY: The content of the section, typically including a call to with-title-bar.
Example:
(with-section
(with-title-bar \"My Section\" \"Add\" \"/add\" \"Save\" \"/save\")
(:p \"Section content goes here\"))"
`(spinneret:with-html
(:section :class "mb-3"
,@body)))