TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix spray cursor issue when quitting

Browse source 
fixes #679
This commit is contained in:
syl20bnr 2015-05-10 00:39:07 -04:00
parent b10e3c8b97
commit dd277ca00d
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
spacemacs/extensions.el
View file

@ -115,22 +115,24 @@
:commands spray-mode :commands spray-mode
:init :init
(progn (progn
(evil-leader/set-key "asr" (defun spacemacs/start-spray ()
(lambda () "Start spray speed reading on current buffer at current point."
(interactive) (interactive)
(evil-insert-state) (evil-insert-state)
(spray-mode t) (spray-mode t)
(evil-insert-state-cursor-hide)))) (evil-insert-state-cursor-hide))
(evil-leader/set-key "asr" 'spacemacs/start-spray)
(defun spacemacs//quit-spray ()
"Correctly quit spray."
(set-default-evil-insert-state-cursor)
(evil-normal-state))
(advice-add 'spray-quit :after 'spacemacs//quit-spray))
:config :config
(progn (progn
(define-key spray-mode-map (kbd "h") 'spray-backward-word) (define-key spray-mode-map (kbd "h") 'spray-backward-word)
(define-key spray-mode-map (kbd "l") 'spray-forward-word) (define-key spray-mode-map (kbd "l") 'spray-forward-word)
(define-key spray-mode-map (kbd "q") (define-key spray-mode-map (kbd "q") 'spray-quit))))
(lambda ()
(interactive)
(spray-quit)
(set-default-evil-insert-state-cursor)
(evil-normal-state))))))
(defun spacemacs/init-solarized-theme () (defun spacemacs/init-solarized-theme ()
(use-package solarized (use-package solarized