Index: code-docs/dust.scrbl ================================================================== --- code-docs/dust.scrbl +++ code-docs/dust.scrbl @@ -32,16 +32,26 @@ @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. + +@defthing[web-root path-string? #:value "/"] + +Specifies the path between the domain name and the root folder of the website generated by this +project. @deftogether[(@defthing[articles-folder path-string? #:value "articles"] @defthing[series-folder path-string? #:value "series"])] The names of the folders that contain the Pollen source documents for Articles and Series respectively, relative to the project’s document root. + +@defthing[images-folder path-string? #:value "images"] + +The name of the subfolders within @racket[articles-folder] and @racket[series-folder] used for +holding image files. @deftogether[(@defproc[(articles-pagetree) pagetree?] @defproc[(series-pagetree) pagetree?])] These are project-wide pagetrees: @racket[articles-pagetree] contains a pagenode for every Pollen Index: dust.rkt ================================================================== --- dust.rkt +++ dust.rkt @@ -29,12 +29,14 @@ tx-strs ymd->english ymd->dateformat default-authorname default-title + web-root articles-folder series-folder + images-folder articles-pagetree series-pagetree first-words build-note-id notes->last-disposition-values @@ -42,10 +44,12 @@ ) (define default-authorname "Joel Dueck") (define series-folder "series") (define articles-folder "articles") +(define images-folder "images") +(define web-root "/") (define (default-title body-txprs) (format "“~a…”" (first-words body-txprs 5))) (define (maybe-meta m [missing ""])