From f6699988fd521703c1d44489e3d89c6f71d418df Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 11 Nov 2014 12:12:30 -0500 Subject: Move question sorting function to sx.el It is not specific to questions -- it is generally applicable to any alist. --- sx-question-list.el | 2 +- sx-question.el | 6 ------ sx.el | 7 +++++++ 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/sx-question-list.el b/sx-question-list.el index caf24b1..a164706 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -120,7 +120,7 @@ Letters do not insert themselves; instead, they are commands. (defun sx-question-list--date-more-recent-p (x y) "Non-nil if tabulated-entry X is newer than Y." - (sx-question--< + (sx--< sx-question-list-date-sort-method (car x) (car y) #'>)) diff --git a/sx-question.el b/sx-question.el index 20a71cc..601875f 100644 --- a/sx-question.el +++ b/sx-question.el @@ -56,12 +56,6 @@ "Mark QUESTION as being read, until it is updated again." nil) -(defun sx-question--< (property x y &optional pred) - "Non-nil if PROPERTY attribute of question X is less than that of Y. -With optional argument predicate, use it instead of `<'." - (funcall (or pred #'<) - (cdr (assoc property x)) - (cdr (assoc property y)))) ;;; Displaying a question (defvar sx-question--window nil diff --git a/sx.el b/sx.el index 6165714..0a1b046 100644 --- a/sx.el +++ b/sx.el @@ -160,6 +160,13 @@ Run after `sx-init--internal-hook'.") This is used internally to set initial values for variables such as filters.") +(defun sx--< (property x y &optional pred) + "Non-nil if PROPERTY attribute of question X is less than that of Y. +With optional argument predicate, use it instead of `<'." + (funcall (or pred #'<) + (cdr (assoc property x)) + (cdr (assoc property y)))) + (defmacro sx-init-variable (variable value &optional setter) "Set VARIABLE to VALUE using SETTER. SETTER should be a function of two arguments. If SETTER is nil, -- cgit v1.2.3