iFix PAGER variable with spaces - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 089a33517b1df4a4b15882240d18b7955c25e5ea	/scm/clic/commit/089a33517b1df4a4b15882240d18b7955c25e5ea.gph	bitreich.org	70
1parent b41d900f10543e9f71d91c1e2a27f3561a66b02b	/scm/clic/commit/b41d900f10543e9f71d91c1e2a27f3561a66b02b.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu,  9 Aug 2018 13:49:15 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iFix PAGER variable with spaces	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       6 +++++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 5 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -546,7 +546,11 @@	Err	bitreich.org	70
i                             :if-exists :supersede)	Err	bitreich.org	70
i       (foreach-buffer	Err	bitreich.org	70
i        (format output "~a~%" line)))	Err	bitreich.org	70
i-    (uiop:run-program (list (or (uiop:getenv "PAGER") "less") path)	Err	bitreich.org	70
i+    (uiop:run-program (nconc	Err	bitreich.org	70
i+                       (if (uiop:getenv "PAGER")	Err	bitreich.org	70
i+                           (split (uiop:getenv "PAGER") #\Space)	Err	bitreich.org	70
i+                           (list "less"))	Err	bitreich.org	70
i+                       (list path))	Err	bitreich.org	70
i                       :input :interactive	Err	bitreich.org	70
i                       :output :interactive)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
.