Local Yarn Code

Check-in [cda214e8]
Overview
Comment:Add constants for web root and images subfolder
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: cda214e8154a2ffc4705a5e85a07fb2cc917b01246991f78c9c60d00520331f3
User & Date: joel on 2019-05-27 16:48:52
Other Links: manifest | tags
Context
2019-05-27
20:13
Make disposition marks superscript check-in: 0c319933 user: joel tags: trunk
16:48
Add constants for web root and images subfolder check-in: cda214e8 user: joel tags: trunk
2019-05-26
20:33
No more smartypants-style quote/dash processing check-in: 3c7620a3 user: joel tags: trunk
Changes

Modified code-docs/dust.scrbl from [3d9b01e1] to [aa4ce70b].

30
31
32
33
34
35
36





37
38
39
40
41
42





43
44
45
46
47
48
49

@section{Constants}

@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-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.






@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-folder], and @racket[series-pagetree] contains a pagenode for
every Pollen document in @racket[series-folder]. The pagenodes themselves point to the rendered







>
>
>
>
>






>
>
>
>
>







30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

@section{Constants}

@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
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

Modified dust.rkt from [d10d5d6e] to [30ceaf46].

27
28
29
30
31
32
33

34
35

36
37
38
39
40
41
42
43
44
45
46


47
48
49
50
51
52
53
         invalidate-series
         make-tag-predicate
         tx-strs
         ymd->english
         ymd->dateformat
         default-authorname
         default-title

         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-folder "series")
(define articles-folder "articles")



(define (default-title body-txprs)
  (format "“~a…”" (first-words body-txprs 5)))

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







>


>











>
>







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
         invalidate-series
         make-tag-predicate
         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
         disposition-values
         )

(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 ""])
  (cond [(current-metas) (or (select-from-metas m (current-metas)) missing)]
        [else missing]))