Huge improvements to the question list

2 files changed, 56 insertions, 16 deletions

diff --git a/stack-question-list.el b/stack-question-list.el
index 584b2b9..dab5504 100644
--- a/stack-question-list.el
+++ b/stack-question-list.el
@@ -98,9 +98,10 @@ Letters do not insert themselves; instead, they are commands.
   (hl-line-mode 1)
   (stack-question-list--update-mode-line)
   (setq tabulated-list-format
-        `[("Vote" 4 nil) ("Answ" 4 nil) ("Date" 4 nil) ("Title" 0 nil)])
-  (setq tabulated-list-padding 2)
-  (setq tabulated-list-sort-key (cons "Date" nil))
+        [("  V" 3 t :right-align t)
+         ("  A" 3 t :right-align t)
+         ("Title" 0 stack-question-list--date-sort)])
+  (setq tabulated-list-padding 1)
   (add-hook 'tabulated-list-revert-hook
             #'stack-question-list-refresh nil t)
   (add-hook 'tabulated-list-revert-hook
@@ -110,8 +111,10 @@ Letters do not insert themselves; instead, they are commands.
 (mapc
  (lambda (x) (define-key stack-question-list-mode-map
           (car x) (cadr x)))
- '(("j" stack-question-list-next)
-   ("k" stack-question-list-previous)
+ '(("n" stack-question-list-next)
+   ("p" stack-question-list-previous)
+   ("j" stack-question-list-view-next)
+   ("k" stack-question-list-view-previous)
    ("g" stack-question-list-refresh)
    ([?\r] stack-question-list-display-question)))
 
@@ -130,29 +133,54 @@ If REDISPLAY is non-nil, also call `tabulated-list-print'."
           (mapcar #'stack-question-list--print-info question-list)))
   (when redisplay (tabulated-list-print 'remember)))
 
-;; (stack-question-list--print-info sample-question-unauthenticated)
-
 (defun stack-question-list--print-info (data)
   "Convert `json-read' DATA into tabulated-list format."
   (cl-flet ((ca (x) (cdr (assoc x data))))
     (list
      data
-     (vector (int-to-string (ca 'score))
-             (int-to-string (ca 'answer_count))
-             (int-to-string (ca 'last_activity_date))
-             (ca 'title)))))
-
-(defun stack-question-list-previous (n)
+     (vector
+      (list (int-to-string (ca 'score)) 'face
+            (if (ca 'upvoted) 'stack-question-list-score-upvoted
+              'stack-question-list-score))
+      (list (int-to-string (ca 'answer_count)) 'face
+            (if (stack-question--accepted-answer data)
+                'stack-question-list-answers-accepted
+              'stack-question-list-answers))
+      (concat
+       (propertize
+        (stack-core--decode-entities (ca 'title))
+        'face
+        (if (stack-question--read-p data)
+            'stack-question-list-read-question
+          'stack-question-list-unread-question))
+       (propertize " " 'display "\n         ")
+       (propertize (stack--time-since (ca 'last_activity_date))
+                   'face 'stack-question-list-date)
+       (propertize (concat " [" (mapconcat #'identity (ca 'tags) "] [") "]")
+                   'face 'stack-question-list-tags)
+       (propertize " " 'display "\n"))))))
+
+(defun stack-question-list-view-previous (n)
   "Hide this question, move to previous one, display it."
   (interactive "p")
-  (stack-question-list-next (- n)))
+  (stack-question-list-view-next (- n)))
 
-(defun stack-question-list-next (n)
+(defun stack-question-list-view-next (n)
   "Hide this question, move to next one, display it."
   (interactive "p")
-  (next-line n)
+  (stack-question-list-next n)
   (stack-question-list-display-question))
 
+(defun stack-question-list-next (n)
+  "Move to the next entry."
+  (interactive "p")
+  (forward-line n))
+
+(defun stack-question-list-previous (n)
+  "Move to the previous entry."
+  (interactive "p")
+  (stack-question-list-next (- n)))
+
 (defun stack-question-list-display-question (&optional data focus)
   "Display question given by DATA.
 If called interactively (or with DATA being nil), display
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.")