From 9eef6a43320aaca4fb6640ef20b1206614312a94 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 4 Feb 2023 14:33:12 -0500 Subject: update --- emacs/.config/emacs-kj/eshell.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 emacs/.config/emacs-kj/eshell.el (limited to 'emacs/.config/emacs-kj/eshell.el') diff --git a/emacs/.config/emacs-kj/eshell.el b/emacs/.config/emacs-kj/eshell.el new file mode 100644 index 0000000..b475915 --- /dev/null +++ b/emacs/.config/emacs-kj/eshell.el @@ -0,0 +1,23 @@ +;;; -*- lexical-binding: t; -*- +(use-package eshell + :config + (add-hook 'eshell-mode-hook + (lambda () + (setenv "PAGER" "cat")) + (setenv "EDITOR" "emacsclient")) + (setq eshell-prefer-lisp-functions t) + (setq tramp-remote-path '(tramp-own-remote-path)) + + (add-to-list 'eshell-load-hook #'kj/on-eshell-load)) + +(defun kj/on-eshell-load (&args rest) + (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)))))) -- cgit v1.2.3