Overview
| Comment: | Add ‘Local Yarn Site Notes’ series |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b723c75dae79519989ed5f5fc06e4f46 |
| User & Date: | joel on 2020-05-04 02:03:00 |
| Other Links: | manifest | tags |
Context
|
2020-05-04
| ||
| 02:04 | Replace uses of undefined ‘cite’ tag with ‘attrib’ check-in: acdb5b41 user: joel tags: trunk, errata | |
| 02:03 | Add ‘Local Yarn Site Notes’ series check-in: b723c75d user: joel tags: trunk | |
| 02:01 | Further mess with index entries in ‘Goodnight, Irene: Scene 1’ check-in: b4be51b7 user: joel tags: trunk, errata | |
Changes
Modified series-list.rkt from [88c1de55] to [ebdb6c3d].
| ︙ | ︙ | |||
14 15 16 17 18 19 20 |
(struct series (key title noun-plural noun-singular ptree-ordered?))
(define series-list
(make-immutable-hash
(list
;; ------- DEFINE SERIES HERE -----------
; Key Title plural noun singular noun phrase
| | > | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
(struct series (key title noun-plural noun-singular ptree-ordered?))
(define series-list
(make-immutable-hash
(list
;; ------- DEFINE SERIES HERE -----------
; Key Title plural noun singular noun phrase
(+series "marquee-fiction" "Marquee Fiction" "Inventions" "an invention" #f)
(+series "local-yarn" "Local Yarn Site Notes" "Project notes" "a project note" #f)
)))
(define (series-grouped-list)
(group-by series-noun-plural (hash-values series-list)))
;; Quick macro to save a little typing
(define-syntax-rule (+series key title plural singular ptree)
(cons key (series key title plural singular ptree)))
(provide (struct-out series)
series-list
series-grouped-list)
|