37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
</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" height="103" class="logo">
<h1>The Local Yarn</h1>
</header></a>})
(define (html$-article-open pagenode title? title-tx published)
(cond
[title?
◊string-append{<article class="with-title hentry">
|
|
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
</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?
◊string-append{<article class="with-title hentry">
|
