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

Merge branch 'main' of ssh://code.metalisp.dev:2222/marcuskammer/www.metalisp.dev

Browse source
This commit is contained in:
Marcus Kammer 2025-02-04 18:18:40 +01:00
commit 1bab7ca3ca
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
index.lisp
View file

@ -6,6 +6,7 @@
(defpackage :website (defpackage :website
(:use :cl #:ml-sbt) (:use :cl #:ml-sbt)
(:import-from #:ml-sbt/section (:import-from #:ml-sbt/section
#:define-section-type
#:with-section #:with-section
#:with-section-row #:with-section-row
#:with-section-col #:with-section-col
@ -18,6 +19,8 @@
#:with-list-group*) #:with-list-group*)
(:import-from #:ml-sbt/card (:import-from #:ml-sbt/card
#:with-card*) #:with-card*)
(:import-from #:ml-sbt/utility
#:make-grid-class)
(:import-from #:ml-sbt/btn (:import-from #:ml-sbt/btn
#:btn)) #:btn))
@ -25,6 +28,8 @@
(defvar *lang* "en") (defvar *lang* "en")
(define-section-type with-section-projects (make-grid-class :row 1 :sm 2 :md 3 :g 3) nil)
(defparameter *active-projects* (defparameter *active-projects*
'(("metalisp.sbt" '(("metalisp.sbt"
("Library of Common Lisp Macros to generate HTML." "In Active Development" "Common Lisp") ("Library of Common Lisp Macros to generate HTML." "In Active Development" "Common Lisp")
@ -79,7 +84,7 @@
;; -- ;; --
(with-section (with-section
(with-title-bar "Active Projects") (with-title-bar "Active Projects")
(with-section-row (with-section-projects
(dolist (project *active-projects*) (dolist (project *active-projects*)
(destructuring-bind (cheader citems curl) project (destructuring-bind (cheader citems curl) project
(with-card* (with-card*