info-gnus-english
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Some useful key bindings


From: Cecil Westerhof
Subject: Re: Some useful key bindings
Date: Wed, 06 Jan 2010 02:45:59 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (gnu/linux)

Ted Zlatanov <tzz@lifelogs.com> writes:

> This is nice and useful.  You could make it a Gnus add-on (living under
> contrib/) if you make the compact and important topic lists
> customizable.

I think that I have come a long way to make it suitable. But I want to
go one step further. ;-)

At the moment I have several key bindings like the following:
    (define-key gnus-group-mode-map (kbd "v j d")
      (lambda ()
        (interactive)
        (gnus-group-jump-to-group "nndraft:drafts")))

The 'v' is reserved for Gnus, the 'j' is jump and -in this case- the 'd'
says to what needs to be jumped. What I would like to do, is to define a
list with entries like:
    ("d" "nndraft:drafts")

Then write something like:
(setq this-key-binding (concat "vj" (first this-jump)))
(define-key gnus-group-mode-map this-key-binding
  (lambda ()
    (interactive)
    (gnus-group-jump-to-group (second this-jump))))

This seems to work, but there is one problem (I think). When this is
evaluated this gives:
    (lambda nil (interactive) (gnus-group-jump-to-group (second this-jump)))

while I would expect:
    (lambda nil (interactive) (gnus-group-jump-to-group "nndraft:drafts"))

What am I doing wrong?

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof


reply via email to

[Prev in Thread] Current Thread [Next in Thread]