39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
html$-note-listing-full
html$-note-in-article
html$-notes-section)
(define (html$-page-head [title #f])
(define title-part (if title (format ": ~a" title) ""))
◊string-append{<head>
<title>The Local Yarn◊|title|</title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
</head>})
(define (html$-page-body-open)
◊string-append{<body><main>
|
|
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
html$-note-listing-full
html$-note-in-article
html$-notes-section)
(define (html$-page-head [title #f])
(define title-part (if title (format ": ~a" title) ""))
◊string-append{<head>
<title>◊|title|</title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" type="text/css" href="/web-extra/martin.css">
</head>})
(define (html$-page-body-open)
◊string-append{<body><main>
|
