git/clic/commit/089a33517b1df4a4b15882240d18b7955c25e5ea.html (1785 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>clic 089a3351 - Recently Written</title> 5 <link rel="stylesheet" href="../../stagit.css" /> 6 </head><body> 7 <div id="top"><a href="../../../index.html">Recently Written</a> · <a href="../../index.html">git</a></div> 8 <h1>clic</h1><span class="desc">MIRROR ONLY Gopher client with pretty colours in Common Lisp</span><p class="url">git clone https://github.com/equwal/clic</p><p><a href="../../clic/index.html">Log</a> | <a href="../../clic/files.html">Files</a> | <a href="../../clic/refs.html">Refs</a></p><hr/> 9 <div id="content"> 10 <pre>commit 089a33517b1df4a4b15882240d18b7955c25e5ea 11 Solene Rapenne <solene@perso.pw> 12 2018-08-09 13:49:15 +0200 13 14 Fix PAGER variable with spaces 15 16 </pre><pre> clic.lisp | 6 +++++- 17 1 file changed, 5 insertions(+), 1 deletion(-) 18 </pre><pre>diff --git a/clic.lisp b/clic.lisp 19 index eee2c10..ea3dd33 100644 20 --- a/clic.lisp 21 +++ b/clic.lisp 22 <span class="h">@@ -546,7 +546,11 @@</span> 23 :if-exists :supersede) 24 (foreach-buffer 25 (format output "~a~%" line))) 26 <span class="d">- (uiop:run-program (list (or (uiop:getenv "PAGER") "less") path)</span> 27 <span class="a">+ (uiop:run-program (nconc</span> 28 <span class="a">+ (if (uiop:getenv "PAGER")</span> 29 <span class="a">+ (split (uiop:getenv "PAGER") #\Space)</span> 30 <span class="a">+ (list "less"))</span> 31 <span class="a">+ (list path))</span> 32 :input :interactive 33 :output :interactive))) 34 </pre> 35 </div></body></html>