Fixed #41, inline images

1 files changed, 97 insertions, 0 deletions

diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
new file mode 100644
index 0000000..6ee0138
--- /dev/null
+++ b/lisp/mastodon-media.el
@@ -0,0 +1,97 @@
+;;; 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-media.el provides functions for inlining media.
+
+;;; Code:
+
+(defun mastodon-media--image-from-url (url)
+  "Takes a url and returns an image"
+  (let ((buffer (url-retrieve-synchronously url)))
+    (unwind-protect
+         (let ((data (with-current-buffer buffer
+                       (goto-char (point-min))
+                       (search-forward "\n\n")
+                       (buffer-substring (point) (point-max)))))
+	   (insert "\n")
+           (insert-image (create-image data nil t)))
+      (kill-buffer buffer))))
+
+(defun mastodon-media--select-media-line(start)
+  "Returns the list of line coordinates of a line that
+
+contains `Media_Links::'"
+  (when start (goto-char (point-min)))
+  (search-forward-regexp "Media_Link::" nil nil nil)
+  (let ((start (progn (move-beginning-of-line '()) (point)))
+	(end (progn (move-end-of-line '()) (point))))
+    (list start end)))
+
+(defun mastodon-media--select-first-media-line()
+  (mastodon-media--select-media-line 1))
+
+(defun mastodon-media--check-missing(link)
+  "Checks to make sure that the missing string has 
+
+not been returned."
+  (let((missing "/files/small/missing.png"))
+    (not(equal link missing))))
+
+(defun mastodon-media--select-next-media-line()
+  (mastodon-media--select-media-line '()))
+
+(defun mastodon-media--line-to-link(line)
+    "Removes the identifier from the media line leaving
+
+just a url"
+  (replace-regexp-in-string "Media_Link:: " ""
+			    (buffer-substring
+			     (car line)
+			     (cadr line))))
+
+(defun mastodon-media--delete-line(line)
+  "Deletes the current media line"
+  (delete-region (car line) (cadr line)))
+
+(defun mastodon-media--inline-images-aux ( not-first)
+  "Recursivly goes through all of the `Media_Links:' in the buffer"
+  (let* ((line (mastodon-media--select-media-line (not not-first)))
+	(link (mastodon-media--line-to-link line)))
+    (when (mastodon-media--check-missing link)
+      (progn (mastodon-media--image-from-url link)
+	     (mastodon-media--delete-line line))))
+  (mastodon-inline-images-aux 1))
+
+(defun mastodon-media--inline-images()
+  "A wrapper for the `mastodon-media--inline-images-aux' that catches
+
+errors thrown by reaching the end of the buffer"
+  (interactive)
+  (condition-case nil
+      (progn (mastodon-media--inline-images-aux '()) t)
+  (error nil)))
+
+(provide 'mastodon-media)
+;;; mastodon-media.el ends here