[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