ifixing gopher title - 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 0beb1a03cf6a8f8aa14c515b74938bddc7b33fbe	/scm/cl-yag/commit/0beb1a03cf6a8f8aa14c515b74938bddc7b33fbe.gph	bitreich.org	70
1parent b0fb013bac0ad806bc90e487b552d3affa7f7413	/scm/cl-yag/commit/b0fb013bac0ad806bc90e487b552d3affa7f7413.gph	bitreich.org	70
hAuthor: Solène Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Fri, 24 Mar 2017 13:07:52 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
ifixing gopher title	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      30 ++++++++++++++++++++----------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 20 insertions(+), 10 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@@ -186,16 +186,26 @@	Err	bitreich.org	70
i              (let ((output (load-file "template/gopher_head.tpl")))	Err	bitreich.org	70
i                (dolist (article *articles*)	Err	bitreich.org	70
i                  (setf output	Err	bitreich.org	70
i-                       (concatenate 'string output	Err	bitreich.org	70
i-                                    (format nil "~a by ~a (~a) ~%0~a        /article-~d.txt        ~a        ~a~%~%"	Err	bitreich.org	70
i-                                            (getf article :date)	Err	bitreich.org	70
i-                                            (getf article :author (getf *config* :webmaster))	Err	bitreich.org	70
i-                                            (format nil "~{#~a ~}" (split-str (getf article :tag)))	Err	bitreich.org	70
i-                                            (getf article :title)	Err	bitreich.org	70
i-                                            (getf article :id)	Err	bitreich.org	70
i-                                            (getf *config* :gopher-server)	Err	bitreich.org	70
i-                                            (getf *config* :gopher-port)	Err	bitreich.org	70
i-                                            ))))	Err	bitreich.org	70
i+                       (string	Err	bitreich.org	70
i+                        (concatenate 'string output	Err	bitreich.org	70
i+                                     (format nil "0~a        ~a/article-~d.txt        ~a        ~a~%~%"	Err	bitreich.org	70
i+                                             	Err	bitreich.org	70
i+                                             ;; here we create a 80 width char string with title on the left	Err	bitreich.org	70
i+                                             ;; and date on the right	Err	bitreich.org	70
i+                                             ;; we truncate the article title if it's too large	Err	bitreich.org	70
i+                                             (let ((title (format nil "~80a"	Err	bitreich.org	70
i+                                                                  (if (< 80 (length (getf article :title)))	Err	bitreich.org	70
i+                                                                      (subseq (getf article :title) 0 80)	Err	bitreich.org	70
i+                                                                    (getf article :title)))))	Err	bitreich.org	70
i+                                               (replace title (getf article :date) :start1 (- (length title) (length (getf article :date)))))	Err	bitreich.org	70
i+                                             	Err	bitreich.org	70
i+                                             	Err	bitreich.org	70
i+                                             (getf *config* :gopher-path)	Err	bitreich.org	70
i+                                             (getf article :id)	Err	bitreich.org	70
i+                                             (getf *config* :gopher-server)	Err	bitreich.org	70
i+                                             (getf *config* :gopher-port)	Err	bitreich.org	70
i+                                             )))))	Err	bitreich.org	70
i+               	Err	bitreich.org	70
i                output))	Err	bitreich.org	70
i   	Err	bitreich.org	70
i   ;; produce each article file (only a copy/paste in fact)	Err	bitreich.org	70
.