diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 21:23:02 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 21:23:02 +0200 |
| commit | b75760867bd00f80b35779abc517719600228b35 (patch) | |
| tree | bd1ddcef7fc4e78380a6d12ca31db1524bcab9c2 | |
| parent | 41f814cc44bb49e341cc921d83c174c721fc0beb (diff) | |
docstrings autoloads
| -rw-r--r-- | lisp/mastodon-http.el | 2 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 33f6012..3d26dc5 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -54,7 +54,7 @@ mastodon-http--api-version "/" endpoint)) (defun mastodon-http--api-search () - "Return Mastodon API url for the /search endpoind (v2)." + "Return Mastodon API url for the /search endpoint (v2)." (format "%s/api/v2/search" mastodon-instance-url)) (defun mastodon-http--response () diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 054c1e2..a0e7a61 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -82,6 +82,8 @@ (autoload 'mastodon-toot--schedule-toot "mastodon-toot") (autoload 'mastodon-toot--set-toot-properties "mastodon-toot") (autoload 'mastodon-toot--update-status-fields "mastodon-toot") +(autoload 'mastodon-search--buf-type "mastodon-search") +(autoload 'mastodon-http--api-search "mastodon-http") (defvar mastodon-toot--visibility) (defvar mastodon-toot-mode) @@ -1248,14 +1250,15 @@ displayed when the duration is smaller than a minute)." (mastodon-tl--mpv-play-video-at-point url type))) (defun mastodon-tl--click-image-or-video (_event) - "Click to play video with `mpv.el''" + "Click to play video with `mpv.el'." (interactive "e") (if (mastodon-tl--media-video-p) (mastodon-tl--mpv-play-video-at-point) (shr-browse-image))) (defun mastodon-tl--media-video-p (&optional type) - "T if mastodon-media-type prop is \"gifv\" or \"video\"." + "T if mastodon-media-type prop is \"gifv\" or \"video\". +TYPE is a mastodon media type." (let ((type (or type (mastodon-tl--property 'mastodon-media-type :no-move)))) (or (equal type "gifv") (equal type "video")))) |