@@ -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 ""])