aboutsummaryrefslogtreecommitdiff
path: root/bard-elisp/bard-terminal.el
blob: d00640cf88363374a6a00fdbc4caec050736f711 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun bard/open-terminal-in-current-directory ()
  "Open a terminal in the current working directory."
  (interactive)
  (let ((default-directory default-directory))
    (term "/bin/bash")))

(global-set-key (kbd "C-c t") 'bard/open-terminal-in-current-directory)

(defun bard/open-terminal-emulator ()
  "Open a terminal in the current working directory."
  (interactive)
  (let ((default-directory default-directory))
    (start-process "st terminal" nil "st")))

(define-key dired-mode-map (kbd "C-c C-t") 'bard/open-terminal-emulator)

(provide 'bard-terminal.el)