 |
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 |
