aliens/tekuti
1
0
Fork 0
Code Activity

templatize uses (web uri)

Browse source 
* tekuti/template.scm (templatize): Use define* and keyword args instead
  of taking a "request" object. Use (web uri) for URI work.
This commit is contained in:
Andy Wingo 2010-11-13 19:08:59 +01:00
parent 820b449cbc
commit 0d4fc4e501
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tekuti/template.scm
View file

@ -1,5 +1,5 @@
;; Tekuti
;; Copyright (C) 2008 Andy Wingo <wingo at pobox dot com>
;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@ -25,13 +25,16 @@
;;; Code:
(define-module (tekuti template)
#:use-module (tekuti request)
#:use-module (web uri)
#:use-module (tekuti config)
#:export (templatize))
(define (templatize request)
(define* (templatize #:key
(title *title*)
(body '((p "(missing content?)"))))
(define (href . args)
`(href ,(apply string-append *public-url-base* args)))
`(href ,(string-append "/" (encode-and-join-uri-path
(append *public-path-base* args)))))
(define (list-join l infix)
"Infixes @var{infix} into list @var{l}."
(if (null? l) l
@ -47,7 +50,7 @@
*navbar-links*)
*navbar-infix*)))))
`(html
(head (title ,(rref request 'title *title*))
(head (title ,title)
(meta (@ (name "Generator")
(content "An unholy concoction of parenthetical guile")))
(link (@ (rel "stylesheet")
@ -59,8 +62,7 @@
(h1 (@ (id "header"))
(a (@ ,(href "")) ,*title*))
,@(make-navbar)
(div (@ (id "content"))
,@(rref request 'body '((p "(missing content?)"))))
(div (@ (id "content")) ,@body)
(div (@ (id "footer"))
"powered by "
(a (@ (href "http://wingolog.org/software/tekuti/"))