36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
<meta name="generator" content="Racket ◊(version) + Pollen ◊|pollen:version|">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
◊if[close-head? "</head>" ""]})
(define (html$-page-body-open [class ""])
(define body-class (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
◊string-append{<body◊|body-class|><main>
<a href="/"><header>
<img src="/web-extra/mark.svg" alt="The Local Yarn" height="103" class="logo">
<h1>The Local Yarn</h1>
</header></a>})
(define (html$-article-open pagenode title? title-tx published)
(cond
[title?
|
|
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
<meta name="generator" content="Racket ◊(version) + Pollen ◊|pollen:version|">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
◊if[close-head? "</head>" ""]})
(define (html$-page-body-open [class ""])
(define body-class (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
◊string-append{<body◊|body-class|><main>
<a href="/index.html"><header>
<img src="/web-extra/mark.svg" alt="The Local Yarn" height="103" class="logo">
<h1>The Local Yarn</h1>
</header></a>})
(define (html$-article-open pagenode title? title-tx published)
(cond
[title?
|
