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-13 23:17:28 -05:00
parent 802882761d
commit c808584cff
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

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