Changeset 21471 in project


Ignore:
Timestamp:
11/15/10 00:14:32 (9 years ago)
Author:
Moritz Heidkamp
Message:

hyde: update to latest scss and make pages' binding in page-eval-env' a thunk

Location:
release/4/hyde/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/hyde/trunk/hyde.meta

    r21377 r21471  
    55 (license "BSD")
    66 (doc-from-wiki)
    7  (needs filepath environments sxml-transforms doctype matchable scss spiffy colorize intarweb (uri-common 1.2) svnwiki-sxml defstruct multidoc atom rfc3339))
     7 (needs filepath environments sxml-transforms doctype matchable (scss 0.3) spiffy colorize intarweb (uri-common 1.2) svnwiki-sxml defstruct multidoc atom rfc3339))
  • release/4/hyde/trunk/hyde.scm

    r21377 r21471  
    3535     matchable
    3636     scss
    37      scss-plus
    3837     spiffy
    3938     srfi-18
     
    305304    (lambda (meta)
    306305      (parameterize ((current-page page) (page-eval-env env))
    307 
    308         (environment-set! (page-eval-env) 'pages (pages))
    309         (environment-set! (page-eval-env) 'uri-path-prefix (uri-path-prefix))
    310                  
    311306        (translate)))))
    312307
     
    384379(define (prepare-compilation)
    385380  (pages (list (classify-path (source-dir))))
     381  (environment-set! (page-eval-env) 'uri-path-prefix (uri-path-prefix))
     382  (environment-set! (page-eval-env) 'pages pages)
    386383
    387384  (find-files (source-dir)
     
    430427    (unless (eof-object? sexp)
    431428      (let ((scss (eval sexp (page-eval-env))))
    432         (print (match scss
    433                  (('css  . ...) (scss->css scss))
    434                  (('css+ . ...) (scss-plus->css scss))
    435                  (...           (scss-plus->css (cons 'css+ scss))))))
     429        (scss->css (if (memq (car scss) '(css css+))
     430                       scss
     431                       (cons 'css+ scss))))
    436432      (loop (read)))))
    437433
Note: See TracChangeset for help on using the changeset viewer.