summaryrefslogtreecommitdiff
path: root/pages.lisp
diff options
context:
space:
mode:
authorGrant Shangreaux <shoshin@cicadas.surf>2023-02-20 12:03:17 -0600
committerGrant Shangreaux <shoshin@cicadas.surf>2023-02-20 12:03:17 -0600
commit641fa7479e355ece63349376bd48ad17f2bf17de (patch)
treeb8f74db8ecd6be82268a9eef8c0e9dbbf0f95e85 /pages.lisp
parentf35d764e8269b407f4be84a304af20af7119b0f2 (diff)
WIP: sketches of clos pages with render defgenericclos-page-sketching
Diffstat (limited to 'pages.lisp')
-rw-r--r--pages.lisp58
1 files changed, 58 insertions, 0 deletions
diff --git a/pages.lisp b/pages.lisp
index c435e8f..5d2b41d 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -64,3 +64,61 @@
"the"
(hero-class hero)
(hero-title hero))))))
+
+(defgeneric render (element)
+ (:documentation "Render an element as HTML"))
+
+(defclass page ()
+ ((title
+ :reader title
+ :initarg :title
+ :documentation "Page title ")
+ (main
+ :reader main
+ :initarg :main
+ :initform ""
+ :documentation "Main content for a page.")))
+
+(defmethod render ((doc page))
+ (with-html
+ (:doctype)
+ (:html
+ (:head (:title (title doc)))
+ (:body
+ (main doc)))))
+
+(defclass navable ()
+ ((nav-links
+ :reader nav-links
+ :initarg :nav-links
+ :type list))
+ (:documentation "Mixin for a PAGE class with navigation."))
+
+(defclass nav-link ()
+ ((target :initarg :target)
+ (text :initarg :text)
+ (icon :initarg :icon :initform nil)
+ (label :initarg :label :initform nil)))
+
+(defmethod render ((element nav-link))
+ (with-slots (target icon label text) element
+ (with-html
+ (:li (:a :href target :aria-label label icon text)))))
+
+(defclass page-with-nav (page navable)
+ ())
+
+(defmethod render ((doc page-with-nav))
+ (with-html
+ (:doctype)
+ (:html
+ (:head (:title (title doc)))
+ (:body
+ (:nav (:ul (mapc #'render (nav-links doc))))
+ (:main (main doc))))))
+
+;; (let* ((link (make-instance
+;; 'nav-link :target "/moo" :label "goo" :icon "🍺" :text "Tavern"))
+;; (foo (make-instance
+;; 'page-with-nav :title "goober" :main "Content" :nav-links (list link link))))
+;; (render foo))