◊(Local Yarn Code "Check-in [8d9eca2e]")

Overview
Comment:Add alt attribute to logo image
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 8d9eca2eda2618465cfa46369cbb1ca523641c866eaea9e9b6ea6d5e814ca5b8
User & Date: joel on 2019-06-09 14:39:12
Other Links: manifest | tags
Context
2019-06-09
15:36
Don't wrap notes in p tags check-in: c2db2077 user: joel tags: trunk
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
Changes

Modified snippets-html.rkt from [a9377472] to [2691057c].

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">