commit 089a33517b1df4a4b15882240d18b7955c25e5ea Solene Rapenne <solene@perso.pw> 2018-08-09 13:49:15 +0200 Fix PAGER variable with spaces
clic.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/clic.lisp b/clic.lisp index eee2c10..ea3dd33 100644 --- 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)))