Fix PAGER variable with spaces - clic - Clic is an command line interactive client for gopher written in Common LISP
 (HTM) 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
 (HTM) 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)))