From d52fb88582f431738994a3321614bd7ec76e7f56 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Wed, 23 Mar 2022 19:43:46 -0700 Subject: this should be the last mass refactor --- emacs/custom/my-eshell.el | 120 ++++++++++++---------------------------------- 1 file changed, 31 insertions(+), 89 deletions(-) (limited to 'emacs/custom/my-eshell.el') diff --git a/emacs/custom/my-eshell.el b/emacs/custom/my-eshell.el index a6b2cfc..8852489 100644 --- a/emacs/custom/my-eshell.el +++ b/emacs/custom/my-eshell.el @@ -1,9 +1,10 @@ ;;; my-eshell.el --- Configure eshell ;;; Commentary: + ;;; Code: -(eval-when-compile - (require 'use-package) ) +(require 'use-package) +(require 'cl-seq) (require 'magit) (require 'eshell) @@ -35,34 +36,21 @@ (require 'em-tramp) (require 'em-prompt) -(defun fcuny/eshell-mode-setup () +(defun my/eshell-mode-setup () "Configures various aliases for eshell." (eshell/alias "e" "find-file $1") (eshell/alias "emacs" "find-file $1") (eshell/alias "ee" "find-file-other-window $1") - (eshell/alias "ll" "ls -l") (eshell/alias "d" "dired $1") - (eshell/alias "gs" "magit-status") (eshell/alias "gd" "magit-diff-unstaged") (eshell/alias "gds" "magit-diff-staged") - (eshell/alias "rg" "counsel-rg") - (eshell/alias "cal" "calendar") + (eshell/alias "agenda" "org-agenda")) - (eshell/alias "agenda" "org-agenda") - - ;; Disable current line highlighting. - (setq-local global-hl-line-mode nil)) - -(defun eshell/gst (&rest args) - "Alias for git-status using magit, with optional ARGS." - (magit-status (pop args) nil) - (eshell/echo)) ;; The echo command suppresses output - -(defun fcuny/eshell--open-or-cd (path) +(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) @@ -74,56 +62,17 @@ (eshell-send-input)) (find-file path))) -(defun fcuny/eshell-open-file-at-point () +(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) - (fcuny/eshell--open-or-cd filename)) + (my/eshell--open-or-cd filename)) ((file-readable-p (expand-file-name filename)) - (fcuny/eshell--open-or-cd (expand-file-name filename)))))) - -(defun fcuny/shorten-path (path &optional max-len) - "Return a potentially trimmed-down version of the directory PATH. -Replacing parent directories with their initial characters to try -to get the character length of PATH (sans directory slashes) down -to MAX-LEN." - (let* ((components (split-string (abbreviate-file-name path) "/")) - (host (propertize (system-name) 'face `(:background "#4ba9aa"))) - (max-len (or max-len 30)) - (len (+ (1- (length components)) - (cl-reduce '+ components :key 'length))) - (str "")) - (while (and (> len max-len) - (cdr components)) - (setq str (concat str - (cond ((= 0 (length (car components))) "/") - ((= 1 (length (car components))) - (concat (car components) "/")) - (t - (if (string= "." - (string (elt (car components) 0))) - (concat (substring (car components) 0 2) - "/") - (string (elt (car components) 0) ?/))))) - len (- len (1- (length (car components)))) - components (cdr components))) - (concat host " " str (cl-reduce (lambda (a b) (concat a "/" b)) components)))) - -(defun fcuny/eshell-prompt () - "Sets the prompt for eshell. -If the current path is on a remotehost and starts with `ssh:', -then we replace the prompt with `@' to indicate we're -on a remote host." - (concat - (let ((absolute-path (eshell/pwd))) - (if (string-match "/ssh:\\(.+\\):" absolute-path) - (replace-match (propertize (concat "@" (match-string 1 absolute-path) " ") 'face `(:background "#4ba9aa")) nil nil absolute-path) - (fcuny/shorten-path absolute-path))) - (if (= (user-uid) 0) " # " " $ "))) - -(defun fcuny/eshell-here () + (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 eshell windows easier." @@ -139,20 +88,13 @@ eshell windows easier." (insert (concat "ls " "-lh")) (eshell-send-input))) -(defun fcuny/eshell-main () - "Create a buffer for eshell." - (eshell "new") - (rename-buffer "*eshell: main session*") - (insert "ls -l") - (eshell-send-input)) - -(defvar-local fcuny/eshell-output-buffer "*Exported eshell output*" +(defvar-local my/eshell-output-buffer "*Exported eshell output*" "Name of buffer with the last output of Eshell command.") -(defvar-local fcuny/eshell-output-delimiter "---" +(defvar-local my/eshell-output-delimiter "---" "Delimiter for successive `prot-eshell-export' outputs.") -(defun fcuny/eshell--command-prompt-output () +(defun my/eshell--command-prompt-output () "Capture last command prompt and its output." (let ((beg (save-excursion (goto-char (eshell-beginning-of-input)) @@ -161,17 +103,17 @@ eshell windows easier." (buffer-substring-no-properties beg (eshell-end-of-output))))) ;; https://gitlab.com/protesilaos/dotfiles/-/blob/master/emacs/.emacs.d/prot-lisp/prot-eshell.el#L114 -(defun fcuny/eshell-export () +(defun my/eshell-export () "Produce a buffer with output of the last Eshell command. -If `fcuny/eshell-output-buffer' does not exist, create it. Else +If `my/eshell-output-buffer' does not exist, create it. Else append to it, while separating multiple outputs with -`fcuny/eshell-output-delimiter'." +`my/eshell-output-delimiter'." (interactive) - (let ((eshell-output (fcuny/eshell--command-prompt-output))) - (with-current-buffer (get-buffer-create fcuny/eshell-output-buffer) + (let ((eshell-output (my/eshell--command-prompt-output))) + (with-current-buffer (get-buffer-create my/eshell-output-buffer) (goto-char (point-max)) (unless (eq (point-min) (point-max)) - (insert (format "\n%s\n\n" fcuny/eshell-output-delimiter))) + (insert (format "\n%s\n\n" my/eshell-output-delimiter))) (goto-char (point-at-bol)) (insert eshell-output) (switch-to-buffer-other-window (current-buffer))))) @@ -180,11 +122,11 @@ append to it, while separating multiple outputs with (defvar-local eshell-current-command-start-time nil) ;; https://www.birkey.co/2021-06-20-why-eshell-part-1.html -(defun fcuny/eshell-current-command-start () +(defun my/eshell-current-command-start () "Capture the time for when the command is started." (setq eshell-current-command-start-time (current-time))) -(defun fcuny/eshell-current-command-stop () +(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 @@ -195,21 +137,21 @@ append to it, while separating multiple outputs with (format "Finished in: %.0fs\n" elapsed-time))))) (setq eshell-current-command-start-time nil)) -(defun fcuny/eshell-current-command-time-track () +(defun my/eshell-current-command-time-track () "Track how long command takes to run." - (add-hook 'eshell-pre-command-hook #'fcuny/eshell-current-command-start nil t) - (add-hook 'eshell-post-command-hook #'fcuny/eshell-current-command-stop nil t)) + (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)) (use-package eshell - :hook ((eshell-mode . fcuny/eshell-mode-setup) - (eshell-mode . fcuny/eshell-current-command-time-track) + :hook ((eshell-mode . my/eshell-mode-setup) + (eshell-mode . my/eshell-current-command-time-track) (eshell-mode . eshell-smart-initialize)) :commands (eshell eshell-command) - :bind (("C-c e h" . fcuny/eshell-here) - ("C-c e e" . fcuny/eshell-export) + :bind (("C-c e h" . my/eshell-here) + ("C-c e e" . my/eshell-export) ("C-c r" . counsel-esh-history) :map eshell-mode-map - ("C-o" . fcuny/eshell-open-file-at-point)) + ("C-o" . my/eshell-open-file-at-point)) :custom (eshell-scroll-to-bottom-on-input 'all) (eshell-error-if-no-glob t) @@ -220,7 +162,7 @@ append to it, while separating multiple outputs with (eshell-where-to-jump 'begin) (eshell-review-quick-commands nil) (eshell-smart-space-goes-to-end t) - (eshell-prompt-function 'fcuny/eshell-prompt) + (eshell-prompt-function 'my/eshell-prompt) (tramp-shell-prompt-pattern "^[^$>\n]*[#$%>] *\\(\[[0-9;]*[a-zA-Z] *\\)*") (eshell-destroy-buffer-when-process-dies t)) -- cgit 1.4.1