diff options
-rw-r--r-- | .emacs.d/modules/thanos-shells.el (renamed from .emacs.d/modules/thanos-eshell.el) | 25 | ||||
-rw-r--r-- | .stumpwm.d/keybindings.lisp | 3 |
2 files changed, 10 insertions, 18 deletions
diff --git a/.emacs.d/modules/thanos-eshell.el b/.emacs.d/modules/thanos-shells.el index 8d5e164..36552d4 100644 --- a/.emacs.d/modules/thanos-eshell.el +++ b/.emacs.d/modules/thanos-shells.el @@ -1,4 +1,4 @@ -;;; thanos-eshell.el --- eshell configuration -*- lexical-binding: t; -*- +;;; thanos-shell.el --- shells configuration -*- lexical-binding: t; -*- ;; Copyright (C) 2023 Thanos Apollo @@ -32,6 +32,9 @@ (setenv "EDITOR" "emacsclient -n") (setenv "DEBEMAIL" "[email protected]") (setenv "DEBNAME" "Thanos Apollo") +(setenv "SBCL_HOME" "/usr/local/lib/sbcl") +(setenv "XDG_SESSION_TYPE" "x11") + ;; configuration with eat (require 'eshell) (require 'eat) @@ -116,6 +119,7 @@ (defvar eshell-path-env (getenv "~/.local/bin")) (require 'eshell-git-prompt) + ;; customize multiline theme (defun eshell-git-prompt-multiline () "Eshell Git prompt inspired by spaceship-prompt." @@ -150,21 +154,10 @@ (setq eshell-highlight-prompt t) - -(define-prefix-command 'thanos/eshell-map) -(global-set-key (kbd "C-c e") 'thanos/eshell-map) - -(define-key thanos/eshell-map (kbd "o") 'multi-eshell) -(define-key thanos/eshell-map (kbd "n") 'multi-eshell-switch) - -(defvar thanos/vterm-map (make-sparse-keymap)) -(define-prefix-command 'thanos/vterm-map) -(define-key global-map (kbd "C-c v") 'thanos/vterm-map) -(define-key thanos/vterm-map (kbd "n") 'multi-vterm-next) -(define-key thanos/vterm-map (kbd "p") 'multi-vterm-prev) -(define-key thanos/vterm-map (kbd "d") 'multi-vterm-dedicated-open) -(define-key thanos/vterm-map (kbd "o") 'multi-vterm) +;; Keybindings +(define-key global-map (kbd "C-c e") 'eshell) +(define-key global-map (kbd "C-c v") 'vterm) -(provide 'thanos-eshell) +(provide 'thanos-shells) ;;; thanos-eshell.el ends here diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp index 1bb7caa..3bf5a2a 100644 --- a/.stumpwm.d/keybindings.lisp +++ b/.stumpwm.d/keybindings.lisp @@ -10,8 +10,7 @@ (define-key *root-map* (kbd "C-r") "exec emacsclient -e '(thanos/app-launcher\)'") (define-key *root-map* (kbd ",") "exec flameshot gui") -(define-key *root-map* (kbd "C-R") "restart-hard") -(define-key *root-map* (kbd "M-r") "restart-soft") +(define-key *root-map* (kbd "M-r") "restart-hard") (define-key *root-map* (kbd "p") "exec emacsclient -e '(thanos/pass-launcher)'") (define-key *root-map* (kbd "F") "float-this") (define-key *root-map* (kbd "U") "unfloat-this") |