From 087ff1fdf3c4d42510d59a91659f166763baec57 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 15 Jan 2015 00:22:51 -0500 Subject: Add more sorting functions --- sx-question.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/sx-question.el b/sx-question.el index d624f45..7c687e8 100644 --- a/sx-question.el +++ b/sx-question.el @@ -194,6 +194,14 @@ If no cache exists for it, initialize one with SITE." "Return t if answer A has a higher score than answer B." #'> (lambda (x) (cdr (assoc 'score x)))) +(sx--create-comparator sx-answer-older-p + "Return t if answer A was posted later than answer B." + #'< (lambda (x) (cdr (assoc 'creation_date x)))) + +(sx--create-comparator sx-answer-more-active-p + "Return t if answer A was updated after answer B." + #'> (lambda (x) (cdr (assoc 'last_activity_date x)))) + (provide 'sx-question) ;;; sx-question.el ends here -- cgit v1.2.3