Overview
Comment: | Small fixes and improvements to HTML snippet functions |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
957258233bfd80b3cc3684181a1a694e |
User & Date: | joel on 2019-02-23 23:15:00 |
Other Links: | manifest | tags |
Context
2019-02-23
| ||
23:16 | Add scribble docs for snippets-html check-in: 8e0002ee user: joel tags: trunk | |
23:15 | Small fixes and improvements to HTML snippet functions check-in: 95725823 user: joel tags: trunk | |
01:40 | Add docs for sqlite-tools.rkt check-in: 11b31451 user: joel tags: trunk | |
Changes
Modified snippets-html.rkt from [38947f14] to [704d9dde].
︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | + | ;; joel@jdueck.net ;; https://joeldueck.com ;; ------------------------------------------------------------------------- ;; Provides functions for displaying content in HTML templates. (require pollen/core pollen/template pollen/decode racket/string txexpr openssl/sha1 "dust.rkt") (provide html$-page-head html$-page-body-open |
︙ | |||
52 53 54 55 56 57 58 | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | - - + | ◊string-append{<body><main> <a href="/"><header> <img src="/web-extra/logo.png" height="103" width="129" class="logo"> <h1>The Local Yarn</h1> </header></a>}) (define (html$-article-open title? title-html-flow published) |
︙ | |||
101 102 103 104 105 106 107 | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | - - + + | (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems))) (define disposition (cond [(non-empty-string? disposition-mark) `(span [[class "disposition-mark"]] ,disposition-mark)] [else ""])) (define body-elems (cond |
︙ |