root/example-settings-eval

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(define (fib n)
  (if (<= n 2)
      1
      (+ (fib (- n 1)) (fib (- n 2))))) ;inefficient fib implementaiton


;; try running with URL=myurl infront of the guile command
(define url
  (if (getenv "URL")
      (getenv "URL")
      "you-can-use-env-variables-for-scripts-n-stuff"))

`((title . ,(string-append "code in your settings file: "
                           "fib 25 is "
                           (number->string (fib 25))))
  (credit-git-to-web . #f)
  ;; might get this relative to your user's directory or something
  (git-links . (("git://" . ,(string-append "git@" url ".org/")))))