(Emacs/config|elisp)~rework Eshell

Now I have separate modules for the additional new functions I
introduced for eshell and for the prompt function I made.  Cleans up
the configuration a bit and makes it easier to examine those files on
their own, which I expect to grow.

1 files changed, 46 insertions, 123 deletions

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index 84c25e1..3411eea 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -1686,16 +1686,27 @@ expression it tries to evaluate it by testing against these conditions:
 - it's an external command (bash evaluator)
 Essentially, you get the best of both Emacs and external shell
 programs *ALL WITHIN* Emacs for free.
-*** Eshell functionality
-Bind some evil-like movements for easy shell usage, and a toggle
-function to pull up the eshell quickly.
+*** Eshell keymaps, display and variables
+Bind some evil-like movements for easy shell usage, a display record
+so when you call eshell it kinda looks like VSCode's terminal popup.
+
+NOTE: This mode doesn't allow you to set maps the normal way; you need
+to set keybindings on eshell-mode-hook, otherwise it'll just overwrite
+them.
 #+begin_src emacs-lisp
 (use-package eshell
   :defer t
   :general
   (shell-leader
     "t" #'eshell)
+  :display
+  ("\\*e?shell\\*"
+   (display-buffer-at-bottom)
+   (window-height . 0.33))
   :init
+  (setq eshell-cmpl-ignore-case t
+        eshell-cd-on-directory t
+        eshell-highlight-prompt nil)
   (add-hook
    'eshell-mode-hook
    (proc
@@ -1703,6 +1714,7 @@ function to pull up the eshell quickly.
     (general-def
       :states '(normal insert)
       :keymaps 'eshell-mode-map
+      "0"   #'eshell-bol
       "M-j" #'eshell-next-matching-input-from-input
       "M-k" #'eshell-previous-matching-input-from-input)
     (local-leader
@@ -1711,134 +1723,45 @@ function to pull up the eshell quickly.
                 (recenter))
       "k" #'eshell-kill-process))))
 #+end_src
-*** Eshell pretty symbols and display
-Pretty symbols and a display record.
-#+begin_src emacs-lisp
-(use-package eshell
-  :defer t
-  :display
-  ("\\*e?shell\\*" ; for general shells as well
-   (display-buffer-at-bottom)
-   (window-height . 0.33)))
-#+end_src
-*** Eshell variables and aliases
-Set some sane defaults, a banner and a prompt.  The prompt checks for
-a git repo in the current directory and provides some extra
-information in that case (in particular, branch name and if there any
-changes that haven't been committed).
+*** Eshell prompt
+Here I use my external library
+[[file:elisp/eshell-prompt.el][eshell-prompt]], which provides a more
+dynamic prompt for Eshell.  Current features include:
++ Git (with difference from remote and number of modified files)
++ Current date and time
++ A coloured prompt which changes colour based on the exit status of
+  the previous command
 
+NOTE: I don't defer this package because it doesn't use any eshell
+internals, just standard old Emacs packages.
 #+begin_src emacs-lisp
-(use-package eshell
-  :defer t
+(use-package eshell-prompt
+  :load-path "elisp/"
   :config
-  (defun +eshell/--git-get-remote-status ()
-    (let* ((branch-status (split-string
-                           (shell-command-to-string "git status | grep 'Your branch is'")))
-           (status (nth 3 branch-status))
-           (diff (cl-position "by" branch-status :test #'string=)))
-      (if (null diff)
-          (propertize "=" 'font-lock-face '(:foreground "green"))
-        (let ((n (nth (+ 1 diff) branch-status)))
-          (concat
-           (cond
-            ((string= status "ahead")
-             (propertize "→ " 'font-lock-face '(:foreground "dodger blue")))
-            ((string= status "behind")
-             (propertize "← " 'font-lock-face '(:foreground "orange red"))))
-           n)))))
-
-  (defun +eshell/--git-get-change-status ()
-    (let ((changed-files (- (length (split-string (shell-command-to-string "git status -s" ) "\n")) 1)))
-      (if (= changed-files 0)
-          (propertize "✓" 'font-lock-face '(:foreground "green"))
-        (propertize (number-to-string changed-files) 'font-lock-face '(:foreground "red")))))
-
-  (defun +eshell/get-git-properties ()
-    (let ((git-branch (shell-command-to-string "git branch")))
-      (if (or (string= git-branch "")
-             (not (string= "*" (substring git-branch 0 1))))
-          ""
-        (format
-         "(%s<%s>[%s])"
-         (nth 2 (split-string git-branch "\n\\|\\*\\| "))
-         (+eshell/--git-get-change-status)
-         (+eshell/--git-get-remote-status)))))
-
-  (defun +eshell/prompt-function ()
-    (let ((git (+eshell/get-git-properties)))
-      (mapconcat
-       (lambda (item)
-         (if (listp item)
-             (propertize (car item)
-                         'read-only t
-                         'font-lock-face (cdr item)
-                         'front-sticky   '(font-lock-face read-only)
-                         'rear-nonsticky '(font-lock-face read-only))
-           item))
-       (list
-        '("[")
-        `(,(abbreviate-file-name (eshell/pwd)) :foreground "LimeGreen")
-        '("]")
-        (if (string= git "")
-            ""
-          (concat "-" git ""))
-        "\n"
-        `(,(format-time-string "[%H:%M:%S]") :foreground "purple")
-        "\n"
-        '("𝜆> " :foreground "DeepSkyBlue")))))
-
   (defun +eshell/banner-message ()
     (concat (shell-command-to-string "~/.local/scripts/cowfortune")
             "\n"))
-
-  (setq eshell-cmpl-ignore-case t
-        eshell-cd-on-directory t
-        eshell-banner-message '(+eshell/banner-message)
-        eshell-highlight-prompt nil
-        eshell-prompt-function #'+eshell/prompt-function
-        eshell-prompt-regexp "^𝜆> "))
-#+end_src
-*** Eshell change directory quickly
-Add ~eshell/goto~, which is actually a command accessible from within
-eshell (this is because ~eshell/*~ creates an accessible function
-within eshell with name ~*~).  ~eshell/goto~ makes it easier to change
-directories by using Emacs' find-file interface (which is much faster
-than ~cd ..; ls -l~).
-
-~eshell/goto~ is a better ~cd~ for eshell.  However it is really just
-a plaster over a bigger issue for my workflow; many times I want
-eshell to be present in the current directory of the buffer I am
-using.  So here's also a command for opening eshell with the current
-directory.
-#+begin_src emacs-lisp
-(use-package eshell
-  :defer t
+  (setq eshell-prompt-regexp (format "^%s" +eshell-prompt/user-prompt)
+        eshell-prompt-function #'+eshell-prompt/make-prompt
+        eshell-banner-message '(+eshell/banner-message)))
+#+end_src
+*** Eshell additions
+Using my external library
+[[file:elisp/eshell-additions.el][eshell-additions]], I get a few new
+eshell internal commands and a surface command to open eshell at the
+current working directory.
+
+NOTE: I don't defer this package because it autoloads any eshell
+internals that it uses so I'm only loading what I need to.  Any
+~eshell/*~ functions need to be known by eshell before launching, so
+if I loaded this ~:after~ eshell then the first instance has no
+knowledge of the new additions.
+#+begin_src emacs-lisp
+(use-package eshell-additions
+  :load-path "elisp/"
   :general
   (leader
-    "T" #'+eshell/current-buffer)
-  :config
-  (defun eshell/goto (&rest args)
-    "Use `read-directory-name' to change directories."
-    (eshell/cd (list (read-directory-name "Directory?: "))))
-
-  (defun eshell/project-root (&rest args)
-    "Change to directory `project-root'"
-    (if (project-current)
-        (eshell/cd (list (project-root (project-current))))
-      (eshell/echo (format "[%s]: No project in current directory"
-                           (propertize "Error" 'font-lock-face '(:foreground "red"))))))
-
-  (defun +eshell/current-buffer ()
-    (interactive)
-    (let  ((dir (if buffer-file-name
-                    (file-name-directory buffer-file-name)
-                  default-directory))
-           (buf (eshell)))
-      (if dir
-          (with-current-buffer buf
-            (eshell/cd dir)
-            (eshell-send-input))
-        (message "Could not switch eshell: buffer is not real file")))))
+    "T" #'+eshell/at-cwd))
 #+end_src
 ** WAIT Elfeed
 :PROPERTIES: