From 86de78bedb0a47228a5b9155fb343ae921986bad Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Sun, 25 Oct 2020 11:25:13 +0100
Subject: [PATCH] [Emacs] Remove some Eshell-specific functions

---
 org/config/emacs.org | 42 ------------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/org/config/emacs.org b/org/config/emacs.org
index 927fcaf..8b61bc2 100644
--- a/org/config/emacs.org
+++ b/org/config/emacs.org
@@ -1815,19 +1815,6 @@
        (defalias 'list-buffers 'ibuffer)
      #+END_SRC
 
-     #+BEGIN_SRC emacs-lisp
-       (defun eshell/mkdir ($directory)
-         (make-directory $directory t))
-     #+END_SRC
-
-     #+BEGIN_SRC emacs-lisp
-       (defun eshell/ls (&optional $directory)
-         (shell-command (format "exa -halg@ --group-directories-first --git%s"
-                                (if (string= "" $directory)
-                                    ""
-                                  (concat " " $directory)))))
-     #+END_SRC
-
 ***** System monitoring
       :PROPERTIES:
       :CUSTOM_ID: User_Configuration-Eshell-Aliases-System_monitoring-ee01b070
@@ -1886,20 +1873,6 @@
                                               $args))
       #+END_SRC
 
-      But if I just  want to run ~pacman~ as sudo, then I  could always just type
-      ~p~.
-      #+BEGIN_SRC emacs-lisp
-        (defun eshell/p (&rest $args)
-          (phundrak/concatenate-shell-command "sudo pacman" $args))
-      #+END_SRC
-
-      Sometimes,  I  just  want  to  purge my  package  manager’s  cache,  be  it
-      ~pacman~'s or ~yay~'s. This is why I simply type ~purge~.
-      #+BEGIN_SRC emacs-lisp
-        (defun eshell/purge ()
-          (shell-command "yay -Sc"))
-      #+END_SRC
-
 ***** Other
       :PROPERTIES:
       :CUSTOM_ID: User_Configuration-Eshell-Aliases-Other-bd88ca97
@@ -1912,21 +1885,6 @@
           (cd $directory))
       #+end_src
 
-      #+BEGIN_SRC emacs-lisp
-        (defun eshell/lsl (&rest $args)
-          (eshell/ls "-aHl" $args))
-      #+END_SRC
-
-      #+BEGIN_SRC emacs-lisp
-        (defun eshell/ll (&rest $args)
-          (eshell/ls "-ahl" $args))
-      #+END_SRC
-
-      #+BEGIN_SRC emacs-lisp
-        (defun eshell/la (&rest $args)
-          (eshell/ls "-A" $args))
-      #+END_SRC
-
 ***** Typos
       :PROPERTIES:
       :CUSTOM_ID: User_Configuration-Eshell-Aliases-Typos-c7bfe6eb