iGopher RSS feed with gopher links - 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 e187e771f1bad099c9f9ac8d98085aefa8998af9 /scm/cl-yag/commit/e187e771f1bad099c9f9ac8d98085aefa8998af9.gph bitreich.org 70
1parent b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68 /scm/cl-yag/commit/b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68.gph bitreich.org 70
hAuthor: Solene Rapenne <solene@perso.pw> URL:mailto:solene@perso.pw bitreich.org 70
iDate: Tue, 17 Apr 2018 08:06:04 +0200 Err bitreich.org 70
i Err bitreich.org 70
iGopher RSS feed with gopher links Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M generator.lisp | 36 +++++++++++++++++++++----------- Err bitreich.org 70
i M templates/gopher_head.tpl | 2 ++ Err bitreich.org 70
i M templates/layout.tpl | 1 + Err bitreich.org 70
i Err bitreich.org 70
i3 files changed, 27 insertions(+), 12 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@@ -248,7 +248,7 @@ Err bitreich.org 70
i collect (create-article article :tiny t)))) Err bitreich.org 70
i Err bitreich.org 70
i ;; xml generation of the items for the rss Err bitreich.org 70
i-(defun generate-rss-item() Err bitreich.org 70
i+(defun generate-rss-item(&key (gopher nil)) Err bitreich.org 70
i (apply #'concatenate 'string Err bitreich.org 70
i (loop for article in *articles* Err bitreich.org 70
i for i from 1 to (min (length *articles*) (getf *config* :rss-item-number)) Err bitreich.org 70
i@@ -262,19 +262,26 @@ Err bitreich.org 70
i (subseq (getf (article-date article) :dayname) 0 3) Err bitreich.org 70
i (subseq (getf (article-date article) :monthname) 0 3))) Err bitreich.org 70
i (template "%%Url%%" Err bitreich.org 70
i- (format nil "~d~d-~d.html" Err bitreich.org 70
i- (getf *config* :url) Err bitreich.org 70
i- (date-format "%Year-%MonthNumber-%DayNumber" Err bitreich.org 70
i- (article-date article)) Err bitreich.org 70
i- (article-id article))))))) Err bitreich.org 70
i+ (if gopher Err bitreich.org 70
i+ (format nil "gopher://~a:~d/0~a/~a.txt" Err bitreich.org 70
i+ (getf *config* :gopher-server) Err bitreich.org 70
i+ (getf *config* :gopher-port) Err bitreich.org 70
i+ (getf *config* :gopher-path) Err bitreich.org 70
i+ (article-id article)) Err bitreich.org 70
i+ (format nil "~d~d-~d.html" Err bitreich.org 70
i+ (getf *config* :url) Err bitreich.org 70
i+ (date-format "%Year-%MonthNumber-%DayNumber" Err bitreich.org 70
i+ (article-date article)) Err bitreich.org 70
i+ (article-id article)))))))) Err bitreich.org 70
i+ 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+(defun generate-rss(&key (gopher nil)) 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- (template "%%Items%%" (generate-rss-item)))) Err bitreich.org 70
i+ (template "%%Items%%" (generate-rss-item :gopher gopher)))) Err bitreich.org 70
i Err bitreich.org 70
i ;; We do all the website Err bitreich.org 70
i (defun create-html-site() Err bitreich.org 70
i@@ -302,13 +309,20 @@ Err bitreich.org 70
i (loop for tag in (articles-by-tag) do Err bitreich.org 70
i (generate (format nil "output/html/tag-~d.html" (getf tag :NAME)) Err bitreich.org 70
i (generate-tag-mainpage (getf tag :VALUE)))) Err bitreich.org 70
i- Err bitreich.org 70
i+ Err bitreich.org 70
i+ ;; generate rss gopher in html folder if gopher is t Err bitreich.org 70
i+ (when (getf *config* :gopher) Err bitreich.org 70
i+ (save-file "output/html/rss-gopher.xml" (generate-rss :gopher t))) Err bitreich.org 70
i+ Err bitreich.org 70
i ;;(generate-file-rss) Err bitreich.org 70
i (save-file "output/html/rss.xml" (generate-rss))) Err bitreich.org 70
i Err bitreich.org 70
i ;; we do all the gopher hole Err bitreich.org 70
i (defun create-gopher-hole() Err bitreich.org 70
i Err bitreich.org 70
i+ ;;(generate-file-rss) Err bitreich.org 70
i+ (save-file "output/gopher/rss.xml" (generate-rss :gopher t)) Err bitreich.org 70
i+ Err bitreich.org 70
i ;; produce the gophermap file Err bitreich.org 70
i (save-file (concatenate 'string "output/gopher/" (getf *config* :gopher-index)) Err bitreich.org 70
i (let ((output (load-file "templates/gopher_head.tpl"))) Err bitreich.org 70
i@@ -340,9 +354,7 @@ Err bitreich.org 70
i (with-converter Err bitreich.org 70
i (let ((id (article-id article))) Err bitreich.org 70
i (save-file (format nil "output/gopher/article-~d.txt" id) Err bitreich.org 70
i- (load-file (format nil "data/~d~d" id (converter-extension converter-object))))))) Err bitreich.org 70
i- Err bitreich.org 70
i- ) Err bitreich.org 70
i+ (load-file (format nil "data/~d~d" id (converter-extension converter-object)))))))) Err bitreich.org 70
i Err bitreich.org 70
i Err bitreich.org 70
i ;; This is function called when running the tool Err bitreich.org 70
1diff --git a/templates/gopher_head.tpl b/templates/gopher_head.tpl /scm/cl-yag/file/templates/gopher_head.tpl.gph bitreich.org 70
i@@ -1,5 +1,7 @@ Err bitreich.org 70
i Hello, this is the head of your gophermap page, you can Err bitreich.org 70
i customize it how you want ! Err bitreich.org 70
i Err bitreich.org 70
i+[0|RSS Feed|/~me/rss.xml|server|port] Err bitreich.org 70
i+ Err bitreich.org 70
i ----------------------------------------------------------------- Err bitreich.org 70
i Err bitreich.org 70
1diff --git a/templates/layout.tpl b/templates/layout.tpl /scm/cl-yag/file/templates/layout.tpl.gph bitreich.org 70
i@@ -7,6 +7,7 @@ Err bitreich.org 70
i <title>%%Title%%</title> Err bitreich.org 70
i <link rel="stylesheet" type="text/css" href="static/css/style.css" media="screen" /> Err bitreich.org 70
i <link rel="alternate" type="application/rss+xml" title="%%Title%% RSS Feed" href="rss.xml" /> Err bitreich.org 70
i+ <link rel="alternate" type="application/rss+xml" title="%%Title%% RSS Feed Gopher" href="rss-gopher.xml" /> Err bitreich.org 70
i <!-- <link rel="alternate" type="application/atom+xml" title="%%Title%% Atom Feed" href="atom.xml" /> --> Err bitreich.org 70
i <link rel="icon" type="image/x-icon" href="static/img/clyagFav.ico" /> Err bitreich.org 70
i </head> Err bitreich.org 70
.
Response:
text/plain