[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/gnus-search 5b6b375 11/12: WIP on search presets
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] scratch/gnus-search 5b6b375 11/12: WIP on search presets |
Date: |
Wed, 3 May 2017 11:51:00 -0400 (EDT) |
branch: scratch/gnus-search
commit 5b6b375810cc3132534824a51dbef4224fcea699
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
WIP on search presets
---
lisp/gnus/gnus-search.el | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 640577c..f4554b3 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -106,6 +106,31 @@ transformed."
:type 'boolean
:group 'gnus-search)
+(defcustom gnus-search-presets nil
+ "A list of search \"presets\" for easy search configuration.
+
+A preset is a set of groups to search, possibly also with a
+\"base query\". Selecting a preset will prompt for a search
+query which will be run against the specified groups, ANDed with
+the base query, if present. The base query can be specified as
+an unparsed string, or as a parsed sexp.
+
+Each present should be a list holding a list of groups, and an
+optional base query. For example:
+
+\(\(\"nnimap+server1:group1\" \"nnmaildir+server2:group2\) \"since:1m\"\)
+
+Presets are made available in the Gnus *Group* keymap as \"G
+<n>\", where <n> is the preset's 1-indexed place in
+`gnus-search-presets'."
+ :version "26.3"
+ :group 'gnus-search
+ :type '(repeat (group
+ (repeat (string :tag "Group name"))
+ (choice (string :tag "Unparsed base query")
+ (list :tag "Parsed base query")
+ (const :tag "No base query" nil)))))
+
(defcustom gnus-search-ignored-newsgroups ""
"A regexp to match newsgroups in the active file that should
be skipped when searching."
- [Emacs-diffs] branch scratch/gnus-search created (now 221b872), Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 05dbfee 07/12: Make related change to nnselect.el, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 5c9bab3 03/12: Make related change to nnselect.el, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 5b6b375 11/12: WIP on search presets,
Eric Abrahamsen <=
- [Emacs-diffs] scratch/gnus-search 221b872 12/12: WIP on Mairix server, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 2f27292 08/12: Handle regexp and wildcard search terms, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search a3e7edf 04/12: Add function gnus-search-prepare-query, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 741ccdc 06/12: Create general gnus-search-indexed-massage-output method, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 6e1e003 05/12: Move search group creation functions to gnus-group.el, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search ec2eadf 09/12: Remove Hyrex search engine, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search e9b5c5d 10/12: WIP on documentation, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 8d71e81 01/12: WIP on a generalized search query language for Gnus, Eric Abrahamsen, 2017/05/03
- [Emacs-diffs] scratch/gnus-search 89700be 02/12: Rename nnir.el to gnus-search.el, Eric Abrahamsen, 2017/05/03