packages.el

(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))))