From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/76995 Path: news.gmane.org!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.devel,gmane.emacs.gnus.general Subject: Re: make-progress-reporter suggestions: 'modeline and customizable progress-reporter--pulse-characters Date: Sun, 20 Feb 2011 12:33:09 +0100 Message-ID: <87bp276ive.fsf@gmx.de> References: <87ei76yi1x.fsf@lifelogs.com> <87lj1ergg5.fsf@gmx.de> <87ipwi3hjm.fsf@lifelogs.com> <87fwrmr6gf.fsf@gmx.de> <8739nm1u6n.fsf_-_@lifelogs.com> <878vxdxfzw.fsf@lifelogs.com> <87fwrj6j18.fsf@gmx.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1298201608 8652 80.91.229.12 (20 Feb 2011 11:33:28 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 20 Feb 2011 11:33:28 +0000 (UTC) Cc: ding@gnus.org, emacs-devel@gnu.org To: Ted Zlatanov Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Feb 20 12:33:23 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Pr7XW-0001ha-L8 for ged-emacs-devel@m.gmane.org; Sun, 20 Feb 2011 12:33:22 +0100 Original-Received: from localhost ([127.0.0.1]:53120 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pr7XV-0004DY-Vy for ged-emacs-devel@m.gmane.org; Sun, 20 Feb 2011 06:33:21 -0500 Original-Received: from [140.186.70.92] (port=40527 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pr7XQ-0004DT-Q5 for emacs-devel@gnu.org; Sun, 20 Feb 2011 06:33:17 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pr7XP-0001lK-M4 for emacs-devel@gnu.org; Sun, 20 Feb 2011 06:33:16 -0500 Original-Received: from mailout-de.gmx.net ([213.165.64.22]:59838) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1Pr7XP-0001lF-BL for emacs-devel@gnu.org; Sun, 20 Feb 2011 06:33:15 -0500 Original-Received: (qmail invoked by alias); 20 Feb 2011 11:33:13 -0000 Original-Received: from p57BB8DAD.dip0.t-ipconnect.de (EHLO detlef.gmx.de) [87.187.141.173] by mail.gmx.net (mp004) with SMTP; 20 Feb 2011 12:33:13 +0100 X-Authenticated: #3708877 X-Provags-ID: V01U2FsdGVkX182Jncq7Co2HiWjUmDQJsEhpQxBRI+eAr2R2aBrN1 dtFPIZ5qe1aKBq In-Reply-To: <87fwrj6j18.fsf@gmx.de> (Michael Albinus's message of "Sun, 20 Feb 2011 12:29:39 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) X-Y-GMX-Trusted: 0 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 213.165.64.22 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:136277 gmane.emacs.gnus.general:76995 Archived-At: --=-=-= Content-Type: text/plain Michael Albinus 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. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment *** /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." --=-=-=--