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

Overview
Comment:Add trailing slash to series-path/ and provide
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 63614f2e17c130195bba6810147319efcdc07f794f46291241d8035ee3658a15
User & Date: joel on 2019-02-17 23:01:29
Other Links: manifest | tags
Context
2019-02-17
23:03
Add to scribble documentation check-in: 8f6399e3 user: joel tags: trunk
23:01
Add trailing slash to series-path/ and provide check-in: 63614f2e user: joel tags: trunk
2019-02-11
05:15
Add makefile and beginnings of code docs check-in: e4d9446c user: joel tags: trunk
Changes

Modified dust.rkt from [498fe5c1] to [b26678f7].

36
37
38
39
40
41
42

43
44
45
46
47
48
49
50
51

52
53
54
55
56
57
58
59
60
61
62
63

64
65
66
67
68
69
70
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

52
53
54
55
56
57
58
59
60
61
62
63

64
65
66
67
68
69
70
71







+








-
+











-
+







         series-noun    ; Retrieve noun-singular from current 'series meta, or ""
         series-title   ; Retrieve title of series in current 'series meta, or ""
         attr-present?  ; Test if an attribute is present
         disposition-values
         ymd->english
         ymd->dateformat
         default-authorname
         series-path/
         default-title
         tx-strs
         first-words
         build-note-id
         notes->last-disposition-values
         )

(define default-authorname "Joel Dueck")
(define series-path "series/")
(define series-path/ "series/")

(define (default-title date)
  (format "Entry of ~a" (ymd->dateformat date "d MMM YYYY")))

(define (maybe-meta m [missing ""])
  (or (select-from-metas m (current-metas)) missing))

(define (series-pagenode)
  (define maybe-series (or (select-from-metas 'series (current-metas)) ""))
  (cond
    [(non-empty-string? maybe-series)
     (->pagenode (string-append series-path maybe-series ".html"))]
     (->pagenode (string-append series-path/ maybe-series ".html"))]
    [else '||]))

(define (series-noun)
  (define series-pnode (series-pagenode)) 
  (case series-pnode
    ['|| ""] ; no series specified
    [else (or (select-from-metas 'noun-singular series-pnode) "")]))