Merge branch 'master' into more-tests

1 files changed, 19 insertions, 1 deletions

diff --git a/sx-question.el b/sx-question.el
index 0e830a6..1e3a02c 100644
--- a/sx-question.el
+++ b/sx-question.el
@@ -1,4 +1,4 @@
-;;; sx-question.el --- Base question logic. -*- lexical-binding: t; -*-
+;;; sx-question.el --- question logic                -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014  Sean Allred
 
@@ -19,6 +19,9 @@
 
 ;;; Commentary:
 
+;; This file provides an API for retrieving questions and defines
+;; additional logic for marking questions as read or hidden.
+
 
 ;;; Code:
 
@@ -184,6 +187,21 @@ If no cache exists for it, initialize one with SITE."
   "Formats TAG for display."
   (concat "[" tag "]"))
 
+
+;;; Question Mode Answer-Sorting Functions
+
+(sx--create-comparator sx-answer-higher-score-p
+  "Return t if answer A has a higher score than answer B."
+  #'> (lambda (x) (cdr (assq 'score x))))
+
+(sx--create-comparator sx-answer-newer-p
+  "Return t if answer A was posted later than answer B."
+  #'> (lambda (x) (cdr (assq 'creation_date x))))
+
+(sx--create-comparator sx-answer-more-active-p
+  "Return t if answer A was updated after answer B."
+  #'> (lambda (x) (cdr (assq 'last_activity_date x))))
+
 (provide 'sx-question)
 ;;; sx-question.el ends here