Huge improvements to the question list

1 files changed, 12 insertions, 0 deletions

diff --git a/stack-question.el b/stack-question.el
index 4c67e09..2b6cd1f 100644
--- a/stack-question.el
+++ b/stack-question.el
@@ -45,6 +45,18 @@
    stack-question-browse-filter))
 
 
+;;; Question Properties
+(defun stack-question--read-p (question)
+  "Non-nil if QUESTION has been read since last updated."
+  ;; @TODO:
+  (cl-evenp (random)))
+
+(defun stack-question--accepted-answer (question)
+  "Return accepted answer in QUESTION, or nil if none."
+  ;; @TODO:
+  (cl-evenp (random)))
+
+
 ;;; Displaying a question
 (defvar stack-question--window nil
   "Window where the content of questions is displayed.")