init.el

@@ -2368,7 +2368,7 @@ Note that this workaround is incomplete, as explained in this comment."
 
 ;; * Completion
 
-(setopt suggest-key-bindings t
+(setq suggest-key-bindings t
       extended-command-suggest-shorter t
       completions-detailed t
       completion-cycle-threshold nil
@@ -2379,8 +2379,7 @@ Note that this workaround is incomplete, as explained in this comment."
                                       (buffer (styles . (orderless)))
                                       (bookmark (styles . (orderless)))
                                       (imenu (styles . (basic substring orderless)))
-                                        (kill-ring (styles . (emacs22 orderless))))
-        completion-in-region-function #'consult-completion-in-region)
+                                      (kill-ring (styles . (emacs22 orderless)))))
 
 (use-package helm
   :ensure t
@@ -2717,6 +2716,7 @@ Note that this workaround is incomplete, as explained in this comment."
   :commands (db/run-or-hide-eshell
              eshell-clear-buffer
              eshell/default-prompt-function
+             eshell-insert-history
              pcomplete/git))
 
 (use-package eshell
@@ -2740,7 +2740,7 @@ Note that this workaround is incomplete, as explained in this comment."
          ("M-P" . eshell-previous-prompt)
          ("M-N" . eshell-next-prompt)
          :map eshell-hist-mode-map
-         ("M-r" . consult-history))
+         ("M-r" . eshell-insert-history))
 
   :config (progn
 
@@ -3050,10 +3050,9 @@ Note that this workaround is incomplete, as explained in this comment."
 
   ;; Top-Level Keybindings
 
-  (bind-key "<Scroll_Lock>" 'scroll-lock-mode)
   (bind-key "<XF86Back>" #'winner-undo)
   (bind-key "<XF86Forward>" #'winner-redo)
-  (bind-key "<f10>" #'magit-status)
+  (bind-key "<Scroll_Lock>" 'scroll-lock-mode)
   (bind-key "<f1>" #'db/run-or-hide-eshell)
   (bind-key "<f2>" #'db/frequently-used-features-prefix)
   (bind-key "<f5>" #'project-find-regexp)
@@ -3061,6 +3060,7 @@ Note that this workaround is incomplete, as explained in this comment."
   (bind-key "<f7>" #'dictcc)
   (bind-key "<f8>" #'hydra-org-linking/body)
   (bind-key "<f9>" #'magit-dispatch)
+  (bind-key "<f10>" #'magit-status)
   (bind-key "C-," #'mc/skip-to-previous-like-this)
   (bind-key "C-." #'mc/skip-to-next-like-this)
   (bind-key "C-;" #'iedit-mode)
@@ -3080,29 +3080,27 @@ Note that this workaround is incomplete, as explained in this comment."
   (bind-key "C-c j" #'avy-goto-char-timer)
   (bind-key "C-c l" #'org-store-link)
   (bind-key "C-c m" #'music-control/body)
-  (bind-key "C-c n c" #'org-roam-capture)
   (bind-key "C-c n f" #'org-roam-node-find)
   (bind-key "C-c n i" #'org-roam-node-insert)
+  (bind-key "C-c n c" #'org-roam-capture)
   (bind-key "C-c o" #'hydra-org-custom/body)
   (bind-key "C-c r" #'recentf)
   (bind-key "C-c t" #'hydra-toggle/body)
+  (bind-key "C-h f" #'helpful-callable)
+  (bind-key "C-h o" #'helpful-symbol)
+  (bind-key "C-h v" #'helpful-variable)
+  (bind-key "C-h k" #'helpful-key)
+  (bind-key "C-h x" #'helpful-command)
   (bind-key "C-h C-f" #'find-function)
   (bind-key "C-h C-k" #'find-function-on-key)
   (bind-key "C-h C-v" #'find-variable)
-  (bind-key "C-h f" #'helpful-callable)
-  (bind-key "C-h k" #'helpful-key)
-  (bind-key "C-h o" #'helpful-symbol)
-  (bind-key "C-h v" #'helpful-variable)
-  (bind-key "C-h x" #'helpful-command)
   (bind-key "C-x 4 C-j" #'dired-jump-other-window)
   (bind-key "C-x C-b" #'ibuffer)
   (bind-key "C-x C-d" #'dired)
   (bind-key "C-x C-j" #'dired-jump)
   (bind-key "C-x C-r" #'revert-buffer)
   (bind-key "C-x SPC" #'hydra-rectangle/body)
-  (bind-key "C-x b" #'consult-buffer)
   (bind-key "C-x g" #'db/shortcuts)
-  (bind-key "C-x o" #'ace-window)
   (bind-key "C-x r E" #'db/bookmark-add-external)
   (bind-key "C-x r M" #'db/bookmark-add-url)
   (bind-key "C-x r v" #'list-registers)
@@ -3111,31 +3109,41 @@ Note that this workaround is incomplete, as explained in this comment."
   (bind-key "M-:" #'pp-eval-expression)
   (bind-key "M-=" #'count-words)
   (bind-key "M-Z" #'zap-to-char)
-  (bind-key "M-g M-g" #'avy-goto-line)
-  (bind-key "M-g g" #'avy-goto-line)
-  (bind-key "M-g i" #'consult-imenu)
   (bind-key "M-j" #'(lambda () (interactive) (join-line -1)))
   (bind-key "M-z" #'zap-up-to-char)
-
-  (bind-key "M-r" #'consult-history minibuffer-mode-map)
-  (bind-key "C-r" #'consult-history minibuffer-mode-map)
-
   (bind-key [remap fill-paragraph] #'endless/fill-or-unfill)
   (bind-key [remap keyboard-quit] #'keyboard-quit-context+)
-  (bind-key [remap kill-whole-line] #'crux-kill-whole-line)
-  (bind-key [remap open-line] #'crux-smart-open-line-above)
-
   (unbind-key "<insert>" global-map)
   (unbind-key "<kp-insert>" global-map)
-  (unbind-key "C-x C-c" global-map)     ; Quit emacs by calling `save-buffers-kill-emacs' directly
+  (unbind-key "C-x C-c" global-map)
   (unbind-key "M-o" global-map)
 
+  ;; Overwrite certain keybindings only if packages are avilable
+
   (when (package-installed-p 'helm)
     ;; Explicitly require helm, because autoloading is difficult with helm's
     ;; separate `helm-command-prefix-key' mechanism.
     (require 'helm)
     (bind-key helm-command-prefix-key #'helm-command-prefix))
 
+  (when (package-installed-p 'crux)
+    (bind-key [remap kill-whole-line] #'crux-kill-whole-line)
+    (bind-key [remap open-line] #'crux-smart-open-line-above))
+
+  (when (package-installed-p 'ace-window)
+    (bind-key "C-x o" #'ace-window))
+
+  (when (package-installed-p 'avy)
+    (bind-key "M-g M-g" #'avy-goto-line)
+    (bind-key "M-g g" #'avy-goto-line))
+
+  (when (package-installed-p 'consult)
+    (bind-key "M-g i" #'consult-imenu)
+    (bind-key "C-x b" #'consult-buffer)
+    (setq completion-in-region-function #'consult-completion-in-region)
+    (bind-key "M-r" #'consult-history eshell-hist-mode-map)
+    (bind-key "M-r" #'consult-history minibuffer-mode-map)
+    (bind-key "C-r" #'consult-history minibuffer-mode-map))
 
   ;; Environment Variables
 

site-lisp/db-eshell.el

@@ -170,6 +170,13 @@ formatting."
             (if (zerop (user-uid)) "#" "$")
             (propertize " " 'face '(:weight bold)))))
 
+(defun eshell-insert-history ()
+  "Displays the eshell history to select and insert back into your eshell."
+  ;; directly taken from Howard Abrams
+  (interactive)
+  (insert (completing-read "Eshell history: "
+                           (seq-uniq (ring-elements eshell-history-ring)))))
+
 
 ;; Git Completion
 ;; https://tsdh.wordpress.com/2013/05/31/eshell-completion-for-git-bzr-and-hg/