summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-05-29 22:33:20 -0400
committerKyle Meyer <kyle@kyleam.com>2015-05-29 22:33:20 -0400
commit8fccff249687308542d490ed00d1e0a68a44b9f2 (patch)
treeee51d755ede982c6488afbcbc7d2d7e744a975b7
parent1da884c4e33fbce3e137c4958ceecbfad3bcf7f7 (diff)
downloademacs.d-8fccff249687308542d490ed00d1e0a68a44b9f2.tar.gz
Use avy instead of ace-jump-mode
-rw-r--r--Cask1
-rw-r--r--lisp/init-ace.el8
-rw-r--r--lisp/init-git.el6
-rw-r--r--lisp/init-gnus.el11
-rw-r--r--lisp/init-org.el4
-rw-r--r--lisp/init-view.el2
6 files changed, 14 insertions, 18 deletions
diff --git a/Cask b/Cask
index cad319a..985b1c1 100644
--- a/Cask
+++ b/Cask
@@ -6,6 +6,7 @@
(depends-on "ace-window")
(depends-on "auctex")
(depends-on "auto-complete")
+(depends-on "avy")
(depends-on "boxquote")
(depends-on "dash")
(depends-on "diminish")
diff --git a/lisp/init-ace.el b/lisp/init-ace.el
index db1a514..e971121 100644
--- a/lisp/init-ace.el
+++ b/lisp/init-ace.el
@@ -1,10 +1,6 @@
-;;; Ace Jump
+;;; Avy
-(setq ace-jump-mode-scope 'frame)
-
-(key-chord-define-global "jf" 'ace-jump-mode)
-
-(setq ace-jump-mode-move-keys (loop for i from ?a to ?z collect i))
+(key-chord-define-global "jf" 'avy-goto-subword-1)
;;; Ace Link
diff --git a/lisp/init-git.el b/lisp/init-git.el
index 7387816..b8e4244 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -281,9 +281,9 @@ the file name if NO-DIRECTORY is non-nil."
(define-key magit-file-section-map (kbd "C-j") 'magit-diff-visit-file-worktree)
(define-key magit-hunk-section-map (kbd "C-j") 'magit-diff-visit-file-worktree)
- (define-key magit-log-mode-map "j" 'ace-jump-mode)
- (define-key magit-refs-mode-map "j" 'ace-jump-mode)
- (define-key magit-cherry-mode-map "j" 'ace-jump-mode)
+ (define-key magit-log-mode-map "j" 'avy-goto-subword-1)
+ (define-key magit-refs-mode-map "j" 'avy-goto-subword-1)
+ (define-key magit-cherry-mode-map "j" 'avy-goto-subword-1)
(define-key km/git-map "c" 'km/magit-show-commit-under-point)
(define-key km/git-map "C" 'km/magit-show-project-commit-under-point)
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el
index e556b53..6abfd04 100644
--- a/lisp/init-gnus.el
+++ b/lisp/init-gnus.el
@@ -94,11 +94,10 @@ is off."
(setq gnus-thread-hide-subtree t
gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-number))
-(add-hook 'gnus-summary-mode-hook 'km/gnus-setup-local-ace-jump)
-
-(defun km/gnus-setup-local-ace-jump ()
- (add-hook 'ace-jump-mode-end-hook (lambda () (gnus-summary-scroll-up 0))
- nil t))
+(defun km/gnus-avy-goto-subword-and-select ()
+ (interactive)
+ (call-interactively #'avy-goto-subword-1)
+ (gnus-summary-scroll-up 0))
(defun km/gnus-follow-last-message-link (copy)
"Follow shr link at bottom of message.
@@ -173,7 +172,7 @@ to group buffer instead of moving to next group."
;; 'S p'.
(define-key gnus-summary-mode-map "c" 'km/gnus-summary-catchup)
(define-key gnus-summary-mode-map "e" 'gnus-summary-scroll-up)
-(define-key gnus-summary-mode-map "j" 'ace-jump-mode)
+(define-key gnus-summary-mode-map "j" 'km/gnus-avy-goto-subword-and-select)
(define-key gnus-article-mode-map
(kbd "C-c l") 'km/gnus-follow-last-message-link)
diff --git a/lisp/init-org.el b/lisp/init-org.el
index 71f422f..a66b3eb 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -599,9 +599,9 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)."
(add-to-list 'org-speed-commands-user '("w" . km/org-refile-dwim)))
(after 'org-agenda
- ;; Free up 'j' for `ace-jump-mode'.
+ ;; Free up 'j' for `avy-goto-subword-1'.
(define-key org-agenda-mode-map (kbd "C-j") 'org-agenda-goto-date)
- (define-key org-agenda-mode-map "j" 'ace-jump-mode))
+ (define-key org-agenda-mode-map "j" 'avy-goto-subword-1))
;;; Links
diff --git a/lisp/init-view.el b/lisp/init-view.el
index fab08e9..9a4536c 100644
--- a/lisp/init-view.el
+++ b/lisp/init-view.el
@@ -6,7 +6,7 @@
(define-key view-mode-map "b" 'backward-word)
(define-key view-mode-map "]" 'forward-paragraph)
(define-key view-mode-map "[" 'backward-paragraph)
- (define-key view-mode-map "j" 'ace-jump-mode))
+ (define-key view-mode-map "j" 'avy-goto-subword-1))
(key-chord-define-global "hq" 'view-mode)