summaryrefslogtreecommitdiff
path: root/builder/includes.scm
diff options
context:
space:
mode:
Diffstat (limited to 'builder/includes.scm')
-rw-r--r--builder/includes.scm20
1 files changed, 20 insertions, 0 deletions
diff --git a/builder/includes.scm b/builder/includes.scm
new file mode 100644
index 0000000..a0d5d01
--- /dev/null
+++ b/builder/includes.scm
@@ -0,0 +1,20 @@
+(define-module (builder includes)
+ #:use-module (builder components)
+ #:export (header footer navigation))
+
+(define (header name desc image)
+ `(header (@ (class "header h-card"))
+ (div (img (@ (src ,image) (class "header-image u-photo"))))
+ (div (@ (class "header-text"))
+ (h2 (@ (class "header-title"))
+ (a (@ (rel "me") (class "u-url") (href "/"))
+ "Hi, "
+ (span (@ (class "p-name")) ,name)
+ " here 👋"))
+ (div (@ (class "header-desc p-note")) ,desc))))
+
+(define (navigation)
+ `(nav ,(linkline
+ (slash "/elsewhere")
+ (slash "/uses")
+ (slash "/donates"))))