Index: code-docs/dust.scrbl ================================================================== --- code-docs/dust.scrbl +++ code-docs/dust.scrbl @@ -37,22 +37,22 @@ @defthing[default-authorname string? #:value "Joel Dueck"] Used as the default author name for @code{note}s, and (possibly in the future) for articles generally. -@deftogether[(@defthing[articles-path path-string? #:value "articles"] - @defthing[series-path path-string? #:value "series"])] +@deftogether[(@defthing[articles-folder path-string? #:value "articles"] + @defthing[series-folder path-string? #:value "series"])] -The path of the folder that contains the Pollen source documents for Articles and Series +The names of the folders that contain the Pollen source documents for Articles and Series respectively, relative to the project’s document root. @deftogether[(@defproc[(articles-pagetree) pagetree?] @defproc[(series-pagetree) pagetree?])] These are project-wide pagetrees: @racket[articles-pagetree] contains a pagenode for every Pollen -document contained in @racket[articles-path], and @racket[series-pagetree] contains a pagenode for -every Pollen document in @racket[series-path]. The pagenodes themselves point to the rendered +document contained in @racket[articles-folder], and @racket[series-pagetree] contains a pagenode for +every Pollen document in @racket[series-folder]. The pagenodes themselves point to the rendered @tt{.html} targets of the source documents. @defproc[(here-output-path) path?] Returns the path to the current output file, relative to @racket[current-project-root]. If no metas Index: crystalize.rkt ================================================================== --- crystalize.rkt +++ crystalize.rkt @@ -166,14 +166,14 @@ ;; ~~~ (Mainly for use on Series pages ~~~ ;; (private) Create a WHERE clause matching a single series or list of series (define (where/series s) (cond [(list? s) - (let ([series (map (curry (format "~a/~a.html" series-path)) s)]) + (let ([series (map (curry (format "~a/~a.html" series-folder)) s)]) (format "WHERE `series_pagenode` IN ~a" (list->sql-values series)))] [(string? s) - (format "WHERE `series_pagenode` IS \"~a/~a.html\"" series-path s)] + (format "WHERE `series_pagenode` IS \"~a/~a.html\"" series-folder s)] [(equal? s #t) (format "WHERE `series_pagenode` IS \"~a\"" (here-output-path))] [else ""])) ;; (private) Return a combined list of articles and notes sorted by date Index: dust.rkt ================================================================== --- dust.rkt +++ dust.rkt @@ -43,23 +43,23 @@ tx-strs ymd->english ymd->dateformat default-authorname default-title - articles-path - series-path + articles-folder + series-folder articles-pagetree series-pagetree first-words build-note-id notes->last-disposition-values disposition-values ) (define default-authorname "Joel Dueck") -(define series-path "series") -(define articles-path "articles") +(define series-folder "series") +(define articles-folder "articles") (define (default-title body-txprs) (format "“~a…”" (first-words body-txprs 5))) (define (maybe-meta m [missing ""]) @@ -80,11 +80,11 @@ ;; or '|| if no series is specified. (define (series-pagenode) (define maybe-series (or (select-from-metas 'series (current-metas)) "")) (cond [(non-empty-string? maybe-series) - (->pagenode (format "~a/~a.html" series-path maybe-series))] + (->pagenode (format "~a/~a.html" series-folder maybe-series))] [else '||])) (define (series-noun) (define series-pnode (series-pagenode)) (case series-pnode @@ -107,14 +107,14 @@ (define folder-path (build-path (current-project-root) folder)) (define file-strs (map path->string (directory-list folder-path))) (map file->output-pagenode (filter matching-file? file-strs))) (define (articles-pagetree) - `(root ,@(include-in-pagetree articles-path ".poly.pm"))) + `(root ,@(include-in-pagetree articles-folder ".poly.pm"))) (define (series-pagetree) - `(root ,@(include-in-pagetree series-path ".poly.pm"))) + `(root ,@(include-in-pagetree series-folder ".poly.pm"))) ;; ~~~ Convenience functions for tagged x-expressions ~~~ (define (maybe-attr name attrs [missing ""]) (define result (assoc name attrs))