118
119
120
121
122
123
124
125
126
127
128
|
118
119
120
121
122
123
124
125
126
127
128
|
-
+
|
(define series-file (build-path (current-project-root)
series-folder
(format "~a.poly.pm" series-name)))
(when (file-exists? series-file)
(case (system-type 'os)
['windows (system (format "type nul >> ~a" series-file))]
[(windows) (system (format "type nul >> ~a" series-file))]
[else (system (format "touch ~a" series-file))]))))
;; ~~~ Project-wide Pagetrees ~~~
(define (include-in-pagetree folder extension)
|
