eshell.el

;; https://www.gnu.org/software/emacs/manual/html_mono/eshell.html
;;
;; https://www.emacswiki.org/emacs/CategoryEshell
;;
;; http://www.howardism.org/Technical/Emacs/eshell-fun.html
;;
;; https://masteringemacs.org/article/complete-guide-mastering-eshell

(require 'eshell)
(setq eshell-path-env (concat "/usr/local/bin" ":"
                              eshell-path-env))


;; Taken from <http://www.emacswiki.org/emacs/EshellFunctions>
(defun eshell/emacs (&rest args)
  "Open a file in emacs. Some habits die hard."
  (if (null args)
      ;; If I just ran "emacs", I probably expect to be launching
      ;; Emacs, which is rather silly since I'm already in Emacs.
      ;; So just pretend to do what I ask.
      (bury-buffer)
    ;; We have to expand the file names or else naming a directory in an
    ;; argument causes later arguments to be looked for in that directory,
    ;; not the starting directory
    (mapc #'find-file (mapcar #'expand-file-name (eshell-flatten-list (reverse args))))))
(defun eshell/vi (&rest args)
  (apply 'eshell/emacs args))
(defun eshell/vim (&rest args)
  (apply 'eshell/emacs args))

(defun format-commands (&rest commands)
  (mapcar (lambda (command)
            (shell-command (apply 'format command)))
          commands))

(defun eshell/git-branch-here (branch)
  (format-commands `("git push origin :%s" ,branch)
                   `("git branch -d %s" ,branch)
                   `("git checkout -b %s" ,branch)
                   `("git push origin %s:%s" ,branch ,branch)))

(defun eshell/git-experimental-here ()
  (eshell/git-branch-here "experimental"))

(global-set-key (kbd "<f6> <f6>") 'eshell)

(eval-after-load 'eshell
  '(require 'eshell-autojump nil t))

(setq eshell-last-dir-ring-size 500)

(setq eshell-prompt-function
      (lambda ()
        (concat
         (propertize (format-time-string "%-m/%d/%Y %a %-I:%M:%S %p " (current-time))
                     'face `(:foreground "#aaaaff"))
         (propertize (abbreviate-file-name (eshell/pwd))
                     'face `(:foreground "#aaaa44"))
         (if (= (user-uid) 0) " # " " $ "))))

(defun eshell-named (buffer-name)
  (interactive "sEShell buffer named: ")
  (let ((eshell-buffer-name (concat "*" buffer-name "*")))
    (eshell)))

(global-set-key (kbd "<f6> e") 'eshell)
(global-set-key (kbd "<f6> E") 'eshell-named)