branch: elpa/anzu
commit 241af32b99869dff1f5f9f3cf58c0ff96a9050df
Author: Syohei YOSHIDA <[email protected]>
Commit: Syohei YOSHIDA <[email protected]>
Add update mode-line function
---
anzu.el | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/anzu.el b/anzu.el
index 20f0d01d15..e57bf9788a 100644
--- a/anzu.el
+++ b/anzu.el
@@ -41,6 +41,11 @@ First `%d' is current position, second `%d' is total number
of matched"
:type 'string
:group 'anzu)
+(defcustom anzu-mode-line-update-function nil
+ "Function which return mode-line string"
+ :type 'function
+ :group 'anzu)
+
(defface anzu-mode-line
'((t (:foreground "magenta" :weight bold)))
"face of anzu modeline"
@@ -94,9 +99,13 @@ First `%d' is current position, second `%d' is total number
of matched"
(when (anzu--mode-line-not-set-p)
(setq mode-line-format (cdr mode-line-format))))
+(defun anzu--update-mode-line-default (here total)
+ (propertize (format "(%d/%d)" here total) 'face 'anzu-mode-line))
+
(defun anzu--update-mode-line ()
- (propertize (format anzu-mode-line-format anzu--current-posion
anzu--total-matched)
- 'face 'anzu-mode-line))
+ (let ((update-func (or anzu-mode-line-update-function
+ 'anzu--update-mode-line-default)))
+ (funcall update-func anzu--current-posion anzu--total-matched)))
;;;###autoload
(define-minor-mode anzu-mode
@@ -112,7 +121,8 @@ First `%d' is current position, second `%d' is total number
of matched"
(add-hook 'isearch-mode-end-hook 'anzu--reset-mode-line nil t))
(remove-hook 'isearch-update-post-hook 'anzu--update t)
(remove-hook 'isearch-mode-hook 'anzu--cons-mode-line nil t)
- (remove-hook 'isearch-mode-end-hook 'anzu--reset-mode-line t)))
+ (remove-hook 'isearch-mode-end-hook 'anzu--reset-mode-line t)
+ (anzu--reset-mode-line)))
;;;###autoload
(define-global-minor-mode global-anzu-mode
