Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar navorski-packages
- '(navorski))
- (defun navorski/terminal-line-mode ()
- (interactive)
- (when (term-in-char-mode)
- (term-line-mode)
- (linum-mode 1))
- (when (evil-emacs-state-p)
- (evil-normal-state)))
- (defun navorski/terminal-char-mode ()
- (interactive)
- (when (evil-normal-state-p)
- (evil-emacs-state))
- (when (term-in-line-mode)
- (term-char-mode)
- (linum-mode 0)))
- (defun navorski/terminal-toggle-mode ()
- (interactive)
- (cond
- ;; on char mode
- ((term-in-char-mode)
- (progn
- (term-line-mode)
- (linum-mode 1)))
- ;; on line mode
- ((term-in-line-mode)
- (progn
- (term-char-mode)
- (evil-emacs-state)
- (linum-mode 0)))
- ;; else
- (t nil)))
- (defun navorski/set-keybidings ()
- (evil-local-set-key 'emacs
- (kbd "<f7> n") 'navorski/terminal-line-mode)
- (evil-local-set-key 'normal
- (kbd "<f7> e") 'navorski/terminal-char-mode))
- (defun navorski/init-navorski ()
- (use-package navorski
- :config
- (progn
- (setq-default multi-term-program (or (getenv "SHELL")
- "/bin/sh"))
- (evil-set-initial-state 'term-mode 'emacs)
- (evil-leader/set-key "]" 'nav/term)
- (add-hook 'term-mode-hook 'navorski/set-keybidings))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement