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 39
39
(define (copy-annual-site! site starting-dir year
40
40
#:current [current? #f ]
41
41
#: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)))))]
43
46
[fn (in-value (filename p))]
44
- [ext (in-list '(#".html " #".css " #".svg " #".png " #".jpg " ))]
47
+ [ext (in-list '(#".html " #".css " #".svg " #".png " #".jpg " #" .pdf " ))]
45
48
#:unless (or (not (path-has-extension? fn ext))
46
49
(excluded-path? fn)
47
50
(and current?
68
71
(if current? null (list year))
69
72
(list subdir-name (filename p)))) "/ " )))))
70
73
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.
803
803
804
804
(column
805
805
806
+ @vpara{@a[#:href "umb-navigation.pdf " ]{Navigation Summary (PDF)}}
807
+
806
808
@fromplace{From DoubleTree Boston Bayside}
807
809
808
810
@vpara{Walk (15-20 minutes):}
You can’t perform that action at this time.
0 commit comments