From b5bcd91bffb67ee1a902a15f2857784626435852 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 25 Nov 2014 02:43:28 +0000
Subject: Finish voting implementation on the question list.

---
 sx.el | 31 +++++++++++++++++++++++++------
 1 file changed, 25 insertions(+), 6 deletions(-)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index 12b08a1..09b5181 100644
--- a/sx.el
+++ b/sx.el
@@ -195,6 +195,18 @@ Return the result of BODY."
       (and (derived-mode-p 'sx-question-list-mode)
            (tabulated-list-get-id))))
 
+(defun sx--maybe-update-display ()
+  "Refresh the question list if we're inside it."
+  (cond
+   ((derived-mode-p 'sx-question-list-mode)
+    (sx-question-list-refresh 'redisplay 'no-update))))
+
+(defun sx--copy-data (from to)
+  "Copy all fields of alist FORM onto TO.
+Only fields contained in TO are copied."
+  (setcar to (car from))
+  (setcdr to (cdr from)))
+
 (defun sx-visit (data)
   "Visit DATA in a web browser.
 DATA can be a question, answer, or comment. Interactively, it is
@@ -206,24 +218,31 @@ If DATA is a question, also mark it as read."
       (browse-url .link))
     (when (and .title (fboundp 'sx-question--mark-read))
       (sx-question--mark-read data)
-      (when ((derived-mode-p 'sx-question-list-mode))
-        (sx-question-list-refresh 'redisplay 'no-update)))))
+      (sx--maybe-update-display))))
 
 (defun sx-toggle-upvote (data)
   "Apply or remove upvote from DATA.
 DATA can be a question, answer, or comment. Interactively, it is
 guessed from context at point."
   (interactive (list (sx--data-here)))
-  (sx-assoc-let data
-    (sx-set-vote data "upvote" (null .upvoted))))
+  (let ((result
+         (sx-assoc-let data
+           (sx-set-vote data "upvote" (eq .upvoted :json-false)))))
+    (when (> (length result) 0)
+      (sx--copy-data (elt result 0) data)))
+  (sx--maybe-update-display))
 
 (defun sx-toggle-downvote (data)
   "Apply or remove downvote from DATA.
 DATA can be a question or an answer. Interactively, it is guessed
 from context at point."
   (interactive (list (sx--data-here)))
-  (sx-assoc-let data
-    (sx-set-vote data "downvote" (null .downvoted))))
+  (let ((result
+         (sx-assoc-let data
+           (sx-set-vote data "downvote" (eq .downvoted :json-false)))))
+    (when (> (length result) 0)
+      (sx--copy-data (elt result 0) data)))
+  (sx--maybe-update-display))
 
 (defun sx-set-vote (data type status)
   "Set the DATA's vote TYPE to STATUS.
-- 
cgit v1.2.3