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

Update utility package

Browse source
This commit is contained in:
Marcus Kammer 2023-07-16 21:09:50 +02:00
parent 8ac3a38fff
commit e1fba11f3d
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/utility.lisp
View file

@ -87,22 +87,22 @@ Example 4:
(:t "text-break ") (:t "text-break ")
(t ""))))) (t "")))))
(defun valign (&key (align nil)) (defun valign (align)
"Generates a Bootstrap vertical align class. "Generates a Bootstrap vertical align class.
ALIGN: Specifies the alignment, should be :baseline, :top, :middle, :bottom, ALIGN: Specifies the alignment, should be :baseline, :top, :middle, :bottom,
:text-bottom, :text-top or nil (default alignment). :text-bottom, :text-top or nil (default alignment).
Example 1: Example 1:
(valign (:align :baseline)) (valign :baseline)
; This will generate a string 'align-baseline' ; This will generate a string 'align-baseline'
Example 2: Example 2:
(valign (:align :top)) (valign :top)
; This will generate a string 'align-top' ; This will generate a string 'align-top'
Example 3: Example 3:
(valign (:align :middle)) (valign :middle)
; This will generate a string 'align-middle'" ; This will generate a string 'align-middle'"
(let ((align-str (if (null align) "" (format nil "align-~a" (string align))))) (let ((align-str (if (null align) "" (format nil "align-~a" (string align)))))
(string-downcase align-str))) (string-downcase align-str)))
@ -116,19 +116,19 @@ SIZE: Specifies the size, should be a number from 0 to 100, :25, :50, :75,
:100, :auto, or nil (default size). :100, :auto, or nil (default size).
Example 1: Example 1:
(sizing (:direction :width :size 50)) (sizing :direction :width :size 50)
; This will generate a string 'w-50' ; This will generate a string 'w-50'
Example 2: Example 2:
(sizing (:direction :height :size :auto)) (sizing :direction :height :size :auto)
; This will generate a string 'h-auto' ; This will generate a string 'h-auto'
Example 3: Example 3:
(sizing (:direction :width :size :100)) (sizing :direction :width :size :100)
; This will generate a string 'w-100' ; This will generate a string 'w-100'
Example 4: Example 4:
(sizing (:direction :height :size 75)) (sizing :direction :height :size 75)
; This will generate a string 'h-75'" ; This will generate a string 'h-75'"
(let* ((dir-str (if (null direction) "" (string direction))) (let* ((dir-str (if (null direction) "" (string direction)))
(size-str (if (null size) "" (size-str (if (null size) ""