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

initial layout of new site

Browse source
This commit is contained in:
sloane 2024-11-09 11:14:44 -05:00
parent e59536446c
commit 10c06f09c7
Signed by: sloanelybutsurely
SSH key fingerprint: SHA256:8SBnwhl+RY3oEyQxy1a9wByPzxWM0x+/Ejc+sIlY5qQ
3 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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>