yogsototh/doom-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

fix(cli): recognize command argument for --pager

Browse source 
--pager incorrectly expected a boolean argument, when it should accept
any arbitrary pager command (set to a blank string to disable the
pager).

Ref: #6526
This commit is contained in:
Henrik Lissner 2022-07-04 02:51:37 +02:00
parent 442d607ec0
commit af4c18e283
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 26 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/doom
View file

@ -179,7 +179,7 @@ SEE ALSO:
(debug? ("-D" "--debug") "Enable verbose output")
(doomdir ("--doomdir" dir) "Use Doom config living in `DIR' (e.g. ~/.doom.d)")
(emacsdir ("--emacsdir" dir) "Use Doom install living in `DIR' (e.g. ~/.emacs.d)")
(pager ("--pager" bool) "Pager command to use for large output")
(pager ("--pager" cmd) "Pager command to use for large output")
;; TODO Implement after v3.0
;; (profile ("--profile" name) "Use profile named NAME")
&flags
@ -222,7 +222,7 @@ SEE ALSO:
(exit! :restart))
;; But these don't need a restart:
(when pager
(setenv "DOOMPAGER" pager))
(setq doom-cli-pager pager))
(when force?
(setf (doom-cli-context-suppress-prompts-p context) t)
(doom-log "User requested all prompts be suppressed"))

44
core/core-cli-lib.el
View file

@ -1176,28 +1176,32 @@ Emacs' batch library lacks an implementation of the exec system call."
"Invoke pager on output unconditionally.
ARGS are options passed to less. If DOOMPAGER is set, ARGS are ignored."
(cond ((null (or doom-cli-pager (executable-find "less")))
(user-error "No pager set or available")
(doom-cli--exit 1 context))
(let ((pager (or doom-cli-pager (getenv "DOOMPAGER"))))
(cond ((null (or pager (executable-find "less")))
(user-error "No pager set or available")
(doom-cli--exit 1 context))
((doom-cli-context-pipe-p context :out t)
(doom-cli--exit 0 context))
((or (doom-cli-context-pipe-p context :out t)
(equal pager ""))
(doom-cli--exit 0 context))
((let ((tmpfile (doom-cli--output-file 'output context))
(coding-system-for-write 'utf-8-auto))
(make-directory (file-name-directory tmpfile) t)
(with-temp-file tmpfile
(insert-buffer-substring (doom-cli-context-stdout context)))
(set-file-modes tmpfile #o600)
(doom-cli--restart
(format "${DOOMPAGER:-less %s} <%s; rm -f%s %s"
(combine-and-quote-strings
(append (if doom-print-backend '("-r")) ; process ANSI codes
(or (delq nil args) '("+g"))))
(shell-quote-argument tmpfile)
(if init-file-debug "v" "")
(shell-quote-argument tmpfile))
context)))))
((let ((tmpfile (doom-cli--output-file 'output context))
(coding-system-for-write 'utf-8-auto))
(make-directory (file-name-directory tmpfile) t)
(with-temp-file tmpfile
(insert-buffer-substring (doom-cli-context-stdout context)))
(set-file-modes tmpfile #o600)
(doom-cli--restart
(format "%s <%s; rm -f%s %s"
(or pager
(format "less %s"
(combine-and-quote-strings
(append (if doom-print-backend '("-r")) ; process ANSI codes
(or (delq nil args) '("+g"))))))
(shell-quote-argument tmpfile)
(if init-file-debug "v" "")
(shell-quote-argument tmpfile))
context))))))
(defun doom-cli--exit-pager-maybe (args context)
"Invoke pager if stdout is longer than TTY height * `doom-cli-pager-ratio'.