radiofreqs
/
cl-yag
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing gopher RSS url

This commit is contained in:
Solene Rapenne 2018-05-15 09:26:20 +02:00
parent f28ae44a21
commit 4a5228a380
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
generator.lisp
View File

@ -126,9 +126,9 @@
;; get the converter object of "article" ;; get the converter object of "article"
(defmacro with-converter(&body code) (defmacro with-converter(&body code)
`(progn `(progn
(let ((converter-name (let ((converter-name (if (article-converter article)
(or (article-converter article) (article-converter article)
(getf *config* :default-converter)))) (getf *config* :default-converter))))
(let ((converter-object (getf *converters* converter-name))) (let ((converter-object (getf *converters* converter-name)))
,@code)))) ,@code))))
@ -228,7 +228,7 @@
;; produce the code of a whole page with title+layout with the parameter as the content ;; produce the code of a whole page with title+layout with the parameter as the content
(defun generate-layout(body &optional &key (title nil)) (defun generate-layout(body &optional &key (title nil))
(prepare "templates/layout.tpl" (prepare "templates/layout.tpl"
(template "%%Title%%" (or title (getf *config* :title))) (template "%%Title%%" (if title title (getf *config* :title)))
(template "%%Tags%%" (get-tag-list)) (template "%%Tags%%" (get-tag-list))
(template "%%Body%%" body) (template "%%Body%%" body)
output)) output))
@ -263,7 +263,7 @@
(subseq (getf (article-date article) :monthname) 0 3))) (subseq (getf (article-date article) :monthname) 0 3)))
(template "%%Url%%" (template "%%Url%%"
(if gopher (if gopher
(format nil "gopher://~a:~d/0~a/~a.txt" (format nil "gopher://~a:~d/0~a/article-~a.txt"
(getf *config* :gopher-server) (getf *config* :gopher-server)
(getf *config* :gopher-port) (getf *config* :gopher-port)
(getf *config* :gopher-path) (getf *config* :gopher-path)