diff options
Diffstat (limited to 'lisp/mastodon-media.el')
| -rw-r--r-- | lisp/mastodon-media.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 6ee0138..b030280 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -57,7 +57,8 @@ contains `Media_Links::'" not been returned." (let((missing "/files/small/missing.png")) - (not(equal link missing)))) + (not(equal link missing))) + t) (defun mastodon-media--select-next-media-line() (mastodon-media--select-media-line '())) @@ -75,14 +76,14 @@ just a url" "Deletes the current media line" (delete-region (car line) (cadr line))) -(defun mastodon-media--inline-images-aux ( not-first) +(defun mastodon-media--inline-images-aux (first) "Recursivly goes through all of the `Media_Links:' in the buffer" - (let* ((line (mastodon-media--select-media-line (not not-first))) + (let* ((line (mastodon-media--select-media-line 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)) + (mastodon-media--inline-images-aux '())) (defun mastodon-media--inline-images() "A wrapper for the `mastodon-media--inline-images-aux' that catches @@ -90,7 +91,7 @@ just a url" errors thrown by reaching the end of the buffer" (interactive) (condition-case nil - (progn (mastodon-media--inline-images-aux '()) t) + (progn (mastodon-media--inline-images-aux t)) (error nil))) (provide 'mastodon-media) |