From: Cecil Westerhof <Cecil@decebal.nl>
To: info-gnus-english@gnu.org
Subject: Some useful key bindings
Date: Wed, 23 Dec 2009 13:06:29 +0100 [thread overview]
Message-ID: <87tyvhyjwa.fsf@Traian.DecebalComp> (raw)
Most of the time I am not interested in all the groups. So I wrote a few
functions and key bindings to easily switch between different situation.
I hope it is useful to somebody. Of course the list with topics have to
be changed to fit your situation. It does not work completely correct,
but good enough to share.
The key bindings are 'v t ?', with:
a: show all topics
c: show compact topics
i: show important topics (compact and a few extra)
n: show no topics
The code:
(defun gnus-topic-hide-all ()
(interactive)
(gnus-topic-show-all)
(gnus-topic-hide-list (gnus-topic-list)))
(defun gnus-topic-hide-list (this-list)
(interactive)
(dolist (this-topic this-list)
(when (gnus-topic-goto-topic this-topic)
(gnus-topic-hide-topic))))
(defun gnus-topic-show-all ()
(interactive)
(gnus-topic-show-list (gnus-topic-list)))
(defun gnus-topic-show-compact ()
(interactive)
(gnus-topic-hide-all)
(gnus-topic-show-list (list "Bedrijf" "Emacs" "NLLGG" "Privé")))
(defun gnus-topic-show-important ()
(interactive)
(gnus-topic-show-compact)
(gnus-topic-show-list (list "Algemeen" "InfoB" "Language" "Linux"
"Tex" "Web" "InfoP" "Misc")))
(defun gnus-topic-show-list (this-list)
(dolist (this-topic this-list)
(gnus-topic-jump-to-topic this-topic)
(gnus-topic-show-topic)))
and the key bindings:
(define-key gnus-group-mode-map (kbd "v t a")
'gnus-topic-show-all)
(define-key gnus-group-mode-map (kbd "v t c")
'gnus-topic-show-compact)
(define-key gnus-group-mode-map (kbd "v t i")
'gnus-topic-show-important)
(define-key gnus-group-mode-map (kbd "v t n")
'gnus-topic-hide-all)
--
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof
next reply other threads:[~2009-12-23 12:06 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-12-23 12:06 Cecil Westerhof [this message]
2010-01-05 19:14 ` Ted Zlatanov
2010-01-05 20:52 ` Cecil Westerhof
2010-01-06 15:31 ` Ted Zlatanov
2010-01-06 15:53 ` Cecil Westerhof
2010-01-06 21:43 ` Ted Zlatanov
2010-01-06 1:45 ` Cecil Westerhof
2010-01-07 14:05 ` Cecil Westerhof
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87tyvhyjwa.fsf@Traian.DecebalComp \
--to=cecil@decebal.nl \
--cc=info-gnus-english@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).