summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2022-10-24 08:04:09 -0700
committerFranck Cuny <franck@fcuny.net>2022-10-24 08:04:09 -0700
commit832a977206d56274688d0488e209f61f8bb16247 (patch)
treee089c4061a1dc2b3ce0edff733bdbf226d6bf95b
parentfix(eshell): don't enable eshell's smart mode (diff)
downloademacs.d-832a977206d56274688d0488e209f61f8bb16247.tar.gz
fix(eshell): remove two unused functions
The first one was to track how long commands take to complete. This is
not really useful to me at this point.

The second one was to open a directory at point. I also don't use this.

Change-Id: Ied633354d77947c0017070337b375ced0d7bfe32
-rw-r--r--emacs/custom/my-eshell.el48
1 files changed, 0 insertions, 48 deletions
diff --git a/emacs/custom/my-eshell.el b/emacs/custom/my-eshell.el
index dfbe025..3bf7585 100644
--- a/emacs/custom/my-eshell.el
+++ b/emacs/custom/my-eshell.el
@@ -45,28 +45,6 @@
   (eshell/alias "cal" "calendar")
   (eshell/alias "agenda" "org-agenda"))
 
-(defun my/eshell--open-or-cd (path)
-  "Cd to PATH if path is a directory, otherwise open PATH via `find-file'."
-  (interactive)
-  (if (file-directory-p path)
-      (progn
-        (goto-char (point-max))
-        (insert (concat "cd " path))
-        (eshell-send-input)
-        (insert (concat "ls -l"))
-        (eshell-send-input))
-    (find-file path)))
-
-(defun my/eshell-open-file-at-point ()
-  "Open the file at point in a buffer."
-  (interactive)
-  (let ((filename (symbol-name (symbol-at-point))))
-    (cond
-     ((file-readable-p filename)
-      (my/eshell--open-or-cd filename))
-     ((file-readable-p (expand-file-name filename))
-      (my/eshell--open-or-cd (expand-file-name filename))))))
-
 (defun my/eshell-here ()
   "Opens a new shell in the directory associated with the current buffer's file.
 The eshell is renamed to match that directory to make multiple
@@ -113,30 +91,6 @@ append to it, while separating multiple outputs with
       (insert eshell-output)
       (switch-to-buffer-other-window (current-buffer)))))
 
-;; eshell time and notification
-(defvar-local eshell-current-command-start-time nil)
-
-;; https://www.birkey.co/2021-06-20-why-eshell-part-1.html
-(defun my/eshell-current-command-start ()
-  "Capture the time for when the command is started."
-  (setq eshell-current-command-start-time (current-time)))
-
-(defun my/eshell-current-command-stop ()
-  "Calculate how long the command took to run."
-  (when eshell-current-command-start-time
-    (let ((elapsed-time (float-time
-			 (time-subtract (current-time)
-					eshell-current-command-start-time))))
-      (if (> elapsed-time 5)
-          (eshell-interactive-print
-	   (format "Finished in: %.0fs\n" elapsed-time)))))
-  (setq eshell-current-command-start-time nil))
-
-(defun my/eshell-current-command-time-track ()
-  "Track how long command takes to run."
-  (add-hook 'eshell-pre-command-hook #'my/eshell-current-command-start nil t)
-  (add-hook 'eshell-post-command-hook #'my/eshell-current-command-stop nil t))
-
 (defun my/short-pwd (path)
   "Turn a PATH of the form /foo/bar/baz into /f/b/baz, like fish shell."
   (let* ((home-path (replace-regexp-in-string (expand-file-name "~")
@@ -168,7 +122,6 @@ append to it, while separating multiple outputs with
 
 (global-set-key (kbd "C-c e h") 'my/eshell-here)
 (define-key eshell-mode-map (kbd "C-c e e") 'my/eshell-export)
-(define-key eshell-mode-map (kbd "C-o") 'my/eshell-open-file-at-point)
 
 (customize-set-variable 'eshell-scroll-to-bottom-on-input 'all)
 (customize-set-variable 'eshell-error-if-no-glob t)
@@ -184,7 +137,6 @@ append to it, while separating multiple outputs with
 (customize-set-variable 'eshell-destroy-buffer-when-process-dies t)
 
 (add-hook 'eshell-mode-hook 'my/eshell-mode-setup)
-(add-hook 'eshell-mode-hook 'my/eshell-current-command-time-track)
 
 (provide 'my-eshell)