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

Bugfix for spray package loading

Browse source 
And some small UX improvements when on it.

Fixes #3882 (again :-))
This commit is contained in:
Fabien Dubosson 2015-12-02 17:44:38 +01:00 committed by syl20bnr
parent e9f8653a34
commit f5584a7f86
2 changed files with 22 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
layers/speed-reading/README.org
View file

@ -18,11 +18,12 @@ To use this contribution add it to your =~/.spacemacs=
* Key bindings
| Key Binding | Description |
|---------------+---------------|
| ~<SPC> a s r~ | Start Spray |
| ~h~ | Backward word |
| ~l~ | Forward word |
| ~f~ | Faster speed |
| ~s~ | Slower speed |
| ~q~ | Quit Spray |
| Key Binding | Description |
|-------------+---------------|
| ~SPC a R~ | Start Spray |
| ~SPC~ | Pause Spray |
| ~h~ | Backward word |
| ~l~ | Forward word |
| ~f~ | Faster speed |
| ~s~ | Slower speed |
| ~q~ | Quit Spray |

18
layers/speed-reading/packages.el
View file

@ -10,22 +10,26 @@
;;
;;; License: GPLv3
(setq speed-reading-packages '(spray))
(setq speed-reading-packages
'(
spray
which-key
))
(defun spacemacs/init-spray ()
(defun speed-reading/init-spray ()
(use-package spray
:commands spray-mode
:init
(progn
(defun spacemacs/start-spray ()
(defun speed-reading/start-spray ()
"Start spray speed reading on current buffer at current point."
(interactive)
(evil-insert-state)
(spray-mode t)
(internal-show-cursor (selected-window) nil))
(spacemacs/set-leader-keys "asr" 'spacemacs/start-spray)
(spacemacs/set-leader-keys "aR" 'speed-reading/start-spray)
(defadvice spray-quit (after spacemacs//quit-spray activate)
(defadvice spray-quit (after speed-reading//quit-spray activate)
"Correctly quit spray."
(internal-show-cursor (selected-window) t)
(evil-normal-state)))
@ -34,3 +38,7 @@
(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 "q") 'spray-quit))))
(defun speed-reading/post-init-which-key ()
(push '("\\`speed-reading/\\(.+\\)\\'" . "\\1")
which-key-description-replacement-alist))