recentlywritten/git/cl-yag/commit/c91cb403a8bdc1efd8e38450aaaec4192d287674.html

git/cl-yag/commit/c91cb403a8bdc1efd8e38450aaaec4192d287674.html (2267 bytes)
1 <!DOCTYPE html>
2 <html lang="en"><head><meta charset="UTF-8" />
3 <meta name="viewport" content="width=device-width, initial-scale=1" />
4 <title>cl-yag c91cb403 - Recently Written</title>
5 <link rel="stylesheet" href="../../stagit.css" />
6 </head><body>
7 <div id="top"><a href="../../../index.html">Recently Written</a> &middot; <a href="../../index.html">git</a></div>
8 <h1>cl-yag</h1><span class="desc">Mirror and rewrite of Solène Rapenne&#x27;s cl-yag SSG of renown</span><p class="url">git clone https://github.com/equwal/cl-yag</p><p><a href="../../cl-yag/index.html">Log</a> | <a href="../../cl-yag/files.html">Files</a> | <a href="../../cl-yag/refs.html">Refs</a></p><hr/>
9 <div id="content">
10 <pre>commit c91cb403a8bdc1efd8e38450aaaec4192d287674
11 Solene Rapenne &lt;solene@perso.pw&gt;
12 2017-12-31 16:37:40 +0100
13 
14 Syntax improvement
15 
16 </pre><pre> generator.lisp | 8 ++++----
17  1 file changed, 4 insertions(+), 4 deletions(-)
18 </pre><pre>diff --git a/generator.lisp b/generator.lisp
19 index 5d45cd5..a5ceaa3 100644
20 --- a/generator.lisp
21 +++ b/generator.lisp
22 <span class="h">@@ -126,9 +126,9 @@</span>
23  ;; get the converter object of &quot;article&quot;
24  (defmacro with-converter(&amp;body code)
25    `(progn
26 <span class="d">-     (let ((converter-name (if (article-converter article)</span>
27 <span class="d">-			       (article-converter article)</span>
28 <span class="d">-			     (getf *config* :default-converter))))</span>
29 <span class="a">+     (let ((converter-name</span>
30 <span class="a">+            (or (article-converter article)</span>
31 <span class="a">+                (getf *config* :default-converter))))</span>
32         (let ((converter-object (getf *converters* converter-name)))
33  	 ,@code))))
34  
35 <span class="h">@@ -228,7 +228,7 @@</span>
36  ;; produce the code of a whole page with title+layout with the parameter as the content
37  (defun generate-layout(body &amp;optional &amp;key (title nil))
38    (prepare &quot;templates/layout.tpl&quot;
39 <span class="d">-	   (template &quot;%%Title%%&quot; (if title title (getf *config* :title)))</span>
40 <span class="a">+	   (template &quot;%%Title%%&quot; (or title (getf *config* :title)))</span>
41  	   (template &quot;%%Tags%%&quot; (get-tag-list))
42  	   (template &quot;%%Body%%&quot; body)
43  	   output))</pre>
44 </div></body></html>