jjanzen/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

system changes

Browse source
This commit is contained in:
jjanzen 2025-03-15 08:56:13 -05:00
parent 05a7f457bf
commit 0b61f86ab9
1 changed files with 23 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
common/.config/emacs/init.el.org
View file

@ -313,29 +313,29 @@ Install a better PDF viewer than =DocView=.
Install and configure =eat= as a terminal emulator in Emacs with =eshell= as a shell.
#+begin_src emacs-lisp
;; Overwrite a default function that makes the prompt editable for some reason
(eval-after-load "em-prompt" '(defun eshell-emit-prompt ())
"Emit a prompt if eshell is being used interactively."
(when (boundp 'ansi-color-context-region)
(setq ansi-color-context-region nil))
(run-hooks 'eshell-before-prompt-hook)
(if (not eshell-prompt-function)
(set-marker eshell-last-output-end (point))
(let ((prompt (funcall eshell-prompt-function)))
(add-text-properties
0 (length prompt)
(if eshell-highlight-prompt
'( read-only t
field prompt
font-lock-face eshell-prompt
front-sticky (read-only field font-lock-face)
rear-nonsticky (read-only field font-lock-face))
'( read-only t
field prompt
front-sticky (read-only field font-lock-face)
rear-nonsticky (read-only field font-lock-face)))
prompt)
(eshell-interactive-filter nil prompt)))
(run-hooks 'eshell-after-prompt-hook))
(eval-after-load "em-prompt" '(defun eshell-emit-prompt ()
"Emit a prompt if eshell is being used interactively."
(when (boundp 'ansi-color-context-region)
(setq ansi-color-context-region nil))
(run-hooks 'eshell-before-prompt-hook)
(if (not eshell-prompt-function)
(set-marker eshell-last-output-end (point))
(let ((prompt (funcall eshell-prompt-function)))
(add-text-properties
0 (length prompt)
(if eshell-highlight-prompt
'( read-only t
field prompt
font-lock-face eshell-prompt
front-sticky (read-only field font-lock-face)
rear-nonsticky (read-only field font-lock-face))
'( read-only t
field prompt
front-sticky (read-only field font-lock-face)
rear-nonsticky (read-only field font-lock-face)))
prompt)
(eshell-interactive-filter nil prompt)))
(run-hooks 'eshell-after-prompt-hook)))
(use-package eat
:init