diff options
author | bd <bdunahu@colostate.edu> | 2024-01-10 19:44:21 -0700 |
---|---|---|
committer | bd <bdunahu@colostate.edu> | 2024-01-10 19:44:21 -0700 |
commit | 1ced565816120bfcc351daf9fc3a4e851162e3b7 (patch) | |
tree | 93e9c23660cd07f4dba861f334b23c03d322f48c /.config/emacs/bd-shells.el | |
parent | da5922a476cebdbbf338f0192165dbbbcd3f7b6f (diff) |
Initial commit of new repository structure
Diffstat (limited to '.config/emacs/bd-shells.el')
-rw-r--r-- | .config/emacs/bd-shells.el | 47 |
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)) |