Changeset 25868 in project
- Timestamp:
- 02/05/12 21:01:23 (9 years ago)
- Location:
- release/4/hyde/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/hyde/trunk/hyde.meta
r23255 r25868 5 5 (license "BSD") 6 6 (doc-from-wiki) 7 (needs filepath environments sxml-transforms doctype matchable (scss 0.3) (spiffy 4.9) colorize intarweb (uri-common 1.2) svnwiki-sxml defstruct multidoc atom rfc3339) 8 (files "hyde.meta" "hyde-atom.scm" "hyde.setup" "hyde.scm" "hyde-cmd.scm" "hyde.release-info")) 7 (needs filepath environments sxml-transforms doctype matchable (scss 0.3) (spiffy 4.9) colorize intarweb (uri-common 1.2) svnwiki-sxml defstruct multidoc atom rfc3339 big-chicken)) -
release/4/hyde/trunk/hyde.scm
r25415 r25868 80 80 (define current-page (make-parameter #f)) 81 81 (define pages (make-parameter '())) 82 (define page-eval-env (make-parameter (environment-copy (interaction-environment) #t))) 82 (define page-eval-env 83 (make-parameter 84 (environment-copy 85 (cond-expand 86 (module-environments 87 (module-environment 'big-chicken)) 88 (else 89 (interaction-environment))) 90 #t))) 83 91 84 92 (define-syntax define-hyde-environment … … 199 207 (define (pathify string) 200 208 (let* ((path (string-downcase string)) 201 (path (irregex-replace/all '(submatch (+ space)) path "-"))202 (path (irregex-replace/all '(submatch (+ ( ~ alpha #\-))) path "")))209 (path (irregex-replace/all '(submatch (+ (~ alpha #\- #\space))) path "")) 210 (path (irregex-replace/all '(submatch (+ (" -"))) path "-"))) 203 211 (string-trim-both path #\-))) 204 212 … … 214 222 path 215 223 (cons "" path))) 224 (path (cons (car path) 225 (remove string-null? (cdr path)))) 216 226 (path (string-join path "/")) 217 227 (path (if (string=? "" path) "/" path)) … … 388 398 389 399 (find-files (source-dir) 390 (conjoin (complement exclude-file?)391 include-file?)392 (lambda (file _)393 (pages (cons (classify-path file) (pages))))))400 test: (conjoin (complement exclude-file?) 401 include-file?) 402 action: (lambda (file _) 403 (pages (cons (classify-path file) (pages)))))) 394 404 395 405 (define (compile-pages path-prefixes)
Note: See TracChangeset
for help on using the changeset viewer.