diff options
author | 2010-11-13 19:09:35 +0100 | |
---|---|---|
committer | 2010-11-13 19:09:35 +0100 | |
commit | 1152ccf68ad2cc6605191005b314514de2bf92c5 (patch) | |
tree | e6ce666c825ad41c14a7a221e24f3da495fbc472 | |
parent | 0d4fc4e5011c6a3c5ca29b26abac5762dae48a49 (diff) | |
download | tekuti-1152ccf68ad2cc6605191005b314514de2bf92c5.tar.gz tekuti-1152ccf68ad2cc6605191005b314514de2bf92c5.zip |
(tekuti tags) uses (web uri)
* tekuti/tags.scm (tag-link): Use (web uri).
-rw-r--r-- | tekuti/tags.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tekuti/tags.scm b/tekuti/tags.scm index fde187b..04c1c42 100644 --- a/tekuti/tags.scm +++ b/tekuti/tags.scm @@ -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 @@ -26,7 +26,7 @@ (define-module (tekuti tags) #:use-module (tekuti util) - #:use-module (tekuti url) + #:use-module (web uri) #:use-module (tekuti config) #:use-module (tekuti post) #:use-module (tekuti git) @@ -36,8 +36,10 @@ reindex-tags)) (define (tag-link tagname) - `(a (@ (href ,(string-append *public-url-base* "tags/" - (url:encode tagname)))) + `(a (@ (href ,(string-append + "/" (encode-and-join-uri-path + (append *public-path-base* + (cons "tags" tagname)))))) ,tagname)) (define (compute-tags posts) |