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 +;; Copyright (C) 2008, 2010, 2012 Andy Wingo ;; Copyright (C) 2009 Andreas Rottmann -;; 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 +;; Copyright (C) 2008, 2010, 2012 Andy Wingo -;; 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 +;; Copyright (C) 2010, 2012 Andy Wingo -;; 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 +;; Copyright (C) 2008, 2010, 2012 Andy Wingo -;; 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: ;; @@ -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 +;; Copyright (C) 2008, 2010, 2012 Andy Wingo -;; 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 +;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo -;; 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 +;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo -;; 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: ;; @@ -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 -;; 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 +;; Copyright (C) 2007, 2009, 2010, 2012 Andy Wingo ;; 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 . @@ -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 +;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo -;; 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: ;; @@ -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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 +;; Copyright (C) 2008, 2010, 2012 Andy Wingo -;; 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 +;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo -;; 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: ;; @@ -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 +;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo -;; 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