Re: gnus-registry flags API

[Ted Zlatanov <tzz@lifelogs.com>]

On Wed, 05 Mar 2008 13:00:54 -0600 Ted Zlatanov <tzz@lifelogs.com> wrote: 

TZ> On Tue, 04 Mar 2008 16:43:46 -0600 Ted Zlatanov <tzz@lifelogs.com> wrote: 
TZ> I couldn't figure out the text properties, or how to update the summary
TZ> line as soon as a flag is set.  For now I've comitted a function
TZ> gnus-registry-user-format-function-M that shows the flags (unsorted, in
TZ> the order they were set).  But the user has to exit the group and
TZ> re-enter it to see the new flags.  I'll take a look again but if someone
TZ> knows how to do it, please let me know to save me all the work.

TZ> I still haven't done text properties, but the rest is working now.  See
TZ> gnus-registry-user-format-function-M and gnus-registry-install-shortcuts
TZ> for the details.

I played with the text properties, but they just don't look very nice.
The image needs to be aligned exactly with the character size or the
line is skewed, and I didn't want to spend the time getting that perfect
alignment.  Here's an example user formatting function which inserts an
image (as Reiner showed me) at the insertion point, in case someone
wants to play with it further.

(defun gnus-registry-user-format-function-propertized-M (headers)
  (let* ((id (mail-header-message-id headers))
	 (marks (when id (gnus-registry-fetch-extra-marks id))))
    (with-temp-buffer
      (dolist (mark marks)
	(let* ((info (cdr-safe (assoc mark gnus-registry-marks)))
	       (c (plist-get info :char))
	       (i (plist-get info :image)))
	  (when c
	    (insert c)
	    (when i
	      (add-text-properties (1- (point)) (point)
				   (list 'display gnus-mode-line-image-cache
					 'help-echo "To do")
				   (current-buffer))))))
      (buffer-string))))

Users can just use a Unicode character until someone provides a better
user formatting function.  Here's my Greek letter setup (omega for
"work" is a stretch, but I didn't want to overthink this :)

(setq gnus-registry-marks  
      '((Important
     :char ?ι)
    (Work
     :char ?ω)
    (Personal
     :char ?π)
    (To-Do
     :char ?τ)
    (Later
     :char ?λ)))

Note :image is not specified as it is in the default specification of
the variable.  It's not used, and none of the current functionality
needs it, so it can be safely omitted.

Ted