Advertisement
Guest User

Untitled

a guest
Aug 18th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  1. diff --git a/hyde.scm b/hyde.scm
  2. index 589ae87..328743e 100644
  3. --- a/hyde.scm
  4. +++ b/hyde.scm
  5. @@ -1,10 +1,12 @@
  6. -(use hyde hyde-atom environments posix srfi-1)
  7. +(use hyde hyde-atom environments posix srfi-1 regex)
  8.  
  9. ;; This has been taken from the gazette's hyde config
  10. ;; Thanks to Moritz Heidkamp for that
  11.  
  12. (define root-path (make-parameter (string-append (current-directory) "/" (output-dir) "/")))
  13. -(root-path "/~ckeen/blog/")
  14. +(root-path "/blog/")
  15. +
  16. +(output-dir "~/www/nig.gs/blog/")
  17.  
  18. (define $ (environment-ref (page-eval-env) '$))
  19.  
  20. @@ -19,7 +21,7 @@
  21.  
  22. (define (pages-matching regex)
  23. (map cdr (filter (lambda (p) (string-match regex (car p)))
  24. - (environment-ref (page-eval-env) 'pages))))
  25. + ((environment-ref (page-eval-env) 'pages)))))
  26.  
  27. (define (page-url #!optional (page (current-page)))
  28. (string-append (root-path) (page-path page)))
  29. @@ -56,9 +58,9 @@
  30. (for-each (lambda (binding)
  31. (apply environment-extend! (cons (page-eval-env) binding)))
  32. `((page-updated ,page-updated)
  33. - (neat-date ,neat-date)
  34. + (neat-date ,(lambda () ""));,neat-date)
  35. (count-tags ,count-tags)
  36. - (max-articles ,(lambda () 5))
  37. + (max-articles ,(lambda () 20))
  38. (navigation-links ,navigation-links)
  39. (page-url ,page-url)
  40. (root-path ,root-path)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement