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

Overview
Comment:Use semicolons to separate indexed keywords specified in metas; allows use of commas in the index entry
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 474b55608ae10bedf7306f651764a280d0f80b90db13ad1f3905f6d561d93415
User & Date: joel on 2020-03-24 02:37:08
Other Links: manifest | tags
Context
2020-03-24
03:26
Style updates for headings, lists, and separators check-in: 34d3bec4 user: joel tags: trunk
02:37
Use semicolons to separate indexed keywords specified in metas; allows use of commas in the index entry check-in: 474b5560 user: joel tags: trunk
2020-03-22
17:48
Improve accuracy of long-s typesetting rules check-in: ac35ba69 user: joel tags: trunk
Changes

Modified crystalize.rkt from [f3846856] to [6da95dad].

240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
      #:entry main
      #:subentry sub
      #:page pagenode
      #:html-anchor (attr-ref tx 'id))]))

;; Get index entries out of metas
(define (current-metas-keyword-entries pagenode)
  (for/list ([kw (in-list (string-split (maybe-meta 'keywords "") #px",\\s*"))])
    (match (split-entry kw)
      [(list main sub)
       (make-cache:index-entry
        #:entry main
        #:subentry sub
        #:page pagenode
        #:html-anchor "")])))







|







240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
      #:entry main
      #:subentry sub
      #:page pagenode
      #:html-anchor (attr-ref tx 'id))]))

;; Get index entries out of metas
(define (current-metas-keyword-entries pagenode)
  (for/list ([kw (in-list (string-split (maybe-meta 'keywords "") #px";\\s*"))])
    (match (split-entry kw)
      [(list main sub)
       (make-cache:index-entry
        #:entry main
        #:subentry sub
        #:page pagenode
        #:html-anchor "")])))