Use .gmi extension for gemini texts - 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 a3604d3bebc920469566de468423e5e8b8284932
DIR parent 23d6c036c8e4304b22492eaa231e68b509a5bedf
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Wed, 28 Apr 2021 22:22:23 +0200
Use .gmi extension for gemini texts
Diffstat:
M generator.lisp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
---
DIR diff --git a/generator.lisp b/generator.lisp
@@ -180,7 +180,7 @@
(setf output
(string
(concatenate 'string output
- (format nil "=> ~a/articles/~a.md ~a-~2,'0d-~2,'0d ~a~%"
+ (format nil "=> ~a/articles/~a.gmi ~a-~2,'0d-~2,'0d ~a~%"
(getf *config* :gemini-path)
(article-id article)
(getf (article-date article) :year)
@@ -358,7 +358,7 @@
;; we do all the gemini capsule
(defun create-gemini-capsule()
- ;; produce the index.md file
+ ;; produce the index.gmi file
(save-file (concatenate 'string "output/gemini/" (getf *config* :gemini-index))
(generate-gemini-index *articles*))
@@ -377,7 +377,7 @@
(string
(concatenate
'string output
- (format nil "=> ~a/~a/index.md ~a ~d~%"
+ (format nil "=> ~a/~a/index.gmi ~a ~d~%"
(getf *config* :gemini-path)
(getf tag :name)
(getf tag :name)
@@ -399,7 +399,7 @@
do
(with-converter
(let ((id (article-id article)))
- (save-file (format nil "output/gemini/articles/~a.txt" id)
+ (save-file (format nil "output/gemini/articles/~a.gmi" id)
(format nil "~{~a~}"
(list
"Title : " (article-title article) #\Newline