From 3328a62d42ff3ca62c31366a4cd0cfd38a3ec663 Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Thu, 15 Jan 2015 00:01:32 -0500
Subject: Create and implement comparator creation macro

This obsoletes `sx--<'.
---
 sx-question-list.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'sx-question-list.el')

diff --git a/sx-question-list.el b/sx-question-list.el
index 1b7fe5a..5909156 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -322,11 +322,11 @@ into consideration.
   ;; Add a setter to protect the value.
   :group 'sx-question-list)
 
-(defun sx-question-list--date-more-recent-p (x y)
-  "Non-nil if tabulated-entry X is newer than Y."
-  (sx--<
-   sx-question-list-date-sort-method
-   (car x) (car y) #'>))
+(sx--create-comparator sx-question-list--date-more-recent-p
+  "Non-nil if tabulated-entry A is newer than B."
+  > (lambda (x)
+      (cdr (assoc sx-question-list-date-sort-method
+                  (car x)))))
 
 
 ;;; Keybinds
-- 
cgit v1.2.3