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

5
src/breadcrumb.lisp
View file

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