13a5d5c95f
vterm in evil mode did not longer support to switch to normal mode for one command in insert mode. This commit restores this key binding again.
363 lines
13 KiB
EmacsLisp
363 lines
13 KiB
EmacsLisp
;;; packages.el --- shell packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defconst shell-packages
|
|
'(
|
|
(comint :location built-in)
|
|
company
|
|
esh-help
|
|
(eshell :location built-in)
|
|
eshell-prompt-extras
|
|
eshell-z
|
|
evil-collection
|
|
helm
|
|
ivy
|
|
magit
|
|
multi-term
|
|
org
|
|
projectile
|
|
(shell :location built-in)
|
|
shell-pop
|
|
(term :location built-in)
|
|
xterm-color
|
|
terminal-here
|
|
vi-tilde-fringe
|
|
window-purpose
|
|
(vterm :toggle (not (spacemacs/system-is-mswindows)))))
|
|
|
|
|
|
(defun shell/init-comint ()
|
|
(setq comint-prompt-read-only t)
|
|
(add-hook 'comint-mode-hook 'spacemacs/disable-hl-line-mode)
|
|
(with-eval-after-load 'centered-cursor-mode
|
|
(add-hook 'comint-mode-hook 'spacemacs//inhibit-global-centered-cursor-mode)))
|
|
|
|
(defun shell/pre-init-company ()
|
|
;; support in eshell
|
|
(spacemacs|use-package-add-hook eshell
|
|
:post-init
|
|
(progn
|
|
(spacemacs|add-company-backends :backends company-capf :modes eshell-mode)
|
|
(add-hook 'eshell-directory-change-hook
|
|
'spacemacs//toggle-shell-auto-completion-based-on-path)
|
|
;; The default frontend screws everything up in short windows like
|
|
;; terminal often are
|
|
(add-hook 'eshell-mode-hook
|
|
'spacemacs//eshell-switch-company-frontend))))
|
|
|
|
(defun shell/init-esh-help ()
|
|
(use-package esh-help
|
|
:defer t
|
|
:init (add-hook 'eshell-mode-hook 'eldoc-mode)
|
|
:config (setup-esh-help-eldoc)))
|
|
|
|
(defun shell/init-eshell ()
|
|
(use-package eshell
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(spacemacs/register-repl 'eshell 'eshell)
|
|
(setq eshell-cmpl-cycle-completions nil
|
|
;; auto truncate after 20k lines
|
|
eshell-buffer-maximum-lines 20000
|
|
;; history size
|
|
eshell-history-size 350
|
|
;; no duplicates in history
|
|
eshell-hist-ignoredups t
|
|
;; my prompt is easy enough to see
|
|
eshell-highlight-prompt nil
|
|
;; treat 'echo' like shell echo
|
|
eshell-plain-echo-behavior t
|
|
;; cache directory
|
|
eshell-directory-name (concat spacemacs-cache-directory "eshell/"))
|
|
|
|
(when shell-protect-eshell-prompt
|
|
(add-hook 'eshell-after-prompt-hook 'spacemacs//protect-eshell-prompt))
|
|
|
|
(autoload 'eshell-delchar-or-maybe-eof "em-rebind")
|
|
|
|
(add-hook 'eshell-mode-hook 'spacemacs//init-eshell)
|
|
(add-hook 'eshell-mode-hook 'spacemacs/disable-hl-line-mode)
|
|
(with-eval-after-load 'centered-cursor-mode
|
|
(add-hook 'eshell-mode-hook 'spacemacs//inhibit-global-centered-cursor-mode)))
|
|
:config
|
|
(progn
|
|
|
|
;; Work around bug in eshell's preoutput-filter code.
|
|
;; Eshell doesn't call preoutput-filter functions in the context of the eshell
|
|
;; buffer. This breaks the xterm color filtering when the eshell buffer is updated
|
|
;; when it's not currently focused.
|
|
;; To remove if/when fixed upstream.
|
|
(defun eshell-output-filter@spacemacs-with-buffer (fn process string)
|
|
(let ((proc-buf (if process (process-buffer process)
|
|
(current-buffer))))
|
|
(when proc-buf
|
|
(with-current-buffer proc-buf
|
|
(funcall fn process string)))))
|
|
(advice-add
|
|
#'eshell-output-filter
|
|
:around
|
|
#'eshell-output-filter@spacemacs-with-buffer)
|
|
|
|
(require 'esh-opt)
|
|
|
|
;; quick commands
|
|
(defalias 'eshell/e 'find-file-other-window)
|
|
(defalias 'eshell/d 'dired)
|
|
(setenv "PAGER" "cat")
|
|
|
|
;; support `em-smart'
|
|
(when shell-enable-smart-eshell
|
|
(require 'em-smart)
|
|
(setq eshell-where-to-jump 'begin
|
|
eshell-review-quick-commands nil
|
|
eshell-smart-space-goes-to-end t)
|
|
(add-hook 'eshell-mode-hook 'eshell-smart-initialize))
|
|
|
|
;; Visual commands
|
|
(require 'em-term)
|
|
(mapc (lambda (x) (add-to-list 'eshell-visual-commands x))
|
|
'("el" "elinks" "htop" "less" "ssh" "tmux" "top"))
|
|
|
|
;; automatically truncate buffer after output
|
|
(when (boundp 'eshell-output-filter-functions)
|
|
(add-hook 'eshell-output-filter-functions #'eshell-truncate-buffer)))))
|
|
|
|
(defun shell/pre-init-evil-collection ()
|
|
(add-to-list 'spacemacs-evil-collection-allowed-list 'vterm))
|
|
|
|
(defun shell/init-eshell-prompt-extras ()
|
|
(use-package eshell-prompt-extras
|
|
:commands epe-theme-lambda
|
|
:init
|
|
(setq eshell-highlight-prompt nil
|
|
eshell-prompt-function 'epe-theme-lambda)))
|
|
|
|
(defun shell/init-eshell-z ()
|
|
(use-package eshell-z
|
|
:after eshell
|
|
:init
|
|
(setq eshell-z-freq-dir-hash-table-file-name
|
|
(concat spacemacs-cache-directory "eshell/.z"))))
|
|
|
|
(defun shell/pre-init-helm ()
|
|
(spacemacs|use-package-add-hook helm
|
|
:post-init
|
|
(progn
|
|
;; eshell
|
|
(add-hook 'eshell-mode-hook 'spacemacs/init-helm-eshell)
|
|
;;shell
|
|
(spacemacs/set-leader-keys-for-major-mode 'shell-mode
|
|
"H" 'spacemacs/helm-shell-history))))
|
|
|
|
(defun shell/pre-init-ivy ()
|
|
(spacemacs|use-package-add-hook ivy
|
|
:post-init
|
|
(add-hook 'eshell-mode-hook 'spacemacs/init-ivy-eshell))
|
|
(spacemacs/set-leader-keys-for-major-mode 'shell-mode
|
|
"H" 'counsel-shell-history))
|
|
|
|
(defun shell/pre-init-magit ()
|
|
(spacemacs|use-package-add-hook magit
|
|
:post-init
|
|
(defalias 's 'magit-status)))
|
|
|
|
(defun shell/init-multi-term ()
|
|
(use-package multi-term
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(spacemacs/register-repl 'multi-term 'multi-term))
|
|
:config
|
|
(progn
|
|
(add-to-list 'term-bind-key-alist '("<tab>" . term-send-tab))
|
|
;; multi-term commands to create terminals and move through them.
|
|
(spacemacs/set-leader-keys-for-major-mode 'term-mode
|
|
"c" 'multi-term
|
|
"C" 'term-char-mode
|
|
"l" 'term-line-mode
|
|
"n" 'multi-term-next
|
|
"N" 'multi-term-prev
|
|
"p" 'multi-term-prev))))
|
|
|
|
(defun shell/pre-init-org ()
|
|
(spacemacs|use-package-add-hook org
|
|
:post-config (add-to-list 'org-babel-load-languages '(shell . t))))
|
|
|
|
(defun shell/post-init-projectile ()
|
|
(spacemacs/set-leader-keys
|
|
"p'" 'spacemacs/projectile-shell-pop
|
|
"p$t" 'projectile-multi-term-in-root)
|
|
(spacemacs/declare-prefix "p$" "projects/shell"))
|
|
|
|
(defun shell/init-shell ()
|
|
(spacemacs/register-repl 'shell 'shell)
|
|
(defun shell-comint-input-sender-hook ()
|
|
"Check certain shell commands.
|
|
Executes the appropriate behavior for certain commands."
|
|
(setq comint-input-sender
|
|
(lambda (proc command)
|
|
(cond
|
|
;; Check for clear command and execute it.
|
|
((string-match "^[ \t]*clear[ \t]*$" command)
|
|
(comint-send-string proc "\n")
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer)))
|
|
;; Check for man command and execute it.
|
|
((string-match "^[ \t]*man[ \t]*" command)
|
|
(comint-send-string proc "\n")
|
|
(setq command (replace-regexp-in-string
|
|
"^[ \t]*man[ \t]*" "" command))
|
|
(setq command (replace-regexp-in-string
|
|
"[ \t]+$" "" command))
|
|
(funcall 'man command))
|
|
;; Send other commands to the default handler.
|
|
(t (comint-simple-send proc command))))))
|
|
(add-hook 'shell-mode-hook 'shell-comint-input-sender-hook)
|
|
(add-hook 'shell-mode-hook 'spacemacs/disable-hl-line-mode)
|
|
|
|
(with-eval-after-load 'centered-cursor-mode
|
|
(add-hook 'shell-mode-hook 'spacemacs//inhibit-global-centered-cursor-mode)))
|
|
|
|
(defun shell/init-shell-pop ()
|
|
(use-package shell-pop
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(setq shell-pop-window-position shell-default-position
|
|
shell-pop-window-size shell-default-height
|
|
shell-pop-term-shell shell-default-term-shell
|
|
shell-pop-full-span shell-default-full-span)
|
|
(make-shell-pop-command "eshell" eshell)
|
|
(make-shell-pop-command "term" term shell-pop-term-shell)
|
|
(make-shell-pop-command "ansi-term" ansi-term shell-pop-term-shell)
|
|
(make-shell-pop-command "inferior-shell" inferior-shell)
|
|
(make-shell-pop-command "multiterm" multiterm)
|
|
|
|
(let* ((initial-shell-mode-name (format "%S-mode" shell-default-shell))
|
|
(initial-shell-mode (intern initial-shell-mode-name)))
|
|
(evil-set-initial-state initial-shell-mode 'insert))
|
|
|
|
(when (fboundp 'spacemacs/make-variable-layout-local)
|
|
(spacemacs/make-variable-layout-local 'shell-pop-last-shell-buffer-index 1
|
|
'shell-pop-last-shell-buffer-name ""
|
|
'shell-pop-last-buffer nil))
|
|
|
|
(add-hook 'term-mode-hook 'ansi-term-handle-close)
|
|
|
|
(spacemacs/set-leader-keys
|
|
"'" 'spacemacs/default-pop-shell
|
|
"atse" 'spacemacs/shell-pop-eshell
|
|
"atsi" 'spacemacs/shell-pop-inferior-shell
|
|
"atsm" 'spacemacs/shell-pop-multiterm
|
|
"atst" 'spacemacs/shell-pop-ansi-term
|
|
"atsT" 'spacemacs/shell-pop-term)
|
|
(spacemacs/declare-prefix "'" "open shell"))
|
|
:config
|
|
(add-hook 'shell-pop-out-hook #'spacemacs//shell-pop-restore-window)))
|
|
|
|
(defun shell/init-term ()
|
|
(spacemacs/register-repl 'term 'term)
|
|
(spacemacs/register-repl 'term 'ansi-term)
|
|
(defun term-send-tab ()
|
|
"Send tab in term mode."
|
|
(interactive)
|
|
(term-send-raw-string "\t"))
|
|
|
|
(when (eq dotspacemacs-editing-style 'vim)
|
|
(evil-define-key 'insert term-raw-map
|
|
(kbd "C-k") 'term-send-up
|
|
(kbd "C-j") 'term-send-down))
|
|
|
|
(evil-define-key 'insert term-raw-map
|
|
(kbd "<mouse-2>") 'term-mouse-paste
|
|
(kbd "<mouse-3>") 'term-mouse-paste
|
|
(kbd "C-c C-d") 'term-send-eof
|
|
(kbd "C-c C-z") 'term-stop-subjob
|
|
(kbd "<tab>") 'term-send-tab)
|
|
|
|
(evil-define-key 'normal term-raw-map
|
|
(kbd "<mouse-2>") 'term-mouse-paste
|
|
(kbd "<mouse-3>") 'term-mouse-paste
|
|
(kbd "C-k") 'term-send-up
|
|
(kbd "C-j") 'term-send-down
|
|
;; hack to fix pasting issue, the paste transient-state won't work in term
|
|
"p" 'term-paste)
|
|
|
|
(add-hook 'term-mode-hook 'spacemacs/disable-hl-line-mode)
|
|
(with-eval-after-load 'centered-cursor-mode
|
|
(add-hook 'term-mode-hook 'spacemacs//inhibit-global-centered-cursor-mode)))
|
|
|
|
(defun shell/init-xterm-color ()
|
|
(use-package xterm-color
|
|
:init
|
|
(progn
|
|
;; Comint and Shell
|
|
(add-hook 'comint-preoutput-filter-functions 'xterm-color-filter)
|
|
(setq comint-output-filter-functions
|
|
(remove 'ansi-color-process-output comint-output-filter-functions))
|
|
(add-hook 'eshell-mode-hook 'spacemacs/init-eshell-xterm-color))))
|
|
|
|
(defun shell/init-terminal-here ()
|
|
(use-package terminal-here
|
|
:defer t
|
|
:commands (terminal-here-launch terminal-here-project-launch)
|
|
:init
|
|
(progn
|
|
(spacemacs/register-repl 'terminal-here 'terminal-here)
|
|
(spacemacs/set-leader-keys
|
|
"\"" 'terminal-here-launch
|
|
"p \"" 'terminal-here-project-launch))))
|
|
|
|
|
|
(defun shell/post-init-vi-tilde-fringe ()
|
|
(spacemacs/add-to-hooks 'spacemacs/disable-vi-tilde-fringe
|
|
'(comint-mode-hook
|
|
eshell-mode-hook
|
|
shell-mode-hook
|
|
term-mode-hook)))
|
|
|
|
(defun shell/init-vterm ()
|
|
(use-package vterm
|
|
:defer t
|
|
:commands (vterm vterm-other-window)
|
|
:init
|
|
(progn
|
|
(make-shell-pop-command "vterm" vterm)
|
|
(spacemacs/set-leader-keys "atsv" 'spacemacs/shell-pop-vterm)
|
|
(spacemacs/register-repl 'vterm 'vterm))
|
|
:config
|
|
(progn
|
|
(setq vterm-shell shell-default-term-shell)
|
|
(define-key vterm-mode-map (kbd "M-n") 'vterm-send-down)
|
|
(define-key vterm-mode-map (kbd "M-p") 'vterm-send-up)
|
|
(define-key vterm-mode-map (kbd "M-y") 'vterm-yank-pop)
|
|
(define-key vterm-mode-map (kbd "M-/") 'vterm-send-tab)
|
|
(when spacemacs-vterm-history-file-location
|
|
(spacemacs//vterm-bind-m-r vterm-mode-map))
|
|
(evil-define-key 'insert vterm-mode-map (kbd "C-y") 'vterm-yank)
|
|
(evil-define-key 'insert vterm-mode-map (kbd "C-o") 'evil-execute-in-normal-state)
|
|
(evil-define-key 'normal vterm-mode-map
|
|
[escape] 'vterm-send-escape
|
|
[return] 'vterm-send-return
|
|
(kbd "p") 'vterm-yank
|
|
(kbd "u") 'vterm-undo)
|
|
(add-hook 'vterm-mode-hook 'spacemacs/disable-hl-line-mode)
|
|
(with-eval-after-load 'centered-cursor-mode
|
|
(add-hook 'vterm-mode-hook 'spacemacs//inhibit-global-centered-cursor-mode)))))
|
|
|
|
(defun shell/post-init-window-purpose ()
|
|
(purpose-set-extension-configuration
|
|
:shell-layer
|
|
(purpose-conf :mode-purposes '((vterm-mode . terminal)
|
|
(eshell-mode . terminal)
|
|
(shell-mode . terminal)
|
|
(term-mode . terminal)))))
|