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

Calculate the number of lines on window properly

Browse source 
* eat.el (eat-exec, eat--eshell-setup-proc-and-term)
(eat--eshell-adjust-make-process-args)
(eat--eshell-synchronize-scroll): Calculate the number of
available lines on window properly.
This commit is contained in:
Akib Azmain Turja 2022-12-04 22:49:56 +06:00
parent 775328790c
commit d35864ca6b
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
eat.el
View file

@ -4572,7 +4572,7 @@ same Eat buffer. The hook `eat-exec-hook' is run after each exec."
(when-let* ((window (get-buffer-window nil t)))
(with-selected-window window
(eat-term-resize eat--terminal (window-max-chars-per-line)
(window-text-height))))
(floor (window-screen-lines)))))
(setf (eat-term-input-function eat--terminal) #'eat--send-input
(eat-term-set-cursor-function eat--terminal)
#'eat--set-cursor
@ -4850,7 +4850,7 @@ PROGRAM can be a shell command."
(when-let* ((window (get-buffer-window nil t)))
(with-selected-window window
(eat-term-resize eat--terminal (window-max-chars-per-line)
(window-text-height))))
(floor (window-screen-lines)))))
(eat-term-redisplay eat--terminal)
(setq-local eshell-output-filter-functions
'(eat--eshell-output-filter))
@ -4969,7 +4969,7 @@ modify its argument to change the filter, the sentinel and invoke
`("/usr/bin/env" "sh" "-c"
,(format "stty -nl echo rows %d columns %d \
sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
(window-text-height)
(floor (window-screen-lines))
(window-max-chars-per-line) null-device)
".."
,@(plist-get plist :command)))
@ -5001,7 +5001,7 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
(narrow-to-region
(eat-term-beginning eat--terminal)
(eat-term-end eat--terminal))
(let ((start-line (- (window-text-height window)
(let ((start-line (- (floor (window-screen-lines))
(line-number-at-pos (point-max)))))
(goto-char (point-min))
(widen)