sloanelybutsurely/sloane.sh
1
0
Fork 0
Code Issues 11 Pull requests Projects Releases Packages Wiki Activity Actions

pollen #12

Merged
sloanelybutsurely merged 3 commits from pollen into main 2024-11-09 17:34:10 -05:00
Conversation 0 Commits 3 Files changed 52 +15 -1
3 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 10c06f09c7 - Show all commits

6
site/pollen.rkt
View file

@ -2,16 +2,20 @@
(require pollen/decode pollen/misc/tutorial txexpr) (require pollen/decode pollen/misc/tutorial txexpr)
(provide (all-defined-out)) (provide (all-defined-out))
#| site globals |#
(define site-name "sloane.sh") (define site-name "sloane.sh")
(define email "sloane@fastmail.com") (define email "sloane@fastmail.com")
#| custom elements |#
#| plain text decoding |#
(define txexpr-elements-proc decode-paragraphs) (define txexpr-elements-proc decode-paragraphs)
(define string-proc (compose1 smart-quotes smart-dashes)) (define string-proc (compose1 smart-quotes smart-dashes))
(define (root . elements) (define (root . elements)
(txexpr 'root empty (decode-elements elements (txexpr 'root empty (decode-elements elements
#:txexpr-elements-proc txexpr-elements-proc #:txexpr-elements-proc txexpr-elements-proc
#:string-proc string-proc))) #:string-proc string-proc)))
#| setup |#
(module setup racket/base (module setup racket/base
(provide (all-defined-out))) (provide (all-defined-out)))

1
site/style.css.pp Normal file
View file

@ -0,0 +1 @@
#lang pollen

9
site/template.html.p
View file

@ -3,8 +3,17 @@
<head> <head>
<meta charset="UTF-8"> <meta charset="UTF-8">
<title>◊|site-name|</title> <title>◊|site-name|</title>
<link rel="stylesheet" href="/style.css">
</head> </head>
<body> <body>
<header>
<a href="/">◊|site-name|</a>
<nav>
<ul>
<li><a href="/">home</a></li>
</ul>
</nav>
</header>
◊(->html doc) ◊(->html doc)
</body> </body>
</html> </html>