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

Move spacing to utility package

Browse source
This commit is contained in:
Marcus Kammer 2023-07-16 18:01:02 +02:00
parent 4dcaa7a00d
commit 0e2980fb1a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 32 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cl-sbt.asd
View file

@ -6,10 +6,7 @@
:components ((:module "src" :components ((:module "src"
:components :components
((:file "main") ((:file "main")
(:file "page"))) (:file "utility")))
(:module "src/utility"
:components
((:file "spacing")))
(:module "src/layout" (:module "src/layout"
:components :components
((:file "grid"))) ((:file "grid")))

59
src/utility/spacing.lisp → src/utility.lisp
View file

@ -1,33 +1,11 @@
;; Bootstrap's spacing utility is a powerful toolset that allows developers to (defpackage :cl-sbt-utility
;; modify an element's margin and padding with a range of classes. These
;; classes are built using a consistent scale of spacing variables for
;; predictable spacing across the application, ensuring a unified look and feel
;; throughout.
;; The spacing classes follow a simple {property}{sides}-{size} pattern for
;; defining the space on the widget. 'Property' is either 'm' for margins or
;; 'p' for padding. 'Sides' refers to the side of the element where the space
;; should be applied: top (t), bottom (b), left (start/s), right (end/e), x
;; (horizontal sides), y (vertical sides), or blank (all sides). 'Size'
;; represents the size of the space, ranging from 0 (no space) to 5 (most
;; space), or 'auto' for automatic margins.
;; Furthermore, Bootstrap's spacing utility also incorporates responsive
;; variations, meaning developers can assign spacing values that are specific
;; to a certain breakpoint, ensuring the design's responsiveness. These classes
;; follow the {property}{sides}-{breakpoint}-{size} pattern and the breakpoint
;; can be 'sm', 'md', 'lg', 'xl', 'xxl'.
;; In summary, Bootstrap's spacing utility provides a flexible, responsive, and
;; coherent system for managing spaces in a web layout, aiding in creating
;; beautiful and well-structured user interfaces.
(defpackage :cl-sbt-spacing
(:use :cl) (:use :cl)
(:export :spacing) (:export
(:documentation "A module for generating Bootstrap spacing classes.")) :spacing
:text)
(:documentation "A module for generating Bootstrap utility classes."))
(in-package :cl-sbt-spacing) (in-package :cl-sbt-utility)
(defun spacing (&key (property nil) (side nil) (size nil) (breakpoint nil)) (defun spacing (&key (property nil) (side nil) (size nil) (breakpoint nil))
"Generates a Bootstrap spacing class. "Generates a Bootstrap spacing class.
@ -65,3 +43,28 @@ Example 4:
(size-str (if (null size) "" (if (eq size :auto) "auto" (format nil "~d" size)))) (size-str (if (null size) "" (if (eq size :auto) "auto" (format nil "~d" size))))
(breakpoint-str (if (null breakpoint) "" (format nil "~a-" (string breakpoint))))) (breakpoint-str (if (null breakpoint) "" (format nil "~a-" (string breakpoint)))))
(string-downcase (concatenate 'string " " property-str side-str "-" breakpoint-str size-str)))) (string-downcase (concatenate 'string " " property-str side-str "-" breakpoint-str size-str))))
(defun text (&rest args)
"Generates a Bootstrap text class based on provided arguments.
ARGS: A list of keyword arguments specifying the properties of the text. For
example, (:alignment :center :transform :capitalize) would result in the string
'text-center text-capitalize'.
Returns a string that can be used as a CSS class for the text."
(let ((alignment (cadr (member :alignment args)))
(wrap (cadr (member :wrap args)))
(tbreak (cadr (member :break args))))
(concatenate 'string
(case alignment
(:start "text-start ")
(:center "text-center ")
(:end "text-end ")
(t "text-start "))
(case wrap
(:t "text-wrap")
(:no "text-nowrap")
(t ""))
(case tbreak
(:t "text-break")
(t "")))))