emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master fd7b929 078/110: Add option to display an indented goto li


From: Oleh Krehel
Subject: [elpa] master fd7b929 078/110: Add option to display an indented goto line overlay
Date: Sat, 11 May 2019 10:15:48 -0400 (EDT)

branch: master
commit fd7b9297191ebcd630310cdff7e78698eb81495c
Author: Lane Spangler <address@hidden>
Commit: Lane Spangler <address@hidden>

    Add option to display an indented goto line overlay
    
    It may be useful to display the overlay for `avy-goto-line` next to the 
first
    non whitespace character on each line so that your eyes do not have to look
    across from the code on the line to the left edge of the buffer.
    
    This commit adds a defcustom for `avy-indent-line-overlay` which enables 
this
    new behavior when non nil.
---
 avy.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/avy.el b/avy.el
index a7af8cf..dfd7995 100644
--- a/avy.el
+++ b/avy.el
@@ -1429,6 +1429,10 @@ Which one depends on variable `subword-mode'."
 
 (defvar visual-line-mode)
 
+(defcustom avy-indent-line-overlay nil
+  "When non-nil, `avy-goto-line' will display the line overlay next to the 
first non-whitespace character of each line."
+  :type 'boolean)
+
 (defun avy--line-cands (&optional arg beg end bottom-up)
   "Get candidates for selecting a line.
 The window scope is determined by `avy-all-windows'.
@@ -1448,7 +1452,10 @@ When BOTTOM-UP is non-nil, display avy candidates from 
top to bottom"
                 (push (cons
                        (if (eq avy-style 'post)
                            (line-end-position)
-                         (point))
+                         (save-excursion
+                           (when avy-indent-line-overlay
+                             (skip-chars-forward " \t"))
+                           (point)))
                        (selected-window)) candidates))
               (if visual-line-mode
                   (progn



reply via email to

[Prev in Thread] Current Thread [Next in Thread]