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

Overview
Comment:Fix title in template function
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 7b7da3d73accc516d46f0665fb649bc017965351a1f198d0f091c61d00275dcf
User & Date: joel on 2018-09-20 02:19:17
Other Links: manifest | tags
Context
2018-09-20
12:38
Dynamic footer text for articles. More comments in code. Clean up anchor links to notes. check-in: 9cf832ae user: joel tags: trunk
02:19
Fix title in template function check-in: 7b7da3d7 user: joel tags: trunk
2018-09-19
19:13
Remove debugging call check-in: 06f21d86 user: joel tags: trunk
Changes

Modified template-html.rkt from [7a13118b] to [325f21c3].

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>