diff options
author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-14 09:27:42 -0400 |
---|---|---|
committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-14 13:18:14 -0400 |
commit | cb8502f9ee8c3c393ba44613519bd5490ecf9775 (patch) | |
tree | 69c63daa59fab34b5e8af79dcc2ba579fe09d395 /lisp/mastodon-tl.el | |
parent | f42d5e2666022c891f8561c24489bc52e9f4f642 (diff) |
Retrieve home timeline with `mastodon' function
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r-- | lisp/mastodon-tl.el | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el new file mode 100644 index 0000000..e782631 --- /dev/null +++ b/lisp/mastodon-tl.el @@ -0,0 +1,94 @@ +;;; mastodon-tl.el --- HTTP request/response functions for mastodon.el + +;; Copyright (C) 2017 Johnson Denen +;; Author: Johnson Denen <johnson.denen@gmail.com> +;; Homepage: https://github.com/jdenen/mastodon.el + +;; 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-tl.el provides timeline functions. + +;;; Code: + +(require 'mastodon-http) + +(defgroup mastodon-tl nil + "Timelines in Mastodon." + :prefix "mastodon-tl-" + :group 'mastodon) + +(defface mastodon-tl-toot-text-face + '((t (:foreground "LightGray"))) + "Toot content face.") + +(defface mastodon-tl-toot-display-name-face + '((t (:foreground "cyan"))) + "Mastodon user handle face.") + +(defun mastodon-tl--from-toot (key toot) + "Return value for KEY in TOOT." + (cdr (assoc key toot))) + +(defun mastodon-tl--render-display-name (name) + (insert + (propertize (concat name " ") + 'face 'mastodon-tl-toot-display-name-face))) + +(defun mastodon-tl--render-header (handle name id url) + (insert "=== ") + (mastodon-tl--render-display-name name) + (insert (concat "@" handle "\n"))) + +(defun mastodon-tl--remove-html (toot) + (let* ((t1 (replace-regexp-in-string "<\/p>" "\n\n" toot)) + (t2 (replace-regexp-in-string "<\/?span>" "" t1)) + (t3 (replace-regexp-in-string "<span class=\"h-card\">" "" t2))) + t3)) + +(defun mastodon-tl--render-content (toot) + (let* ((content (mastodon-tl--remove-html toot))) + (insert + (propertize content + 'face 'mastodon-tl-toot-text-face)) + (insert "\n"))) + +(defun mastodon-tl--render-toot (toot) + (let ((id (number-to-string (mastodon-tl--from-toot 'id toot))) + (handle (mastodon-tl--from-toot 'acct (mastodon-tl--from-toot 'account toot))) + (name (mastodon-tl--from-toot 'display_name (mastodon-tl--from-toot 'account toot))) + (text (mastodon-tl--from-toot 'content toot)) + (url (mastodon-tl--from-toot 'url toot))) + (mastodon-tl--render-header handle name id url) + (mastodon-tl--render-content text))) + +(defun mastodon-tl--render-timeline (buffer json) + (with-output-to-temp-buffer buffer + (switch-to-buffer buffer) + (mapcar 'mastodon-tl--render-toot json)) + (html2text)) + +(defun mastodon-tl--get (timeline) + (let* ((url (mastodon--api-for (concat "timelines/" timeline))) + (tl-buff (concat "*mastodon-" timeline "*")) + (tl-json (mastodon-http--get-json url))) + (mastodon-tl--render-timeline tl-buff tl-json))) + +(provide 'mastodon-tl) +;;; mastodon-tl.el ends here |