iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
82ffa7d
)
add spray-quit plus some minor docs
author
Ian Kelling
<ian@iankelling.org>
Sun, 29 Jun 2014 22:49:20 +0000
(15:49 -0700)
committer
Ian Kelling
<ian@iankelling.org>
Mon, 30 Jun 2014 03:39:28 +0000
(20:39 -0700)
spray.el
patch
|
blob
|
history
diff --git
a/spray.el
b/spray.el
index 5a4318bba91adf3ce1c04f94242460800f765506..7e38b4eee3dbd13a0cad1a37dc6760cf1e7ddf5b 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-56,7
+56,8
@@
(define-key km (kbd "<left>") 'spray-backward-word)
(define-key km (kbd "<right>") 'spray-forward-word)
(define-key km (kbd "f") 'spray-faster)
(define-key km (kbd "<left>") 'spray-backward-word)
(define-key km (kbd "<right>") 'spray-forward-word)
(define-key km (kbd "f") 'spray-faster)
- (define-key km (kbd "s") 'spray-slower)
+ (define-key km (kbd "q") 'spray-quit)
+ (define-key km (kbd "<return>") 'spray-quit)
km)
"keymap for spray-mode buffers")
km)
"keymap for spray-mode buffers")
@@
-77,7
+78,8
@@
;; * internal vars
;; * internal vars
-(defvar spray--margin-string "")
+(defvar spray--margin-string ""
+ "Currently not used.")
(defvar spray--base-overlay nil)
(defvar spray--orp-overlay nil)
(defvar spray--running nil)
(defvar spray--base-overlay nil)
(defvar spray--orp-overlay nil)
(defvar spray--running nil)
@@
-89,10
+91,11
@@
;; * utility functions
(defun spray-set-margins (left above)
;; * utility functions
(defun spray-set-margins (left above)
- "add margins before/above the spray text. each arguments can be
+ "Currently broken & not used:
+add margins before/above the spray text. each arguments can be
an integer or a float value."
(setq spray--margin-string
an integer or a float value."
(setq spray--margin-string
- (propertize " " 'display `((space-width ,left) (height ,(
1+
above))))))
+ (propertize " " 'display `((space-width ,left) (height ,(
+ 1
above))))))
;; * the mode
;; * the mode
@@
-134,6
+137,11
@@
an integer or a float value."
(remove-hook 'pre-command-hook 'spray--pre-command-handler)
(spray-stop))))
(remove-hook 'pre-command-hook 'spray--pre-command-handler)
(spray-stop))))
+(defun spray-quit ()
+ "Exit spray mode."
+ (interactive)
+ (spray-mode -1))
+
(defun spray--pre-command-handler ()
(unless (string-match "^spray-" (symbol-name this-command))
(spray-mode -1)))
(defun spray--pre-command-handler ()
(unless (string-match "^spray-" (symbol-name this-command))
(spray-mode -1)))