[margin-path] Move label to the margin

master
Jacopo De Simoi 3 years ago
parent 77115afc1b
commit 79ac9016d6
  1. 11
      ace-window.el

@ -400,10 +400,13 @@ LEAF is (PT . WND)."
(when (/= pt old-pt) (when (/= pt old-pt)
(goto-char (+ pt 1)) (goto-char (+ pt 1))
(push (cons wnd old-pt) aw--windows-points))) (push (cons wnd old-pt) aw--windows-points)))
(overlay-put ol 'display (aw--overlay-str wnd pt path)) ;; this is where we would need to add a display-margin thingie
(if (window-minibuffer-p wnd) (overlay-put ol 'before-string
(overlay-put ol 'face 'aw-minibuffer-leading-char-face) (propertize "." 'display
(overlay-put ol 'face 'aw-leading-char-face)) `((margin left-margin)
,(propertize
(concat " " (aw--overlay-str wnd pt path))
'face (if (window-minibuffer-p wnd) 'aw-minibuffer-leading-char-face 'aw-leading-char-face)))))
(overlay-put ol 'window wnd) (overlay-put ol 'window wnd)
(push ol avy--overlays-lead))))) (push ol avy--overlays-lead)))))

Loading…
Cancel
Save