From 544adc43c39bdae8230205209d5893b75af3bef9 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 11 Feb 2015 23:27:19 -0500 Subject: gnus: Add ido variants for group and topic jumping --- lisp/init-gnus.el | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index f95f11c..a4657bc 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -1,6 +1,4 @@ (require 'gnus) -(autoload 'gnus-group-topic "gnus-topic") - (require 'org-gnus) (setq gnus-home-directory "~/.gnus.d/" @@ -79,6 +77,28 @@ is off." (string< (gnus-group-topic (gnus-info-group info1)) (gnus-group-topic (gnus-info-group info2)))) +(autoload 'gnus-group-topic "gnus-topic") +(defun km/gnus-group-jump-to-group () + "`gnus-group-jump-to-group', but with ido completion." + (interactive) + (gnus-group-jump-to-group + (ido-completing-read "Group: " + (mapcar #'car (cdr gnus-newsrc-alist)) + nil t))) + +(defun km/gnus-topic-jump-to-topic () + "`gnus-group-jump-to-group', but with ido completion." + (interactive) + (gnus-topic-jump-to-topic + (ido-completing-read "Topic: " + (mapcar #'car gnus-topic-alist) + nil t))) + +(define-key gnus-group-mode-map [remap gnus-group-jump-to-group] + 'km/gnus-group-jump-to-group) +(define-key gnus-group-mode-map [remap gnus-topic-jump-to-topic] + 'km/gnus-topic-jump-to-topic) + (define-key gnus-group-mode-map "e" 'gnus-group-select-group) -- cgit v1.2.3