Introduction
Introduction Statistics Contact Development Disclaimer Help
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
You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.