diff options
| -rw-r--r-- | builder/base.scm | 10 | ||||
| -rw-r--r-- | builder/components.scm | 13 | ||||
| -rw-r--r-- | builder/includes.scm | 20 | ||||
| -rw-r--r-- | content/pages.scm | 6 | ||||
| -rw-r--r-- | static/main.css | 9 |
5 files changed, 37 insertions, 21 deletions
diff --git a/builder/base.scm b/builder/base.scm index 3e83ac6..17b7967 100644 --- a/builder/base.scm +++ b/builder/base.scm @@ -1,6 +1,7 @@ (define-module (builder base) #:use-module (haunt site) #:use-module (builder components) + #:use-module (builder includes) #:use-module (json) #:export (base-template contained-template @@ -66,8 +67,9 @@ (define (page-template site metadata body) (base-template site (assq-ref metadata 'title) - (container (list `(main (@ (class "page prose")) - ,body) - `(footer (@ (style "margin: 2rem 0")) - ,(link "/" "← Back to homepage")))))) + `(div (@ (class "container wider")) + (main (@ (class "page prose")) ` + ,,body) + (footer (@ (style "margin: 2rem 0")) + ,(navigation))))) diff --git a/builder/components.scm b/builder/components.scm index 35d7bd8..4606acc 100644 --- a/builder/components.scm +++ b/builder/components.scm @@ -1,18 +1,7 @@ (define-module (builder components) - #:export (header badge prose small-prose linkbox + #:export (badge prose small-prose linkbox linkline slash link elink)) -(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 (badge name icon link) `(a (@ (class "badge") (target "_blank") (href ,link)) (img (@ (src ,icon))) 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")))) diff --git a/content/pages.scm b/content/pages.scm index a1f03ff..996a147 100644 --- a/content/pages.scm +++ b/content/pages.scm @@ -3,6 +3,7 @@ #:use-module (haunt html) #:use-module (builder base) #:use-module (builder components) + #:use-module (builder includes) #:export (index-page)) (define (index-page) @@ -32,10 +33,7 @@ "Consider this a monologue of a committed observer.")) (small-prose `(p "Check out some of my " ,(elink "https://slashpages.net/" "slash pages") " :3") - (linkline - (slash "/elsewhere") - (slash "/uses") - (slash "/donates"))) + (navigation)) `(footer (@ (style "text-align: right; line-height: 1.5")) (p "This page is still under construction. 🚧") (p "Built using " ,(elink "https://dthompson.dev/projects/haunt.html" "haunt") ", " diff --git a/static/main.css b/static/main.css index 6db37b9..205cdc2 100644 --- a/static/main.css +++ b/static/main.css @@ -23,13 +23,16 @@ a { } .container { - max-width: 500px; + --width: 500px; + max-width: var(--width); margin: 5rem auto; @media screen and (max-width: 787px) { padding: 1rem; } } +.container.wider { --width: 600px } + .page { font-size: 1.25rem; line-height: 2; @@ -65,6 +68,10 @@ a { border: 2px dashed var(--decorative-color); margin: 1rem 0; } + + img { + max-width: 100% + } } .prose-container { |