aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config/emacs/elisp/eshell-additions.el
blob: 0abaf6accaaa4a7aa14caba4a7410929a92dd80c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
;;; eshell-additions.el --- Some aliases for Eshell    -*- lexical-binding: t; -*-

;; Copyright (C) 2024  Aryadev Chavali

;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
;; Keywords:

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License Version
;; 2 as published by the Free Software Foundation.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;;

;;; Code:

(autoload #'eshell/cd "eshell")
(autoload #'eshell/echo "eshell")
(autoload #'eshell/send-input "eshell")

;; Aliases
(defun eshell/goto (&rest args)
  "Use `read-directory-name' to change directories"
  (let* ((name (read-file-name "Choose file: "))
         (dir (file-name-directory name)))
    (eshell/cd (list dir))
    (if (not (file-directory-p name))
        (find-file name))))

(defun eshell/project-root (&rest args)
  "Change to directory `project-root'"
  (if (project-current)
      (eshell/cd (list (project-root (project-current))))
    (eshell/echo
     (format "[%s]: No project in current directory"
             (propertize "Error" 'font-lock-face '(:foreground "red"))))))

(defun eshell/sudo-switch (&rest args)
  "Switch to a tramp connection sudo in the current directory"
  (let ((wrapped-dir (concat "/sudo::" default-directory)))
    (eshell/cd wrapped-dir)))

;; Additional functions
(defun +eshell/at-cwd ()
  "Open an instance of eshell at the current working directory."
  (interactive)
  (let ((dir (if buffer-file-name
                 (file-name-directory buffer-file-name)
               default-directory))
        (buf (eshell)))
    (with-current-buffer buf
      (eshell/cd dir)
      (eshell-send-input))))

(defun +eshell/--current-instances ()
  (cl-loop for buffer being the buffers
           if (with-current-buffer buffer
                (eq major-mode 'eshell-mode))
           collect
           (cons (buffer-name buffer) buffer)))

(defun +eshell/open (&optional arg)
  "Open an instance of EShell, displaying it.

If there exists only one instance of EShell, display it.  Otherwise, prompt with
a list of open instances.  If user selects an instance, display that instance.
Otherwise, create an instance with the name given.

If `arg' is non nil, then always prompt user to select an instance."
  (interactive "P")
  (let ((current-instances (+eshell/--current-instances)))
    (cond
     ((and (null current-instances)
           (null arg))
      (eshell))
     ((and (= (length current-instances) 1)
           (null arg))
      (switch-to-buffer (cdar current-instances)))
     (t
      (let* ((answer (completing-read "Enter name: " (mapcar #'car current-instances)))
             (result (assoc answer current-instances)))
        (cond
         (result (switch-to-buffer (cdr result)))
         ((not (string= answer ""))
          (let ((eshell-buffer-name (format "*%s-eshell*" answer)))
            (eshell nil)))
         (t
          (eshell))))))))

(provide 'eshell-additions)
;;; eshell-additions.el ends here