Adds the notification timeline to mastodon.el closing #34. (#178)

- Can now handle notifications (follow reblog favourite and mention)
- Tests for each of the rendering functions are included
- Added keybinding N to mastodon.el for mastodon-notifications-get
- added mastodon-notifications to ert-helper.el

3 files changed, 141 insertions, 4 deletions

diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
new file mode 100644
index 0000000..ddaaaf4
--- /dev/null
+++ b/lisp/mastodon-notifications.el
@@ -0,0 +1,133 @@
+;;; mastodon-notifications.el --- Notification functions for mastodon.el -*- lexical-binding: t -*-
+
+;; Copyright (C) 2017 Johnson Denen
+;; Author: Johnson Denen <johnson.denen@gmail.com>
+;; Version: 0.7.2
+;; Homepage: https://github.com/jdenen/mastodon.el
+;; Package-Requires: ((emacs "24.4"))
+
+;; This file is not part of GNU Emacs.
+
+;; This file is part of mastodon.el.
+
+;; mastodon.el is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; mastodon.el is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with mastodon.el.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; mastodon-notification.el provides notification functions for Mastodon.
+
+;;; Code:
+
+(defvar mastodon-notifications--types-alist
+  '(("mention" . mastodon-notifications--mention)
+    ("follow" . mastodon-notifications--follow)
+    ("favourite" . mastodon-notifications--favourite)
+    ("reblog" . mastodon-notifications--reblog))
+  "Alist of notification types and their corresponding function.")
+
+(defvar mastodon-notifications--response-alist
+  '(("Mentioned" . "you")
+    ("Followed" . "you")
+    ("Favourited" . "your status")
+    ("Boosted" . "your status"))
+  "Alist of subjects for notification types.")
+
+(defun mastodon-notifications--byline-concat (message)
+  "Add byline for TOOT with MESSAGE."
+  (concat
+   " "
+   (propertize message 'face 'highlight)
+   " "
+   (cdr (assoc message mastodon-notifications--response-alist))))
+
+(defun mastodon-notifications--mention (note)
+  "Format for a `mention' NOTE."
+  (let ((status (mastodon-tl--field 'status note)))
+    (mastodon-tl--insert-status
+     note
+     (mastodon-tl--clean-tabs-and-nl
+      (if (mastodon-tl--has-spoiler status)
+          (mastodon-tl--spoiler status)
+        (mastodon-tl--content status)))
+     'mastodon-tl--byline-author
+     (lambda (_status)
+       (mastodon-notifications--byline-concat
+        "Mentioned")))))
+
+(defun mastodon-notifications--follow (note)
+  "Format for a `follow' NOTE."
+  (mastodon-tl--insert-status
+   note
+   (propertize "Congratulations, you have a new follower!"
+               'face 'default)
+   'mastodon-tl--byline-author
+   (lambda (_status)
+     (mastodon-notifications--byline-concat
+      "Followed"))))
+
+(defun mastodon-notifications--favourite (note)
+  "Format for a `favourite' NOTE."
+  (let ((status (mastodon-tl--field 'status note)))
+    (mastodon-tl--insert-status
+     note
+     (mastodon-tl--clean-tabs-and-nl
+      (if (mastodon-tl--has-spoiler status)
+          (mastodon-tl--spoiler status)
+        (mastodon-tl--content status)))
+     (lambda (_status)
+       (mastodon-tl--byline-author
+        note))
+     (lambda (_status)
+       (mastodon-notifications--byline-concat
+        "Favourited")))))
+
+(defun mastodon-notifications--reblog (note)
+  "Format for a `boost' NOTE."
+  (let ((status (mastodon-tl--field 'status note)))
+    (mastodon-tl--insert-status
+     note
+     (mastodon-tl--clean-tabs-and-nl
+      (if (mastodon-tl--has-spoiler status)
+          (mastodon-tl--spoiler status)
+        (mastodon-tl--content status)))
+     (lambda (_status)
+       (mastodon-tl--byline-author
+        note))
+     (lambda (_status)
+       (mastodon-notifications--byline-concat
+        "Boosted")))))
+
+(defun mastodon-notifications--by-type (note)
+  "Filters NOTE for those listed in `mastodon-notifications--types-alist'."
+  (let* ((type (mastodon-tl--field 'type note))
+         (fun (cdr (assoc type mastodon-notifications--types-alist))))
+    (when fun (funcall fun note))))
+
+(defun mastodon-notifications--timeline (json)
+  "Format JSON in Emacs buffer."
+  (mapc #'mastodon-notifications--by-type json)
+  (goto-char (point-min))
+  (when mastodon-tl--display-media-p
+    (mastodon-media--inline-images)))
+
+(defun mastodon-notifications--get ()
+  "Display NOTIFICATIONS in buffer."
+  (interactive)
+  (mastodon-tl--init
+   "*mastodon-notifications*"
+   "notifications"
+   'mastodon-notifications--timeline))
+
+(provide 'mastodon-notifications)
+;;; mastodon-notifications.el ends here
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index de65344..b873991 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -507,6 +507,10 @@ LINK-TYPE is the type of link to produce."
   (let ((spoiler (mastodon-tl--field 'spoiler_text toot)))
     (and spoiler (> (length spoiler) 0))))
 
+(defun mastodon-tl--clean-tabs-and-nl (string)
+  (replace-regexp-in-string
+   "[\t\n ]*\\'" "" string))
+
 (defun mastodon-tl--spoiler (toot)
   "Render TOOT with spoiler message.
 
@@ -517,8 +521,8 @@ message is a link which unhides/hides the main body."
   (let* ((spoiler (mastodon-tl--field 'spoiler_text toot))
          (string (mastodon-tl--set-face
                   ;; remove trailing whitespace
-                  (replace-regexp-in-string "[\t\n ]*\\'" ""
-                                            (mastodon-tl--render-text spoiler toot))
+                  (mastodon-tl--clean-tabs-and-nl
+                   (mastodon-tl--render-text spoiler toot))
                   'default))
          (message (concat "\n"
                           " ---------------\n"
@@ -580,8 +584,7 @@ it is `mastodon-tl--byline-boosted'"
   "Formats TOOT and insertes it into the buffer."
   (mastodon-tl--insert-status
    toot
-   (replace-regexp-in-string
-    "[\t\n ]*\\'" ""
+   (mastodon-tl--clean-tabs-and-nl
     (if (mastodon-tl--has-spoiler toot)
         (mastodon-tl--spoiler toot)
       (mastodon-tl--content toot)))
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index c362513..16bb43f 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -140,6 +140,7 @@ If REPLY-TO-ID is non-nil, attach new toot to a conversation."
     (define-key map [backtab] #'mastodon-tl--previous-tab-item)
     (define-key map [?\S-\t] #'mastodon-tl--previous-tab-item)
     (define-key map [?\M-\t] #'mastodon-tl--previous-tab-item)
+    (define-key map (kbd "N") #'mastodon-notifications--get)    
     ))
 
 (with-eval-after-load 'mastodon