From 6a2252c6e6aec21cb9c9336b706947343f9e4fa6 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 15 Nov 2014 01:52:27 +0000
Subject: Highlighting accepted answers actually works now.

---
 sx-question.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'sx-question.el')

diff --git a/sx-question.el b/sx-question.el
index d15cc80..19251ab 100644
--- a/sx-question.el
+++ b/sx-question.el
@@ -34,6 +34,7 @@
      question.comments
      question.answers
      question.last_editor
+     question.accepted_answer_id
      user.display_name
      comment.owner
      comment.body_markdown
@@ -69,10 +70,11 @@
   ;; @TODO:
   (cl-evenp (random)))
 
-(defun sx-question--accepted-answer (question)
+(defun sx-question--accepted-answer-id (question)
   "Return accepted answer in QUESTION, or nil if none."
-  ;; @TODO:
-  (cl-evenp (random)))
+  (sx-assoc-let question
+    (and (integerp .accepted_answer_id)
+         .accepted_answer_id)))
 
 (defun sx-question--mark-read (question)
   "Mark QUESTION as being read, until it is updated again."
-- 
cgit v1.2.3