File tree Expand file tree Collapse file tree 3 files changed +8
-4
lines changed Expand file tree Collapse file tree 3 files changed +8
-4
lines changed Original file line number Diff line number Diff line change 3939(define (copy-annual-site! site starting-dir year
4040 #:current [current? #f ]
4141 #:copy-current-index? [copy-current-index? #t ])
42- (for* ([p (in-directory starting-dir)]
42+ (define subdirs '("fonts " "slides " ))
43+ (for* ([p (in-directory starting-dir (lambda (dir)
44+ (not (for/or ([subdir (in-list subdirs)])
45+ (equal? (build-path starting-dir subdir) dir)))))]
4346 [fn (in-value (filename p))]
44- [ext (in-list '(#".html " #".css " #".svg " #".png " #".jpg " ))]
47+ [ext (in-list '(#".html " #".css " #".svg " #".png " #".jpg " #" .pdf " ))]
4548 #:unless (or (not (path-has-extension? fn ext))
4649 (excluded-path? fn)
4750 (and current?
6871 (if current? null (list year))
6972 (list subdir-name (filename p)))) "/ " )))))
7073
71- (copy-subdir-if-extant "fonts " )
72- (copy-subdir-if-extant "slides " ))
74+ (for-each copy-subdir-if-extant subdirs))
Original file line number Diff line number Diff line change @@ -803,6 +803,8 @@ Gathering with drinks and snacks.
803803
804804 (column
805805
806+ @vpara{@a[#:href "umb-navigation.pdf " ]{Navigation Summary (PDF)}}
807+
806808 @fromplace{From DoubleTree Boston Bayside}
807809
808810 @vpara{Walk (15-20 minutes):}
You can’t perform that action at this time.
0 commit comments