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