commit a3604d3bebc920469566de468423e5e8b8284932 Solene Rapenne <solene@perso.pw> 2021-04-28 22:22:23 +0200 Use .gmi extension for gemini texts
generator.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/generator.lisp b/generator.lisp index cee0228..d2334fa 100644 --- 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