summaryrefslogtreecommitdiff
path: root/.config/emacs/bd-shells.el
diff options
context:
space:
mode:
authorbd <bdunahu@colostate.edu>2024-01-10 19:44:21 -0700
committerbd <bdunahu@colostate.edu>2024-01-10 19:44:21 -0700
commit1ced565816120bfcc351daf9fc3a4e851162e3b7 (patch)
tree93e9c23660cd07f4dba861f334b23c03d322f48c /.config/emacs/bd-shells.el
parentda5922a476cebdbbf338f0192165dbbbcd3f7b6f (diff)
Initial commit of new repository structure
Diffstat (limited to '.config/emacs/bd-shells.el')
-rw-r--r--.config/emacs/bd-shells.el47
1 files changed, 0 insertions, 47 deletions
diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el
deleted file mode 100644
index 4054e5d..0000000
--- a/.config/emacs/bd-shells.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-
-(defun eshell-open-buffer ()
- "Opens eshell in the bottom
-side window."
- (interactive)
- (let ((curr-buffer (current-buffer))
- (eshell (eshell)))
- (switch-to-buffer curr-buffer)
- (display-buffer-in-side-window (get-buffer eshell) '((side . top)))
- (switch-to-buffer-other-window eshell)))
-
-(defun bd/get-prompt-path ()
- (abbreviate-file-name (eshell/pwd)))
-
-(defun bd/eshell-prompt ()
- "Assemble a shell prompt including host, git
-status, and path."
- (let ((current-branch (magit-get-current-branch)))
- (concat
- "\n"
- (propertize (system-name) 'face `(:foreground "#edb54b"))
- ;; (when current-branch
- ;; (concat
- ;; (format " %s " (all-the-icons-octicon "git-branch"))
- ;; (propertize current-branch 'face `(:foreground "#98d1ce"))))
- (format " %s " (all-the-icons-fileicon "gn"))
- (propertize (bd/get-prompt-path) 'face `(:foreground "#33859d"))
- (propertize (format-time-string " %a, %R") 'face `(:foreground "#888ba5"))
- (propertize "\n> " 'face `(:foreground "#c33027")))))
-
-(use-package eshell
- :bind (("C-z C-e" . 'eshell-open-buffer)
- :map eshell-mode-map
- ("C-q" . 'delete-window) ; mostly for side window
- ("<tab>" . completion-at-point))
- :custom
- (eshell-prompt-function 'bd/eshell-prompt)
- (eshell-prompt-regexp "^> ")
- (eshell-scroll-to-bottom-on-input 'this)
- (eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "~/.config/emacs/images/raven.png") 'png nil :scale 0.2 :align-to "center")) "\n")))
-
-
-(use-package term
- :config
- (defalias 'term 'ansi-term))