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