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/")))))