mirror of
https://github.com/doomemacs/doomemacs
synced 2025-09-18 16:06:56 -05:00
1b125ddf7b
This makes the output of previous commands and prompts immutable (by default), so users can't accidentally alter them, which can leave the buffer in a half-broken state (requiring the user flush out the garbled input with a couple RETs). This targets comint shells (shell, ielm, etc), eshell, (ansi-)term, and any derivatives thereof. Fix: #8411
39 lines
1.7 KiB
EmacsLisp
39 lines
1.7 KiB
EmacsLisp
;;; term/term/config.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###package term
|
|
(add-hook 'term-mode-hook #'doom-mark-buffer-as-real-h)
|
|
(add-hook 'term-mode-hook #'hide-mode-line-mode)
|
|
|
|
|
|
;;;###package multi-term
|
|
(setq multi-term-dedicated-window-height 20
|
|
multi-term-switch-after-close 'PREVIOUS
|
|
multi-term-buffer-name "doom:terminal")
|
|
|
|
;; Remove hscroll-margin in shells, otherwise you get jumpiness when the cursor
|
|
;; comes close to the left/right edges of the window.
|
|
(setq-hook! 'term-mode-hook hscroll-margin 0)
|
|
|
|
;; HACK: Prior output in (ansi-)term shells should be read-only. Otherwise, it's
|
|
;; trivial to make edits in visual modes (like evil's or term's
|
|
;; term-line-mode) and leave the buffer in a half-broken state (which you must
|
|
;; flush out with a couple RETs, which may execute the broken text in the
|
|
;; buffer), Note that this does not protect the prompt in (ansi-)term buffers
|
|
;; unless you set `term-prompt-regexp' buffer-locally! (e.g. with
|
|
;; `setq-hook!').
|
|
(defadvice! +term--protect-process-output-in-visual-modes-a (&rest _)
|
|
:before #'term-line-mode
|
|
(when (term-in-char-mode)
|
|
(let* ((prompt?)
|
|
(prompt-end
|
|
(save-excursion
|
|
(goto-char (process-mark (get-buffer-process (current-buffer))))
|
|
(or (and (not (equal term-prompt-regexp "^"))
|
|
(setq prompt? (re-search-backward term-prompt-regexp (line-beginning-position) t))
|
|
(match-end 0))
|
|
(line-beginning-position)))))
|
|
(with-silent-modifications
|
|
(when prompt?
|
|
(put-text-property (1- prompt-end) prompt-end 'read-only 'fence))
|
|
(add-text-properties (point-min) prompt-end '(read-only t))))))
|