From 7964c8ce1279249e640406cfbcd4be13f3c2a2b3 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sun, 12 Mar 2023 11:07:20 -0400 Subject: emacs config --- emacs/.config/emacs-kj/lisp/kj-eshell.el | 46 ++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 emacs/.config/emacs-kj/lisp/kj-eshell.el (limited to 'emacs/.config/emacs-kj/lisp/kj-eshell.el') diff --git a/emacs/.config/emacs-kj/lisp/kj-eshell.el b/emacs/.config/emacs-kj/lisp/kj-eshell.el new file mode 100644 index 0000000..bd20f05 --- /dev/null +++ b/emacs/.config/emacs-kj/lisp/kj-eshell.el @@ -0,0 +1,46 @@ +;;; -*- lexical-binding: t; -*- +(use-package eshell + :config + (add-hook 'eshell-mode-hook + (lambda () + (setenv "PAGER" "cat")) + (setenv "EDITOR" "emacsclient")) + (setq eshell-prefer-lisp-functions nil + eshell-scroll-to-bottom-on-input 'all + eshell-hist-ignoredups t + eshell-error-if-no-glob t) + (setq tramp-remote-path '(tramp-own-remote-path)) + + (add-to-list 'eshell-modules-list 'eshell-tramp) + (add-to-list 'eshell-load-hook #'kj/on-eshell-load) + + (add-hook 'eshell-mode-hook 'visual-line-mode)) + +(use-package esh-help + :init + (setup-esh-help-eldoc)) + +(use-package eshell-syntax-highlighting + :hook (eshell-mode . eshell-syntax-highlighting-mode)) + +(use-package fish-completion + :config + (setq fish-completion-fallback-on-bash-p t) + :init + (fish-completion-mode 1)) + +(defun kj/on-eshell-load (&args rest) + (add-to-list 'eshell-visual-commands + '("htop" "tmux" "vim" "nvim")) + (add-to-list 'eshell-complex-commands "ssh")) + +(defun eshell/ssh (&rest args) + (if (= 1 (length args)) + (throw 'eshell-replace-command + (eshell/cd + (format "/ssh:%s:" (car args)))) + (throw 'eshell-replace-command + (eshell-parse-command "*ssh" + (eshell-stringify-list (flatten-tree args)))))) + +(provide 'kj-eshell) -- cgit v1.2.3