initial layout of new site
This commit is contained in:
parent
e59536446c
commit
10c06f09c7
3 changed files with 15 additions and 1 deletions
|
@ -2,16 +2,20 @@
|
|||
(require pollen/decode pollen/misc/tutorial txexpr)
|
||||
(provide (all-defined-out))
|
||||
|
||||
#| site globals |#
|
||||
(define site-name "sloane.sh")
|
||||
(define email "sloane@fastmail.com")
|
||||
|
||||
#| custom elements |#
|
||||
|
||||
#| plain text decoding |#
|
||||
(define txexpr-elements-proc decode-paragraphs)
|
||||
(define string-proc (compose1 smart-quotes smart-dashes))
|
||||
|
||||
(define (root . elements)
|
||||
(txexpr 'root empty (decode-elements elements
|
||||
#:txexpr-elements-proc txexpr-elements-proc
|
||||
#:string-proc string-proc)))
|
||||
|
||||
#| setup |#
|
||||
(module setup racket/base
|
||||
(provide (all-defined-out)))
|
||||
|
|
1
site/style.css.pp
Normal file
1
site/style.css.pp
Normal file
|
@ -0,0 +1 @@
|
|||
#lang pollen
|
|
@ -3,8 +3,17 @@
|
|||
<head>
|
||||
<meta charset="UTF-8">
|
||||
<title>◊|site-name|</title>
|
||||
<link rel="stylesheet" href="/style.css">
|
||||
</head>
|
||||
<body>
|
||||
<header>
|
||||
<a href="/">◊|site-name|</a>
|
||||
<nav>
|
||||
<ul>
|
||||
<li><a href="/">home</a></li>
|
||||
</ul>
|
||||
</nav>
|
||||
</header>
|
||||
◊(->html doc)
|
||||
</body>
|
||||
</html>
|
||||
|
|
Loading…
Reference in a new issue