Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/hyde.scm b/hyde.scm
- index 589ae87..328743e 100644
- --- a/hyde.scm
- +++ b/hyde.scm
- @@ -1,10 +1,12 @@
- -(use hyde hyde-atom environments posix srfi-1)
- +(use hyde hyde-atom environments posix srfi-1 regex)
- ;; This has been taken from the gazette's hyde config
- ;; Thanks to Moritz Heidkamp for that
- (define root-path (make-parameter (string-append (current-directory) "/" (output-dir) "/")))
- -(root-path "/~ckeen/blog/")
- +(root-path "/blog/")
- +
- +(output-dir "~/www/nig.gs/blog/")
- (define $ (environment-ref (page-eval-env) '$))
- @@ -19,7 +21,7 @@
- (define (pages-matching regex)
- (map cdr (filter (lambda (p) (string-match regex (car p)))
- - (environment-ref (page-eval-env) 'pages))))
- + ((environment-ref (page-eval-env) 'pages)))))
- (define (page-url #!optional (page (current-page)))
- (string-append (root-path) (page-path page)))
- @@ -56,9 +58,9 @@
- (for-each (lambda (binding)
- (apply environment-extend! (cons (page-eval-env) binding)))
- `((page-updated ,page-updated)
- - (neat-date ,neat-date)
- + (neat-date ,(lambda () ""));,neat-date)
- (count-tags ,count-tags)
- - (max-articles ,(lambda () 5))
- + (max-articles ,(lambda () 20))
- (navigation-links ,navigation-links)
- (page-url ,page-url)
- (root-path ,root-path)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement