Overview
| Comment: | Improve disposition marks in notes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f0e18f949aae09c5c0226a7a2fbe1220 |
| 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 | ;; 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)) | | | 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 |
;; Notes
;;
(define (html$-note-title pagenode parent-title)
(format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
pagenode
parent-title))
| | | > > > | 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 {
}
|
| ︙ | ︙ |