diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-12-27 21:20:32 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-12-28 12:08:35 -0500 |
| commit | f355e4fc3b9a06e65e1102c073bdf340f06454c2 (patch) | |
| tree | e4d942d79f79399979c3286bf958be303c9fb59b | |
| parent | 2b08667d9165da5381e6044b1ffa0bea90241110 (diff) | |
| download | piem-f355e4fc3b9a06e65e1102c073bdf340f06454c2.tar.gz | |
lei q: Allow initial input for query to be customized
piem-lei-query reads with initial input of "d:20.days.ago.. ", which I
find useful because this time restriction works well with what I'm
most often searching for. (This is a value I've long used with
Notmuch.) However, what value of "recent" is most reasonable is
likely to vary across users, and some users may not want the
restriction at all.
Add an option so that the initial input can be easily configured.
Message-Id: <20211228022037.206597-2-kyle@kyleam.com>
| -rw-r--r-- | piem-lei.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/piem-lei.el b/piem-lei.el index ffd72f3..4485dcd 100644 --- a/piem-lei.el +++ b/piem-lei.el @@ -37,6 +37,12 @@ "Which lei executable to use." :type 'string) +(defcustom piem-lei-query-initial-input "d:20.days.ago.. " + "Initial input when reading `lei q' queries." + :package-version '(piem . "0.4.0") + :type '(choice (const :tag "None" nil) + (string :tag "Query"))) + ;;;; Helpers @@ -233,7 +239,9 @@ unless DISPLAY is non-nil." QUERY is split according to `split-string-and-unquote'." (interactive (list (split-string-and-unquote - (read-string "Query: " "d:20.days.ago.. " 'piem-lei-query-history)) + (read-string "Query: " + piem-lei-query-initial-input + 'piem-lei-query-history)) (transient-args 'piem-lei-q))) (with-current-buffer (get-buffer-create "*lei-query*") (let ((inhibit-read-only t)) |