emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: make mu4e-headers-sort-field, mu4e-headers-sort-direction public

This commit is contained in:
djcb 2015-03-22 10:57:07 +02:00
parent 455582401e
commit 52176dabfc
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
mu4e/mu4e-headers.el
View File

@ -161,6 +161,16 @@ query have been received and are displayed."
:group 'mu4e-headers) :group 'mu4e-headers)
(defvar mu4e-headers-sort-field :date
"Field to sort the headers by.
Field must be a symbol, one of: :date, :subject, :size, :prio,
:from, :to.")
(defvar mu4e-headers-sort-direction 'descending
"Direction to sort by; a symbol either `descending' (sorting
Z->A) or `ascending' (sorting A->Z).")
;; marks for headers of the form; each is a cons-cell (basic . fancy) ;; marks for headers of the form; each is a cons-cell (basic . fancy)
;; each of which is basic ascii char and something fancy, respectively ;; each of which is basic ascii char and something fancy, respectively
(defvar mu4e-headers-draft-mark (purecopy '("D" . "⚒")) "Draft.") (defvar mu4e-headers-draft-mark (purecopy '("D" . "⚒")) "Draft.")
@ -720,8 +730,8 @@ after the end of the search results."
(downarrow (if mu4e-use-fancy-chars " ▼" " V")) (downarrow (if mu4e-use-fancy-chars " ▼" " V"))
;; triangle to mark the sorted-by column ;; triangle to mark the sorted-by column
(arrow (arrow
(when (and sortable (eq (car item) mu4e~headers-sort-field)) (when (and sortable (eq (car item) mu4e-headers-sort-field))
(if (eq mu4e~headers-sort-direction 'descending) downarrow uparrow))) (if (eq mu4e-headers-sort-direction 'descending) downarrow uparrow)))
(name (concat (plist-get info :shortname) arrow)) (name (concat (plist-get info :shortname) arrow))
(map (make-sparse-keymap))) (map (make-sparse-keymap)))
(when sortable (when sortable
@ -943,8 +953,8 @@ the query history stack."
(mu4e~proc-find (mu4e~proc-find
expr expr
mu4e-headers-show-threads mu4e-headers-show-threads
mu4e~headers-sort-field mu4e-headers-sort-field
mu4e~headers-sort-direction mu4e-headers-sort-direction
maxnum maxnum
mu4e-headers-skip-duplicates mu4e-headers-skip-duplicates
mu4e-headers-include-related))) mu4e-headers-include-related)))
@ -1240,15 +1250,6 @@ query (effectively, 'widen' it), with `mu4e-headers-query-prev'."
(format "(%s) AND %s" mu4e~headers-last-query filter))) (format "(%s) AND %s" mu4e~headers-last-query filter)))
(defvar mu4e~headers-sort-field :date
"Field to sort the headers by.
Field must be a symbol, one of: :date, :subject, :size, :prio,
:from, :to.")
(defvar mu4e~headers-sort-direction 'descending
"Direction to sort by; a symbol either `descending' (sorting
Z->A) or `ascending' (sorting A->Z).")
(defun mu4e-headers-change-sorting (&optional field dir) (defun mu4e-headers-change-sorting (&optional field dir)
"Change the sorting/threading parameters. "Change the sorting/threading parameters.
FIELD is the field to sort by; DIR is a symbol: either 'ascending, FIELD is the field to sort by; DIR is a symbol: either 'ascending,
@ -1272,18 +1273,18 @@ sortfield, change the sort-order) or nil (ask the user)."
((ascending descending) dir) ((ascending descending) dir)
;; change the sort order if field = curfield ;; change the sort order if field = curfield
(t (t
(if (eq sortfield mu4e~headers-sort-field) (if (eq sortfield mu4e-headers-sort-field)
(if (eq mu4e~headers-sort-direction 'ascending) (if (eq mu4e-headers-sort-direction 'ascending)
'descending 'ascending) 'descending 'ascending)
'descending)) 'descending))
(mu4e-read-option "Direction: " (mu4e-read-option "Direction: "
'(("ascending" . 'ascending) ("descending" . 'descending)))))) '(("ascending" . 'ascending) ("descending" . 'descending))))))
(setq (setq
mu4e~headers-sort-field sortfield mu4e-headers-sort-field sortfield
mu4e~headers-sort-direction dir) mu4e-headers-sort-direction dir)
(mu4e-message "Sorting by %s (%s)" (mu4e-message "Sorting by %s (%s)"
(symbol-name sortfield) (symbol-name sortfield)
(symbol-name mu4e~headers-sort-direction)) (symbol-name mu4e-headers-sort-direction))
(mu4e-headers-rerun-search))) (mu4e-headers-rerun-search)))
(defun mu4e~headers-toggle (name togglevar dont-refresh) (defun mu4e~headers-toggle (name togglevar dont-refresh)