emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(cli): don't auto-invoke pager under powershell

Browse source 
Need to find a pager that works on Windows.
This commit is contained in:
Henrik Lissner 2024-09-07 04:03:02 -04:00
parent 94a291a7f8
commit 73ab554566
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/doom-cli-lib.el
View file

@ -1322,16 +1322,18 @@ ARGS are options passed to less. If DOOMPAGER is set, ARGS are ignored."
ARGS are options passed to less. If DOOMPAGER is set, ARGS are ignored." ARGS are options passed to less. If DOOMPAGER is set, ARGS are ignored."
(doom-cli--exit (doom-cli--exit
(let ((threshold (ceiling (* (doom-cli-context-height context) (if (equal (getenv "__DOOMSH") "ps1")
doom-cli-pager-ratio)))) 0
(if (>= (let ((stdout (doom-cli-context-stdout context))) (let ((threshold (ceiling (* (doom-cli-context-height context)
(if (fboundp 'buffer-line-statistics) doom-cli-pager-ratio))))
(car (buffer-line-statistics stdout)) (if (>= (let ((stdout (doom-cli-context-stdout context)))
(with-current-buffer stdout (if (fboundp 'buffer-line-statistics)
(count-lines (point-min) (point-max))))) (car (buffer-line-statistics stdout))
threshold) (with-current-buffer stdout
(cons :pager args) (count-lines (point-min) (point-max)))))
0)) threshold)
(cons :pager args)
0)))
context)) context))
;; (defun doom-cli--exit-editor (args context)) ; TODO Launch $EDITOR ;; (defun doom-cli--exit-editor (args context)) ; TODO Launch $EDITOR