Make avy-goto-subword-1 ignore invisible text

1 files changed, 12 insertions, 1 deletions

diff --git a/lisp/init-ace.el b/lisp/init-ace.el
index e971121..d033e52 100644
--- a/lisp/init-ace.el
+++ b/lisp/init-ace.el
@@ -1,6 +1,17 @@
 ;;; Avy
 
-(key-chord-define-global "jf" 'avy-goto-subword-1)
+(require 'avy)
+
+(defun km/avy-goto-subword-1 (char arg)
+  "Like `avy-goto-subword-1', but don't consider invisible text."
+  (interactive (list (read-char "char: ") current-prefix-arg))
+  (avy--with-avy-keys avy-goto-subword-1
+    (let ((char (downcase char)))
+      (avy-goto-subword-0
+       arg (lambda () (and (not (invisible-p (point)))
+                           (eq (downcase (char-after)) char)))))))
+
+(key-chord-define-global "jf" 'km/avy-goto-subword-1)
 
 ;;; Ace Link