emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/doom-modeline: fix current index in iedit segment

Browse source
This commit is contained in:
Henrik Lissner 2017-03-03 17:50:22 -05:00
parent fcb88ef940
commit ebf85fe0a8
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/ui/doom-modeline/config.el
View file

@ -454,19 +454,20 @@ lines are selected, or the NxM dimensions of a block selection."
(defsubst +doom-modeline--iedit ()
"Show the number of iedit regions matches + what match you're on."
(when (and (featurep 'iedit) iedit-mode)
(when (and iedit-mode iedit-occurrences-overlays)
(propertize
(let ((this-oc (let (message-log-max) (iedit-find-current-occurrence-overlay)))
(length (or (ignore-errors (length iedit-occurrences-overlays)) 0)))
(format " %s/%s "
(save-excursion
(unless this-oc
(iedit-prev-occurrence)
(setq this-oc (iedit-find-current-occurrence-overlay)))
(let ((this-oc (or (let ((inhibit-message t))
(iedit-find-current-occurrence-overlay))
(progn (iedit-prev-occurrence)
(iedit-find-current-occurrence-overlay))))
(length (length iedit-occurrences-overlays)))
(format " %s/%d "
(if this-oc
;; NOTE: Not terribly reliable
(- length (-elem-index this-oc iedit-occurrences-overlays))
"-"))
(- length
(length (cdr
(memq this-oc (sort (append iedit-occurrences-overlays (list))
(lambda (x y) (< (overlay-start x) (overlay-start y))))))))
"-")
length))
'face (if (active) 'doom-modeline-panel))))