From 832a977206d56274688d0488e209f61f8bb16247 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Mon, 24 Oct 2022 08:04:09 -0700 Subject: 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 --- emacs/custom/my-eshell.el | 48 ----------------------------------------------- 1 file changed, 48 deletions(-) (limited to 'emacs/custom') 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) -- cgit 1.4.1