Introduction
Introduction Statistics Contact Development Disclaimer Help
rename template to templates - cl-yag - Common Lisp Yet Another website Generat…
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws…
Log
Files
Refs
Tags
README
LICENSE
---
commit c50345cdbd29f5e9c0a91ca3666e4ff93590aba6
parent 3343e6ee5c94e72efdf49a1ebf6490529ee00bd8
Author: Solene Rapenne <[email protected]>
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(-)
---
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* :webmas…
(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 th…
(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-n…
collect
- (prepare "template/rss-item.tpl"
+ (prepare "templates/rss-item.tpl"
(template "%%Title%%" (getf article :title))
(template "%%Description%%" (load-file (format nil "temp/dat…
(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
diff --git a/template/article.tpl b/templates/article.tpl
diff --git a/template/gopher_head.tpl b/templates/gopher_head.tpl
diff --git a/template/layout.tpl b/templates/layout.tpl
diff --git a/template/one-tag.tpl b/templates/one-tag.tpl
diff --git a/template/rss-item.tpl b/templates/rss-item.tpl
diff --git a/template/rss.tpl b/templates/rss.tpl
You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.