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