◊(Local Yarn Code "Check-in [7ad10e98]")

Overview
Comment:Include Racket/Pollen version in HTML meta tags
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 7ad10e9875a252cf4237c061a8b60be2df6bf45e90c1c15ca1311de42d805477
User & Date: joel on 2019-06-05 18:28:08
Other Links: manifest | tags
Context
2019-06-09
14:39
Add alt attribute to logo image check-in: 8d9eca2e user: joel tags: trunk
2019-06-05
18:28
Include Racket/Pollen version in HTML meta tags check-in: 7ad10e98 user: joel tags: trunk
2019-06-01
20:43
[713fa32699] Make footnote links unique sitewide check-in: 62024c96 user: joel tags: trunk
Changes

Modified snippets-html.rkt from [09ba0c4a] to [a9377472].

1
2
3
4
5
6
7
8
9

10
11
12
13
14
15
16
#lang pollen/mode racket/base

; SPDX-License-Identifier: BlueOak-1.0.0
; This file is licensed under the Blue Oak Model License 1.0.0.

;; Provides functions for displaying content in HTML templates.
(require pollen/core
         pollen/template
         pollen/decode

         racket/string
         racket/function
         racket/list
         txexpr
         openssl/sha1
         "dust.rkt")










>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#lang pollen/mode racket/base

; SPDX-License-Identifier: BlueOak-1.0.0
; This file is licensed under the Blue Oak Model License 1.0.0.

;; Provides functions for displaying content in HTML templates.
(require pollen/core
         pollen/template
         pollen/decode
         pollen/private/version
         racket/string
         racket/function
         racket/list
         txexpr
         openssl/sha1
         "dust.rkt")

28
29
30
31
32
33
34

35
36
37
38
39
40
41
         html$-paginate-navlinks)

(define (html$-page-head [title #f])
  ◊string-append{<head>
 <title>◊if[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 [class ""])
  (define body-class (if (non-empty-string? class) (format " class=\"~a\"" class) ""))
  ◊string-append{<body◊|body-class|><main>
 <a href="/"><header>







>







29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
         html$-paginate-navlinks)

(define (html$-page-head [title #f])
  ◊string-append{<head>
 <title>◊if[title title ""] </title>
 <meta charset="utf-8" />
 <meta name="viewport" content="width=device-width, initial-scale=1">
 <meta name="generator" content="Racket ◊(version) + Pollen ◊|pollen:version|">
 <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>