remove trailing whitespace

18 files changed, 226 insertions, 226 deletions

diff --git a/tekuti/base64.scm b/tekuti/base64.scm
index a7426cb..793682d 100644
--- a/tekuti/base64.scm
+++ b/tekuti/base64.scm
@@ -1,17 +1,17 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2012 Andy Wingo <wingo at pobox dot com>
 ;; Copyright (C) 2009 Andreas Rottmann <a dot rottmann at gmx dot at>
 
-;; This program is free software; you can redistribute it and/or    
-;; modify it under the terms of the GNU General Public License as   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -35,7 +35,7 @@
 
 (define (int->b64-byte i)
   (bytevector-u8-ref b64-bytes (logand i 63)))
- 
+
 (define b64-byte-ranges
   (map cons
        (map char->integer '(#\A #\a #\0 #\+ #\/))
diff --git a/tekuti/boot.scm b/tekuti/boot.scm
index bccb35d..1cce477 100644
--- a/tekuti/boot.scm
+++ b/tekuti/boot.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -45,7 +45,7 @@
     (let ((required (and=> (assq 'required (cdr opt)) cadr)))
       (format #f "~:[[~;~]--~a~@*~:[]~;~]"
               (assq 'required? (cdr opt)) (car opt))))
-        
+
   (format #t "usage: tekuti ~{~a~^ ~}~%"
           (map repr-option *option-grammar*)))
 
diff --git a/tekuti/cache.scm b/tekuti/cache.scm
index d487ee4..f7ef6a6 100644
--- a/tekuti/cache.scm
+++ b/tekuti/cache.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -34,7 +34,7 @@
   #:export (make-empty-cache
             cached-response-and-body
             update-cache))
-            
+
 (define (cacheable-request? request)
   (and (memq (request-method request) '(GET HEAD))
        (not (request-authorization request))
diff --git a/tekuti/comment.scm b/tekuti/comment.scm
index 8d3b018..dda9388 100644
--- a/tekuti/comment.scm
+++ b/tekuti/comment.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; Copyright (C) 2008, 2010, 2012 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
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -127,7 +127,7 @@
   (let ((content (assoc-ref post-data "comment"))
         (author (assoc-ref post-data "author"))
         (email (assoc-ref post-data "email"))
-        (url (assoc-ref post-data "url"))) 
+        (url (assoc-ref post-data "url")))
     (let ((sha1 (with-output-to-blob
                  (for-each
                   (lambda (pair)
diff --git a/tekuti/config.scm b/tekuti/config.scm
index c8553ae..65fd182 100644
--- a/tekuti/config.scm
+++ b/tekuti/config.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
diff --git a/tekuti/filters.scm b/tekuti/filters.scm
index 2fbb767..be37d0c 100644
--- a/tekuti/filters.scm
+++ b/tekuti/filters.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2011, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -51,7 +51,7 @@
         (cons x (or p '()))))
   (define (pbreak p)
     (if p (cons '(br) p) p))
-  
+
   (let* ((head (if (and (pair? (car body))
                         (eq? (caar body) '@))
                    (list tag (car body))
diff --git a/tekuti/git.scm b/tekuti/git.scm
index e4e9b05..4bc7d60 100644
--- a/tekuti/git.scm
+++ b/tekuti/git.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; Copyright (C) 2008, 2010, 2011, 2012 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
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -44,7 +44,7 @@
             git-commit-tree git-rev-list git-revert
 
             munge-tree munge-tree1 parse-commit commit-utc-timestamp
-            
+
             with-output-to-blob with-input-from-blob))
 
 
@@ -65,7 +65,7 @@
 
 ;;;
 ;;; running git
-;;; 
+;;;
 
 (define *debug* #f)
 (define (trc . args)
@@ -114,7 +114,7 @@
 
 ;;;
 ;;; git commands
-;;; 
+;;;
 
 (define (is-dir? path)
   (catch 'system-error
@@ -215,9 +215,9 @@
                          (format #f "GIT_AUTHOR_DATE=~a +0100" timestamp))
                    (list "GIT_COMMMITTER=tekuti")))))
 
-;;; 
+;;;
 ;;; utilities
-;;; 
+;;;
 
 ;; unused.
 (define (patch-blob sha1 patch)
diff --git a/tekuti/index.scm b/tekuti/index.scm
index 1cd2d37..4d7d4fe 100644
--- a/tekuti/index.scm
+++ b/tekuti/index.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -55,7 +55,7 @@
 (define (index->blob key value)
   (with-output-to-blob
    ((assoc-list-ref index-specs key 2 write) value)))
-  
+
 (define (blob->index name sha1)
   (with-input-from-blob
    sha1
diff --git a/tekuti/match-bind.scm b/tekuti/match-bind.scm
index 35a28b4..f5bf3f5 100644
--- a/tekuti/match-bind.scm
+++ b/tekuti/match-bind.scm
@@ -1,16 +1,16 @@
 ;; (match-bind) -- binding variables from regular expression matches
-;; Copyright (C) 2007, 2009, 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2007, 2009, 2010, 2012 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 published by
 ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.
-;; 
+;;
 ;; This program is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
-;; 
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
@@ -52,7 +52,7 @@
        (if (or (= start -1) (= end -1))
            #f
            (substring (vector-ref m 0) start end))))))
-         
+
 (define *cache* (make-weak-key-hash-table))
 (define (memoize-re regex)
   (cond
diff --git a/tekuti/mod-lisp.scm b/tekuti/mod-lisp.scm
index 951068f..2cce557 100644
--- a/tekuti/mod-lisp.scm
+++ b/tekuti/mod-lisp.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; Copyright (C) 2008, 2010, 2011, 2012 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
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -108,7 +108,7 @@
 
 (define (write-headers/mod-lisp headers port)
   (for-each
-   (lambda (pair) 
+   (lambda (pair)
      (write-header/mod-lisp (car pair) (cdr pair) port))
    headers))
 
diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index 4b4c7ff..15d5650 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -113,7 +113,7 @@
 (define* (relative-url uri path-components #:key query fragment)
   (uri->string
    (build-uri (uri-scheme uri)
-              #:userinfo (uri-userinfo uri) #:host (uri-host uri) 
+              #:userinfo (uri-userinfo uri) #:host (uri-host uri)
               #:port (uri-port uri)
               #:path (encode-and-join-uri-path
                       (append (split-and-decode-uri-path (uri-path uri))
@@ -236,7 +236,7 @@
                  (value "Submit Comment"))))))
 
 (define (comments-sxml-content-edit post)
-  (map 
+  (map
    (lambda (comment)
      (let ((id (assq-ref comment 'key)))
        `(,(comment-sxml-content comment)
@@ -246,7 +246,7 @@
                 (input (@ (type "submit") (name "delete") (value "delete"))))
          (br))))
    (post-comments post)))
-  
+
 (define (post-sxml-comments post)
   (let ((comments (post-comments post))
         (comments-open? (post-comments-open? post)))
@@ -297,7 +297,7 @@
     (if hash
         (dsu-sort
          (take-max
-          (dsu-sort         
+          (dsu-sort
            (hash-fold (lambda (k v seed) (acons k (length v) seed))
                       '() hash)
            cdr >) n)
diff --git a/tekuti/page.scm b/tekuti/page.scm
index 0fac648..58ad45e 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2011, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -41,20 +41,20 @@
             page-admin-posts
             page-admin-post
             page-admin-new-post
-            page-admin-modify-post 
-            page-admin-delete-post 
+            page-admin-modify-post
+            page-admin-delete-post
             page-admin-delete-comment
-            page-admin-changes 
+            page-admin-changes
             page-admin-change
             page-admin-revert-change
-            page-index 
-            page-show-post 
+            page-index
+            page-show-post
             page-new-comment
-            page-archives 
+            page-archives
             page-show-tags
             page-show-tag
-            page-debug 
-            page-search 
+            page-debug
+            page-search
             page-feed-atom
             page-debug
             page-not-found))
@@ -126,14 +126,14 @@
      (let ((post (modify-post key (request-form-data request body))))
        (respond `((p "redirecting..."))
                 #:redirect (admin-post-url post))))))
-     
+
 (define (page-admin-delete-post request body index key)
   (with-authentication
    request
    (lambda ()
      (delete-post (post-from-key index key #:allow-unpublished? #t))
      (respond `((p "redirecting...")) #:redirect (relurl `("admin"))))))
-     
+
 (define (page-admin-delete-comment request body index key comment-id)
   (with-authentication
    request
@@ -141,8 +141,8 @@
      (let ((post (post-from-key index key #:allow-unpublished? #t)))
        (delete-comment post comment-id)
        (respond `((p "redirecting...")) #:redirect (admin-post-url post))))))
-     
-(define (page-admin-changes request body index) 
+
+(define (page-admin-changes request body index)
   (with-authentication
    request
    (lambda ()
@@ -160,7 +160,7 @@
                                 #:query
                                 `(("start" . ,(caar (last-pair revs))))))))))))
 
-(define (page-admin-change request body index sha1) 
+(define (page-admin-change request body index sha1)
   (with-authentication
    request
    (lambda ()
@@ -239,7 +239,7 @@
             (lambda (post) #t)))
       (define (make-date-header post)
         (lambda (x) #f))
-    
+
       (let lp ((posts (latest-posts index #:limit -1)))
         (cond ((or (null? posts) (too-early? (car posts)))
                (respond `((h1 "No posts found")
@@ -289,7 +289,7 @@
                        ")")
                    ,@(map (lambda (post) `(p ,(post-link post)))
                           posts)
-                   ,(related-tag-cloud tag index)) 
+                   ,(related-tag-cloud tag index))
                  #:etag (assq-ref index 'master)
                  #:title (string-append "posts tagged \"" tag "\""))
         (respond `((h2 "Unknown tag " ,tag)
@@ -361,7 +361,7 @@
                       (cont post)))))
             (lambda (post) #f)
             without))
-    
+
     (atom-feed-from-posts
      request body index
      (latest-posts index
diff --git a/tekuti/post.scm b/tekuti/post.scm
index 2198b6c..6ba9bcf 100644
--- a/tekuti/post.scm
+++ b/tekuti/post.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2011, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -85,9 +85,9 @@
         post
         #f)))
 
-;;; 
+;;;
 ;;; accessors
-;;; 
+;;;
 
 (define (post-published? post-alist)
   (equal? (assq-ref post-alist 'status) "publish"))
@@ -145,7 +145,7 @@
                     '(timestamp tags status title name comment_status))))
         (content (with-output-to-blob (display (assq-ref parsed 'body))))
         (key (assq-ref parsed 'key))
-        (message (format #f "~a: \"~a\"" 
+        (message (format #f "~a: \"~a\""
                          (if old-key "post modified" "new post")
                          (assq-ref parsed 'title))))
     (define (maybe-rename ops)
diff --git a/tekuti/request.scm b/tekuti/request.scm
index c198a52..8f9c10f 100644
--- a/tekuti/request.scm
+++ b/tekuti/request.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2011, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
diff --git a/tekuti/tags.scm b/tekuti/tags.scm
index 55bea42..c6c2dea 100644
--- a/tekuti/tags.scm
+++ b/tekuti/tags.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
 ;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
diff --git a/tekuti/template.scm b/tekuti/template.scm
index fef35a7..79293ef 100644
--- a/tekuti/template.scm
+++ b/tekuti/template.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
diff --git a/tekuti/util.scm b/tekuti/util.scm
index cfc91fb..176fc5b 100644
--- a/tekuti/util.scm
+++ b/tekuti/util.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; Copyright (C) 2008, 2010, 2011, 2012 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
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -98,7 +98,7 @@
                              (display ch)))
                        str)
       (display #\'))))
-      
+
 (define (expanduser path)
   (let ((parts (string-split path #\/)))
     (if (eqv? (string-ref (car parts) 0) #\~)
diff --git a/tekuti/web.scm b/tekuti/web.scm
index d88bb2f..faabcb7 100644
--- a/tekuti/web.scm
+++ b/tekuti/web.scm
@@ -1,16 +1,16 @@
 ;; Tekuti
-;; Copyright (C) 2008, 2010, 2011 Andy Wingo <wingo at pobox dot com>
+;; Copyright (C) 2008, 2010, 2011, 2012 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   
-;; published by the Free Software Foundation; either version 3 of   
-;; the License, or (at your option) any later version.              
-;;                                                                  
-;; This program is distributed in the hope that it will be useful,  
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of   
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    
-;; GNU General Public License for more details.                     
-;;                                                                  
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; if not, contact:
 ;;
@@ -32,7 +32,7 @@
   #:use-module (tekuti page)
   #:use-module (tekuti config)
   #:export (main-loop))
-            
+
 (define (choose-handler request)
   (request-path-case
    request