iUse .gmi extension for gemini texts - 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 a3604d3bebc920469566de468423e5e8b8284932	/scm/cl-yag/commit/a3604d3bebc920469566de468423e5e8b8284932.gph	bitreich.org	70
1parent 23d6c036c8e4304b22492eaa231e68b509a5bedf	/scm/cl-yag/commit/23d6c036c8e4304b22492eaa231e68b509a5bedf.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed, 28 Apr 2021 22:22:23 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iUse .gmi extension for gemini texts	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |       8 ++++----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 4 insertions(+), 4 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@@ -180,7 +180,7 @@	Err	bitreich.org	70
i       (setf output	Err	bitreich.org	70
i             (string	Err	bitreich.org	70
i              (concatenate 'string output	Err	bitreich.org	70
i-                          (format nil "=> ~a/articles/~a.md ~a-~2,'0d-~2,'0d ~a~%"	Err	bitreich.org	70
i+                          (format nil "=> ~a/articles/~a.gmi ~a-~2,'0d-~2,'0d ~a~%"	Err	bitreich.org	70
i                                   (getf *config* :gemini-path)	Err	bitreich.org	70
i                                   (article-id article)	Err	bitreich.org	70
i                                   (getf (article-date article) :year)	Err	bitreich.org	70
i@@ -358,7 +358,7 @@	Err	bitreich.org	70
i ;; we do all the gemini capsule	Err	bitreich.org	70
i (defun create-gemini-capsule()	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-  ;; produce the index.md file	Err	bitreich.org	70
i+  ;; produce the index.gmi file	Err	bitreich.org	70
i   (save-file (concatenate 'string "output/gemini/" (getf *config* :gemini-index))	Err	bitreich.org	70
i              (generate-gemini-index *articles*))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -377,7 +377,7 @@	Err	bitreich.org	70
i                             (string	Err	bitreich.org	70
i                              (concatenate	Err	bitreich.org	70
i                               'string output	Err	bitreich.org	70
i-                              (format nil "=> ~a/~a/index.md ~a ~d~%"	Err	bitreich.org	70
i+                              (format nil "=> ~a/~a/index.gmi ~a ~d~%"	Err	bitreich.org	70
i                                       (getf *config* :gemini-path)	Err	bitreich.org	70
i                                       (getf tag :name)	Err	bitreich.org	70
i                                       (getf tag :name)	Err	bitreich.org	70
i@@ -399,7 +399,7 @@	Err	bitreich.org	70
i      do	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/gemini/articles/~a.txt" id)	Err	bitreich.org	70
i+             (save-file (format nil "output/gemini/articles/~a.gmi" id)	Err	bitreich.org	70
i                         (format nil "~{~a~}"	Err	bitreich.org	70
i                                 (list	Err	bitreich.org	70
i                                  "Title : " (article-title article) #\Newline	Err	bitreich.org	70
.