From 7c5bf89bbd3771ec76f9a03c873cf1904ce64c70 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Mon, 11 Dec 2023 21:28:50 -0500
Subject: update

---
 emacs/.config/emacs-kj/init.el           |  3 ++-
 emacs/.config/emacs-kj/lisp/kj-eshell.el | 30 ++++++++++++------------------
 2 files changed, 14 insertions(+), 19 deletions(-)

(limited to 'emacs/.config/emacs-kj')

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index 200dd8c..4f82728 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -79,7 +79,8 @@
 (dolist (mode '(calendar-mode-hook
                 eshell-mode-hook
                 term-mode-hook
-                comint-mode-hook))
+                comint-mode-hook
+                completion-list-mode))
   (add-hook mode
             (defun kj/disable-trailing-whitespace ()
               (setq show-trailing-whitespace nil))))
diff --git a/emacs/.config/emacs-kj/lisp/kj-eshell.el b/emacs/.config/emacs-kj/lisp/kj-eshell.el
index cc96553..0ccfa7b 100644
--- a/emacs/.config/emacs-kj/lisp/kj-eshell.el
+++ b/emacs/.config/emacs-kj/lisp/kj-eshell.el
@@ -1,5 +1,9 @@
 ;;; -*- lexical-binding: t; -*-
 (use-package eshell
+  :bind
+  (:map eshell-mode-map
+        ("M-r" . consult-history))
+  :hook ((eshell-first-time-mode . kj/eshell-on-load))
   :config
   (add-hook 'eshell-mode-hook
             (lambda ()
@@ -14,22 +18,19 @@
         eshell-error-if-no-glob t)
   (setq tramp-remote-path '(tramp-own-remote-path))
 
+  (defun kj/eshell-on-load ()
+    (dolist (command '("htop" "tmux" "vim" "nvim"))
+      (add-to-list 'eshell-visual-commands
+                   command)))
+
+  (add-to-list 'eshell-complex-commands "ssh")
+
   (add-to-list 'eshell-modules-list 'eshell-smart)
 
   (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 bash-completion
-  :after eshell
-  :init
-  (require 'bash-completion)
-  (bash-completion-setup)
-  (add-hook 'eshell-mode-hook
-            (defun kj/eshell-setup-bash-completion ()
-              (add-hook 'completion-at-point-functions
-                        'bash-completion-capf-nonexclusive nil t))))
+(use-package pcmpl-args)
 
 (use-package esh-help
   :init
@@ -38,13 +39,6 @@
 (use-package eshell-syntax-highlighting
   :hook (eshell-mode . eshell-syntax-highlighting-mode))
 
-(defun kj/on-eshell-load (&args rest)
-  (define-key eshell-hist-mode-map (kbd "M-r") 'consult-history)
-  (dolist (command '("htop" "tmux" "vim" "nvim"))
-          (add-to-list 'eshell-visual-commands
-                       command))
-  (add-to-list 'eshell-complex-commands "ssh"))
-
 (defun eshell/ssh (&rest args)
   (if (= 1 (length args))
       (throw 'eshell-replace-command
-- 
cgit v1.2.3