aliens/tekuti
1
0
Fork 0
Code Activity

(tekuti tags) uses (web uri)

Browse source 
* tekuti/tags.scm (tag-link): Use (web uri).
This commit is contained in:
Andy Wingo 2010-11-13 19:09:35 +01:00
parent 0d4fc4e501
commit 1152ccf68a
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tekuti/tags.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; 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 ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -26,7 +26,7 @@
(define-module (tekuti tags) (define-module (tekuti tags)
#:use-module (tekuti util) #:use-module (tekuti util)
#:use-module (tekuti url) #:use-module (web uri)
#:use-module (tekuti config) #:use-module (tekuti config)
#:use-module (tekuti post) #:use-module (tekuti post)
#:use-module (tekuti git) #:use-module (tekuti git)
@ -36,8 +36,10 @@
reindex-tags)) reindex-tags))
(define (tag-link tagname) (define (tag-link tagname)
`(a (@ (href ,(string-append *public-url-base* "tags/" `(a (@ (href ,(string-append
(url:encode tagname)))) "/" (encode-and-join-uri-path
(append *public-path-base*
(cons "tags" tagname))))))
,tagname)) ,tagname))
(define (compute-tags posts) (define (compute-tags posts)