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







|







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 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
;; 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 disposition
    (cond [(non-empty-string? disposition-mark)
           `(span [[class "disposition-mark"]] ,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







|


|
>
>
>







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 disposition-verb elems)
  (define disposition
    (cond [(non-empty-string? 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

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










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

    section.content-block {
    }








>
>
>
>
>
>
>
>
>







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 {
    }