diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-12 10:07:18 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-12 10:07:18 -0200 |
| commit | 0ddc0693f364ed547291bda199728a2dc8495c5f (patch) | |
| tree | 9503888c32f89216b8912bae36a2c154d889c334 | |
| parent | db477cd54fa51f7604a8cba815848c7ea1b7ba37 (diff) | |
Make sx-search-default-order a defcustom
| -rw-r--r-- | sx-search.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/sx-search.el b/sx-search.el index 55964b9..235d5f7 100644 --- a/sx-search.el +++ b/sx-search.el @@ -68,9 +68,14 @@ KEYWORDS is passed to `sx-method-call'." (default-value 'sx-question-list--order-methods))) "Alist of possible values to be passed to the `sort' keyword.") -(defvar sx-search-default-order 'activity +(defcustom sx-search-default-order 'activity "Default ordering method used on new searches. -Possible values are the cdrs of `sx-search--order-methods'.") +Possible values are the cdrs of `sx-search--order-methods'." + :type (cons 'choice + (mapcar (lambda (c) `(const :tag ,(car c) ,(cdr c))) + (cl-remove-duplicates + sx-search--order-methods + :key #'cdr)))) ;;;###autoload |