diff options
author | Franck Cuny <franck@fcuny.net> | 2022-10-24 08:04:09 -0700 |
---|---|---|
committer | Franck Cuny <franck@fcuny.net> | 2022-10-24 08:04:09 -0700 |
commit | 832a977206d56274688d0488e209f61f8bb16247 (patch) | |
tree | e089c4061a1dc2b3ce0edff733bdbf226d6bf95b /emacs | |
parent | fix(eshell): don't enable eshell's smart mode (diff) | |
download | emacs.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
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/custom/my-eshell.el | 48 |
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) |