Skip to content

Instantly share code, notes, and snippets.

@otherjoel

otherjoel/chapter1.html.pm

Created March 16, 2018 21:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save otherjoel/cde1aef9b582392efcdb12d74d65bf7c to your computer and use it in GitHub Desktop.
Save otherjoel/cde1aef9b582392efcdb12d74d65bf7c to your computer and use it in GitHub Desktop.
Download ZIP
Minimal Pollen project demonstrating use of `in`
Raw
chapter1.html.pm
#lang pollen
◊define-meta[title]{Chapter I}
Travellers left and entered our car at every stopping of the train. Three persons, however, remained, bound, like myself, for the farthest station...
Raw
chapter2.html.pm
#lang pollen
◊define-meta[title]{Chapter II}
Scarcely had the old man gone when a general conversation began...
Raw
chapter3.html.pm
#lang pollen
◊define-meta[title]{Chapter III}
The lawyer and the lady whispered together. I was sitting beside Posdnicheff, and I maintained silence...
Raw
index.html.pm
#lang pollen
◊define-meta[title]{The Kreutzer Sonata}
◊define-meta[template]{template-index.html}
"The weaker my hand, the greater the need that my model should be perfect."
—Leo Tolstoi
Raw
index.ptree
#lang pollen/ptree
◊index.html{
chapter1.html
chapter2.html
chapter3.html
}
Raw
pollen.rkt
#lang racket
(provide (all-defined-out)
in) ; from web-server/templates
(require web-server/templates
pollen/decode)
(define (root . xs)
`(root ,@(decode-paragraphs xs)))
Raw
template-index.html.p
<html>
<head><title>My Book</title></head>
<body>
<h1>◊(select-from-metas 'title here)</h1>
◊(->html (decode-paragraphs (select-from-doc 'root here)))
<ul>
◊in[c (children here)]{
<li><a href="/◊c">◊(select-from-metas 'title c)</a></li>
}
</ul>
</body></html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment