128 lines
4.2 KiB
EmacsLisp
128 lines
4.2 KiB
EmacsLisp
;;; init-terminal.el --- Terminal emulator configuration -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;;; Configuration for eat (Emacs Terminal Emulator) and other terminal settings
|
|
|
|
;;; Code:
|
|
|
|
;;; Eat - Emacs Terminal Emulator
|
|
(use-package eat
|
|
:ensure t
|
|
:defer t
|
|
:hook ((eshell-mode . eat-eshell-mode)
|
|
(eshell-mode . eat-eshell-visual-command-mode))
|
|
:config
|
|
;; Close eat buffer when process exits
|
|
(setq eat-kill-buffer-on-exit t)
|
|
|
|
;; Enable eat for eshell
|
|
(eat-eshell-mode 1)
|
|
|
|
;; Better color support
|
|
(setq eat-term-name "xterm-256color")
|
|
|
|
;; Set default shell
|
|
(setq eat-shell (getenv "SHELL"))
|
|
|
|
;; Increase scrollback
|
|
(setq eat-term-scrollback-size 10000)
|
|
|
|
;; Enable mouse support
|
|
(setq eat-enable-mouse t)
|
|
|
|
;; Custom keybindings for eat
|
|
(add-hook 'eat-mode-hook
|
|
(lambda ()
|
|
(local-set-key (kbd "C-c C-d") 'eat-self-input) ; Send C-d to terminal
|
|
(local-set-key (kbd "C-c C-c") 'eat-self-input) ; Send C-c to terminal
|
|
(local-set-key (kbd "C-c C-z") 'eat-self-input) ; Send C-z to terminal
|
|
(local-set-key (kbd "C-c C-k") 'eat-kill-process) ; Kill terminal process
|
|
(local-set-key (kbd "C-c C-p") 'eat-previous-shell-prompt)
|
|
(local-set-key (kbd "C-c C-n") 'eat-next-shell-prompt)))
|
|
|
|
;; Auto-close on exit codes
|
|
(defun eat-close-on-exit (process event)
|
|
"Close eat buffer automatically when shell exits.
|
|
PROCESS is the eat process, EVENT is the exit event string."
|
|
(when (and (string-match-p "\\(finished\\|exited\\)" event)
|
|
(buffer-live-p (process-buffer process)))
|
|
(with-current-buffer (process-buffer process)
|
|
(when (eq major-mode 'eat-mode)
|
|
(kill-buffer)))))
|
|
|
|
;; Add hook to close buffer when process exits
|
|
(add-hook 'eat-exit-hook 'eat-close-on-exit)
|
|
|
|
;; Alternative: Close with a delay to see exit message
|
|
(defun eat-close-on-exit-with-delay (process event)
|
|
"Close eat buffer with a small delay after exit.
|
|
PROCESS is the eat process, EVENT is the exit event string."
|
|
(when (and (string-match-p "\\(finished\\|exited\\)" event)
|
|
(buffer-live-p (process-buffer process)))
|
|
(run-with-timer 0.5 nil
|
|
(lambda (buf)
|
|
(when (buffer-live-p buf)
|
|
(kill-buffer buf)))
|
|
(process-buffer process))))
|
|
|
|
;; Uncomment this and comment the previous hook if you want a delay
|
|
;; (add-hook 'eat-exit-hook 'eat-close-on-exit-with-delay)
|
|
)
|
|
|
|
;;; Quick terminal access
|
|
(defun open-eat-terminal ()
|
|
"Open a new eat terminal in the current window."
|
|
(interactive)
|
|
(eat))
|
|
|
|
(defun open-eat-terminal-here ()
|
|
"Open a new eat terminal in the current directory."
|
|
(interactive)
|
|
(let ((default-directory (if (buffer-file-name)
|
|
(file-name-directory (buffer-file-name))
|
|
default-directory)))
|
|
(eat)))
|
|
|
|
(defun open-eat-terminal-split ()
|
|
"Open a new eat terminal in a horizontal split."
|
|
(interactive)
|
|
(split-window-below)
|
|
(other-window 1)
|
|
(eat))
|
|
|
|
(defun open-eat-terminal-vsplit ()
|
|
"Open a new eat terminal in a vertical split."
|
|
(interactive)
|
|
(split-window-right)
|
|
(other-window 1)
|
|
(eat))
|
|
|
|
;;; Global keybindings for terminal access - using C-c E for Eat terminal
|
|
(global-set-key (kbd "C-c E t") 'open-eat-terminal)
|
|
(global-set-key (kbd "C-c E h") 'open-eat-terminal-here)
|
|
(global-set-key (kbd "C-c E s") 'open-eat-terminal-split)
|
|
(global-set-key (kbd "C-c E v") 'open-eat-terminal-vsplit)
|
|
|
|
;;; Eshell configuration (as alternative to eat)
|
|
(use-package eshell
|
|
:ensure nil
|
|
:config
|
|
;; Close eshell on exit
|
|
(defun eshell-close-on-exit ()
|
|
"Close eshell window on exit."
|
|
(when (not (one-window-p))
|
|
(delete-window)))
|
|
|
|
(add-hook 'eshell-exit-hook 'eshell-close-on-exit)
|
|
|
|
;; Better prompt
|
|
(setq eshell-prompt-function
|
|
(lambda ()
|
|
(concat
|
|
(propertize (abbreviate-file-name (eshell/pwd)) 'face '(:foreground "blue"))
|
|
(if (= (user-uid) 0) " # " " $ "))))
|
|
|
|
(setq eshell-highlight-prompt t)
|
|
(setq eshell-prompt-regexp "^[^#$\n]* [#$] "))
|
|
|
|
(provide 'init-terminal)
|
|
;;; init-terminal.el ends here |