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

Overview
Comment:Improve disposition marks in notes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f0e18f949aae09c5c0226a7a2fbe12205aa2f4734ef4d0f45cb2e0ecf29c7d97
User & Date: joel on 2019-06-23 18:42:38
Other Links: manifest | tags
Context
2019-06-29
21:16
Start using the SQLite cache for series metas check-in: 829c503e user: joel tags: trunk
2019-06-23
18:42
Improve disposition marks in notes check-in: f0e18f94 user: joel tags: trunk
16:40
Fix verse italic attribute to match docs check-in: d42e2609 user: joel tags: trunk
Changes

Modified crystalize.rkt from [e76d71c3] to [c89fc8e8].

317
318
319
320
321
322
323
324

325
326
327
328
329
330
331
317
318
319
320
321
322
323

324
325
326
327
328
329
330
331







-
+







  
  ;; Parse out remaining columns
  (define author (maybe-attr 'author attrs default-authorname))
  (define note-id (build-note-id note-tx))
  (define title-html-flow (html$-note-title pagenode parent-title-plain))
  (define author-url (maybe-attr 'author-url attrs))
  (define-values (disp-mark disp-verb) (disposition-values disposition-attr))
  (define content-html (html$-note-contents disp-mark (get-elements note-tx)))
  (define content-html (html$-note-contents disp-mark disp-verb (get-elements note-tx)))
  (define listing-full-html
    (html$-note-listing-full pagenode note-id title-html-flow note-date content-html author author-url))

  (define note-record
    (list pagenode
          note-id
          title-html-flow

Modified snippets-html.rkt from [4461a813] to [2a3a4102].

82
83
84
85
86
87
88
89

90
91
92




93
94
95
96
97
98
99
82
83
84
85
86
87
88

89
90
91

92
93
94
95
96
97
98
99
100
101
102







-
+


-
+
+
+
+







;; Notes
;;
(define (html$-note-title pagenode parent-title)
  (format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
          pagenode
          parent-title))

(define (html$-note-contents disposition-mark elems)
(define (html$-note-contents disposition-mark disposition-verb elems)
  (define disposition
    (cond [(non-empty-string? disposition-mark)
           `(span [[class "disposition-mark"]] ,disposition-mark)]
           `(abbr [[class "disposition-mark-in-note"]
                   [title ,(string-append "The original article is herewith considered "
                                          disposition-verb)]]
                  ,disposition-mark)]
          [else ""]))
  (define body-elems
    (cond
      [(and (block-txexpr? (car elems)) (non-empty-string? disposition-mark))
       (define-values (first-tag first-attrs first-elems) (txexpr->values (car elems)))
       (cons (txexpr first-tag first-attrs (cons disposition first-elems)) (cdr elems))]
      [else

Modified web-extra/martin.css.pp from [6fb3e79c] to [b15dae84].

593
594
595
596
597
598
599









600
601
602
603
604
605
606
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615







+
+
+
+
+
+
+
+
+








    .disposition-mark {
        color: ◊color-xrefmark;
        position: relative;
        top: -0.5em;
        font-size: 0.83em;
    }

    .disposition-mark-in-note {
        background: ◊color-xrefmark;
        color: white;
        border-radius: 0.08em;
        padding: 0 0.1em;
        margin: 0 0.4em 0 0;
        text-decoration: none !important;
    }

    /* ******* (Mobile first) Journal View styling *******
     */

    section.content-block {
    }