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 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 .