Use .gmi extension for gemini texts - cl-yag - Common Lisp Yet Another website … | |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
commit a3604d3bebc920469566de468423e5e8b8284932 | |
parent 23d6c036c8e4304b22492eaa231e68b509a5bedf | |
Author: Solene Rapenne <[email protected]> | |
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(-) | |
--- | |
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 ~… | |
+ (format nil "=> ~a/articles/~a.gmi ~a-~2,'0d-~2,'0d … | |
(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-inde… | |
(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 |