irename template to templates - cl-yag - Common Lisp Yet Another website Generator Err bitreich.org 70
hgit clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ URL:git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ bitreich.org 70
1Log /scm/cl-yag/log.gph bitreich.org 70
1Files /scm/cl-yag/files.gph bitreich.org 70
1Refs /scm/cl-yag/refs.gph bitreich.org 70
1Tags /scm/cl-yag/tag bitreich.org 70
1README /scm/cl-yag/file/README.md.gph bitreich.org 70
1LICENSE /scm/cl-yag/file/LICENSE.gph bitreich.org 70
i--- Err bitreich.org 70
1commit c50345cdbd29f5e9c0a91ca3666e4ff93590aba6 /scm/cl-yag/commit/c50345cdbd29f5e9c0a91ca3666e4ff93590aba6.gph bitreich.org 70
1parent 3343e6ee5c94e72efdf49a1ebf6490529ee00bd8 /scm/cl-yag/commit/3343e6ee5c94e72efdf49a1ebf6490529ee00bd8.gph bitreich.org 70
hAuthor: Solene Rapenne <solene@perso.pw> URL:mailto:solene@perso.pw bitreich.org 70
iDate: Fri, 17 Nov 2017 14:51:35 +0000 Err bitreich.org 70
i Err bitreich.org 70
irename template to templates Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M generator.lisp | 14 +++++++------- Err bitreich.org 70
i R template/article.tpl -> templates/… | 0 Err bitreich.org 70
i R template/gopher_head.tpl -> templa… | 0 Err bitreich.org 70
i R template/layout.tpl -> templates/l… | 0 Err bitreich.org 70
i R template/one-tag.tpl -> templates/… | 0 Err bitreich.org 70
i R template/rss-item.tpl -> templates… | 0 Err bitreich.org 70
i R template/rss.tpl -> templates/rss.… | 0 Err bitreich.org 70
i Err bitreich.org 70
i7 files changed, 7 insertions(+), 7 deletions(-) Err bitreich.org 70
i--- Err bitreich.org 70
1diff --git a/generator.lisp b/generator.lisp /scm/cl-yag/file/generator.lisp.gph bitreich.org 70
i@@ -84,14 +84,14 @@ Err bitreich.org 70
i (defun get-tag-list-article(&optional article) Err bitreich.org 70
i (strip-quotes Err bitreich.org 70
i (mapcar #'(lambda (item) Err bitreich.org 70
i- (prepare "template/one-tag.tpl" (template "%%Name%%" item))) Err bitreich.org 70
i+ (prepare "templates/one-tag.tpl" (template "%%Name%%" item))) Err bitreich.org 70
i (split-str (getf article :tag))))) Err bitreich.org 70
i Err bitreich.org 70
i ;; generates the html of the whole list of tags Err bitreich.org 70
i (defun get-tag-list() Err bitreich.org 70
i (strip-quotes Err bitreich.org 70
i (mapcar #'(lambda (item) Err bitreich.org 70
i- (prepare "template/one-tag.tpl" Err bitreich.org 70
i+ (prepare "templates/one-tag.tpl" Err bitreich.org 70
i (template "%%Name%%" (getf item :name)))) Err bitreich.org 70
i (articles-by-tag)))) Err bitreich.org 70
i Err bitreich.org 70
i@@ -99,7 +99,7 @@ Err bitreich.org 70
i ;; generates the html of one only article Err bitreich.org 70
i ;; this is called in a loop to produce the homepage Err bitreich.org 70
i (defun create-article(article &optional &key (tiny t) (no-text nil)) Err bitreich.org 70
i- (prepare "template/article.tpl" Err bitreich.org 70
i+ (prepare "templates/article.tpl" Err bitreich.org 70
i (template "%%Author%%" (getf article :author (getf *config* :webmaster))) Err bitreich.org 70
i (template "%%Date%%" (getf article :date)) Err bitreich.org 70
i (template "%%Title%%" (getf article :title)) Err bitreich.org 70
i@@ -114,7 +114,7 @@ Err bitreich.org 70
i ;; return a html string Err bitreich.org 70
i ;; produce the code of a whole page with title+layout with the parameter as the content Err bitreich.org 70
i (defun generate-layout(body &optional &key (title nil)) Err bitreich.org 70
i- (prepare "template/layout.tpl" Err bitreich.org 70
i+ (prepare "templates/layout.tpl" Err bitreich.org 70
i (template "%%Title%%" (if title title (getf *config* :title))) Err bitreich.org 70
i (template "%%Tags%%" (get-tag-list)) Err bitreich.org 70
i (template "%%Body%%" body) Err bitreich.org 70
i@@ -140,7 +140,7 @@ Err bitreich.org 70
i (loop for article in *articles* Err bitreich.org 70
i for i from 1 to (if (> (length *articles*) (getf *config* :rss-item-number)) (getf *config* :rss-item-number) (length *articles*)) Err bitreich.org 70
i collect Err bitreich.org 70
i- (prepare "template/rss-item.tpl" Err bitreich.org 70
i+ (prepare "templates/rss-item.tpl" Err bitreich.org 70
i (template "%%Title%%" (getf article :title)) Err bitreich.org 70
i (template "%%Description%%" (load-file (format nil "temp/data/~d.html" (getf article :id)))) Err bitreich.org 70
i (template "%%Url%%" Err bitreich.org 70
i@@ -150,7 +150,7 @@ Err bitreich.org 70
i Err bitreich.org 70
i ;; Generate the rss xml data Err bitreich.org 70
i (defun generate-rss() Err bitreich.org 70
i- (prepare "template/rss.tpl" Err bitreich.org 70
i+ (prepare "templates/rss.tpl" Err bitreich.org 70
i (template "%%Description%%" (getf *config* :description)) Err bitreich.org 70
i (template "%%Title%%" (getf *config* :title)) Err bitreich.org 70
i (template "%%Url%%" (getf *config* :url)) Err bitreich.org 70
i@@ -183,7 +183,7 @@ Err bitreich.org 70
i Err bitreich.org 70
i ;; produce the gophermap file Err bitreich.org 70
i (save-file "output/gopher/gophermap" Err bitreich.org 70
i- (let ((output (load-file "template/gopher_head.tpl"))) Err bitreich.org 70
i+ (let ((output (load-file "templates/gopher_head.tpl"))) Err bitreich.org 70
i (dolist (article *articles*) Err bitreich.org 70
i (setf output Err bitreich.org 70
i (string Err bitreich.org 70
1diff --git a/template/article.tpl b/templates/article.tpl /scm/cl-yag/file/templates/article.tpl.gph bitreich.org 70
1diff --git a/template/gopher_head.tpl b/templates/gopher_head.tpl /scm/cl-yag/file/templates/gopher_head.tpl.gph bitreich.org 70
1diff --git a/template/layout.tpl b/templates/layout.tpl /scm/cl-yag/file/templates/layout.tpl.gph bitreich.org 70
1diff --git a/template/one-tag.tpl b/templates/one-tag.tpl /scm/cl-yag/file/templates/one-tag.tpl.gph bitreich.org 70
1diff --git a/template/rss-item.tpl b/templates/rss-item.tpl /scm/cl-yag/file/templates/rss-item.tpl.gph bitreich.org 70
1diff --git a/template/rss.tpl b/templates/rss.tpl /scm/cl-yag/file/templates/rss.tpl.gph bitreich.org 70
.
Response:
text/plain