Index: dust.rkt ================================================================== --- dust.rkt +++ dust.rkt @@ -38,19 +38,20 @@ 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 ""]) @@ -58,11 +59,11 @@ (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