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

Calc items-length just one time

Browse source
This commit is contained in:
Marcus Kammer 2024-08-02 07:39:12 +02:00
parent df6bc8407e
commit 2f60f80d04
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/breadcrumb.lisp
View file

@ -14,12 +14,13 @@ Example usage:
\"Home\" \"/\" \"Home\" \"/\"
\"Library\" \"/library\" \"Library\" \"/library\"
\"Data\" nil)" \"Data\" nil)"
`(spinneret:with-html (let ((items-length (/ (length items) 2)))
(:nav :class "container" `(spinneret:with-html
:aria-label "breadcrumb" (:nav :class "container"
(:ol :class "breadcrumb" :aria-label "breadcrumb"
,@(loop for (label url) on items by #'cddr (:ol :class "breadcrumb"
for i from 1 ,@(loop for (label url) on items by #'cddr
collect (if (= i (/ (length items) 2)) for i from 1
`(:li :class "breadcrumb-item active" :aria-current "page" ,label) collect (if (= i items-length)
`(:li :class "breadcrumb-item" (:a :href ,url ,label)))))))) `(:li :class "breadcrumb-item active" :aria-current "page" ,label)
`(:li :class "breadcrumb-item" (:a :href ,url ,label)))))))))