Re: make-progress-reporter suggestions: 'modeline and customizable progress-reporter--pulse-characters

[Michael Albinus <michael.albinus@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 983 bytes --]

Michael Albinus <michael.albinus@gmx.de> writes:

> The small appended patch allows alsy symbols as first argument of
> `make-progress-reporter. If this argument is a string, the progress
> reporter still uses the minibuffer. If the argument is a symbol (used in
> `mode-line-format'), the respective part of the modeline is updated.
>
> See the examples:
>
> ;; Use harvey balls for progress.
> (setq pr1 (make-progress-reporter 'mode-line-remote))
> (let ((progress-reporter--pulse-characters
>        '["\u25F7" "\u25F6" "\u25F5" "\u25F4"]))
>   (while t (progress-reporter-update pr1)))
>
> ;; Let the buffer name blink.
> (setq pr2 (make-progress-reporter 'mode-line-buffer-identification))
> (let ((progress-reporter--pulse-characters
>        (vector '(:propertize "%12b" face mode-line-buffer-id)
> 	       '(:propertize "%12b" face font-lock-warning-face))))
>     (while t (progress-reporter-update pr2)))

Oops, patch forgotten. Appended.

>> Ted

Best regards, Michael.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1318 bytes --]

*** /tmp/ediff2346l1x	2011-02-20 12:32:15.324458002 +0100
--- /home/albinus/src/emacs/lisp/subr.el	2011-02-20 12:16:16.294458002 +0100
***************
*** 3588,3600 ****
  		 (message "%s" text)))))
  	  ;; Pulsing indicator
  	  (enough-time-passed
! 	   (let ((index (mod (1+ (car reporter)) 4))
  		 (message-log-max nil))
  	     (setcar reporter index)
! 	     (message "%s %s"
! 		      text
! 		      (aref progress-reporter--pulse-characters
! 			    index)))))))
  
  (defun progress-reporter-done (reporter)
    "Print reporter's message followed by word \"done\" in echo area."
--- 3588,3608 ----
  		 (message "%s" text)))))
  	  ;; Pulsing indicator
  	  (enough-time-passed
! 	   (let ((index (mod (1+ (car reporter))
! 			     (length progress-reporter--pulse-characters)))
  		 (message-log-max nil))
  	     (setcar reporter index)
! 	     (if (stringp text)
! 		 ;; Write into the minibuffer
! 		 (message "%s %s"
! 			  text
! 			  (aref progress-reporter--pulse-characters index))
! 	       ;; Update modeline
! 	       (eval
! 		`(let (((make-local-variable ,text)
! 			(aref progress-reporter--pulse-characters index)))
! 		   (force-mode-line-update)
! 		   (sit-for 0)))))))))
  
  (defun progress-reporter-done (reporter)
    "Print reporter's message followed by word \"done\" in echo area."