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

Overview
Comment:Add ‘Local Yarn Site Notes’ series
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b723c75dae79519989ed5f5fc06e4f46384d09bc49065d61092ae5e7394effdd
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
21

22
23
24
25
26
27
28
29
30
31
32
33
(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)

   )))

(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)







|
>












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)