fix formatting - cl-yag - Common Lisp Yet Another website Generator
 (HTM) git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit d5537d30940cbeef0a60808bd835835a11ef4beb
 (DIR) parent a651b504887429c23aed643787dc55d10f1d501d
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Fri,  3 Nov 2017 13:08:48 +0000
       
       fix formatting
       
       Diffstat:
         M generator.lisp                      |      26 +++++++++++++-------------
       
       1 file changed, 13 insertions(+), 13 deletions(-)
       ---
 (DIR) diff --git a/generator.lisp b/generator.lisp
       @@ -23,7 +23,7 @@
                                       (find y x :test #'string=)))))
            (if n
                (split-str-1 (subseq string 0 n) separator (cons (subseq string (1+ n)) r))
       -            (cons string r))))
       +      (cons string r))))
        (defun split-str (string &optional (separator " "))
          (split-str-1 string separator))
        
       @@ -48,7 +48,7 @@
        ;; save a string in a file
        (defun save-file(path data)
          (with-open-file (stream path :direction :output :if-exists :supersede)
       -    (format stream data)))
       +                  (format stream data)))
        
        ;; simplify the str replace work
        (defmacro template(before &body after)
       @@ -79,7 +79,7 @@
                                 :value (push (getf article :id) (getf (getf tag-list (intern tag "KEYWORD")) :value)))))))
            (loop for i from 1 to (length tag-list) by 2 collect ;; removing the keywords
                  (nth i tag-list))))
       -    
       +
        ;; generates the html of the list of tags for an article
        (defun get-tag-list-article(&optional article)
          (strip-quotes
       @@ -94,22 +94,22 @@
                       (prepare "template/one-tag.tpl"
                                (template "%%Name%%" (getf item :name))))
                   (articles-by-tag))))
       -  
       +
        
        ;; generates the html of one only article
        ;; this is called in a loop to produce the homepage
        (defun create-article(article &optional &key (tiny t) (no-text nil))
          (prepare "template/article.tpl"
                   (template "%%Author%%" (getf article :author (getf *config* :webmaster)))
       -           (template "%%Date%%" (getf article :date))
       -           (template "%%Title%%" (getf article :title))
       -           (template "%%Id%%" (getf article :id))
       -           (template "%%Tags%%" (get-tag-list-article article))
       -           (template "%%Text%%" (if no-text
       -                                    ""
       -                                  (if (and tiny (member :tiny article))
       -                                      (getf article :tiny)
       -                                    (load-file (format nil "temp/data/~d.html" (getf article :id))))))))
       +           (template "%%Date%%"   (getf article :date))
       +           (template "%%Title%%"  (getf article :title))
       +           (template "%%Id%%"     (getf article :id))
       +           (template "%%Tags%%"   (get-tag-list-article article))
       +           (template "%%Text%%"   (if no-text
       +                                      ""
       +                                    (if (and tiny (member :tiny article))
       +                                        (getf article :tiny)
       +                                      (load-file (format nil "temp/data/~d.html" (getf article :id))))))))
        
        ;; return a html string
        ;; produce the code of a whole page with title+layout with the parameter as the content