diff options
-rw-r--r-- | lisp/mastodon-auth.el | 4 | ||||
-rw-r--r-- | lisp/mastodon-client.el | 4 | ||||
-rw-r--r-- | lisp/mastodon-http.el | 2 | ||||
-rw-r--r-- | lisp/mastodon-inspect.el | 12 | ||||
-rw-r--r-- | lisp/mastodon-tl.el | 12 | ||||
-rw-r--r-- | lisp/mastodon-toot.el | 30 | ||||
-rw-r--r-- | lisp/mastodon.el | 24 |
7 files changed, 44 insertions, 44 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 68c4d21..513fbc2 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -31,8 +31,8 @@ (require 'plstore) -(declare-function mastodon-client "mastodon-client") -(declare-function mastodon-http--post "mastodon-http") +(autoload 'mastodon-client "mastodon-client") +(autoload 'mastodon-http--post "mastodon-http") (defvar mastodon-instance-url) (defgroup mastodon-auth nil diff --git a/lisp/mastodon-client.el b/lisp/mastodon-client.el index 3a9a606..b4fcbdb 100644 --- a/lisp/mastodon-client.el +++ b/lisp/mastodon-client.el @@ -30,8 +30,8 @@ ;;; Code: (require 'plstore) -(declare-function mastodon-http--api "mastodon-http") -(declare-function mastodon-http--post "mastodon-http") +(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-http--post "mastodon-http") (defcustom mastodon-client--token-file (concat user-emacs-directory "mastodon.plstore") diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 9f178c4..0f71f68 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -32,7 +32,7 @@ (require 'json) (defvar mastodon-instance-url) (defvar mastodon-auth--token) -(declare-function mastodon-auth--access-token "mastodon-auth") +(autoload 'mastodon-auth--access-token "mastodon-auth") (defvar mastodon-http--api-version "v1") diff --git a/lisp/mastodon-inspect.el b/lisp/mastodon-inspect.el index 0457e74..9aee7dc 100644 --- a/lisp/mastodon-inspect.el +++ b/lisp/mastodon-inspect.el @@ -28,12 +28,12 @@ ;; Some tools to help inspect / debug mastodon.el ;;; Code: -(declare-function mastodon-http--api "mastodon-http") -(declare-function mastodon-http--get-json "mastodon-http") -(declare-function mastodon-media--inline-images "mastodon-media") -(declare-function mastodon-mode "mastodon") -(declare-function mastodon-tl--property "mastodon-tl") -(declare-function mastodon-tl--toot "mastodon-tl") +(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-http--get-json "mastodon-http") +(autoload 'mastodon-media--inline-images "mastodon-media") +(autoload 'mastodon-mode "mastodon") +(autoload 'mastodon-tl--property "mastodon-tl") +(autoload 'mastodon-tl--toot "mastodon-tl") (defgroup mastodon-inspect nil "Tools to help inspect toots." diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 72883fc..b84bc94 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -33,12 +33,12 @@ (require 'thingatpt) ;; for word-at-point (require 'time-date) -(declare-function mastodon-http--api "mastodon-http") -(declare-function mastodon-http--get-json "mastodon-http") -(declare-function mastodon-media--get-avatar-rendering "mastodon-media") -(declare-function mastodon-media--get-media-link-rendering "mastodon-media") -(declare-function mastodon-media--inline-images "mastodon-media") -(declare-function mastodon-mode "mastodon") +(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-http--get-json "mastodon-http") +(autoload 'mastodon-media--get-avatar-rendering "mastodon-media") +(autoload 'mastodon-media--get-media-link-rendering "mastodon-media") +(autoload 'mastodon-media--inline-images "mastodon-media") +(autoload 'mastodon-mode "mastodon") (defvar mastodon-toot-timestamp-format) (defgroup mastodon-tl nil diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 296f95f..eaf5339 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -32,13 +32,13 @@ (defvar mastodon-toot--reply-to-id nil) (defvar mastodon-toot--content-warning nil) -(declare-function mastodon-http--api "mastodon-http") -(declare-function mastodon-http--post "mastodon-http") -(declare-function mastodon-http--triage "mastodon-http") -(declare-function mastodon-tl--field "mastodon-tl") -(declare-function mastodon-tl--goto-next-toot "mastodon-tl") -(declare-function mastodon-tl--property "mastodon-tl") -(declare-function mastodon-toot "mastodon") +(autoload 'mastodon-http--api "mastodon-http") +(autoload 'mastodon-http--post "mastodon-http") +(autoload 'mastodon-http--triage "mastodon-http") +(autoload 'mastodon-tl--field "mastodon-tl") +(autoload 'mastodon-tl--goto-next-toot "mastodon-tl") +(autoload 'mastodon-tl--property "mastodon-tl") +(autoload 'mastodon-toot "mastodon") (defvar mastodon-toot-mode-map (let ((map (make-sparse-keymap))) @@ -166,28 +166,28 @@ Set `mastodon-toot--content-warning' to nil." (mapcar (lambda (b) (setf (car b) (vector prefix (car b))) b) - bindings))) + bindings))) (defun mastodon-toot--format-kbind-command (cmd) "Format CMD to be more readable. e.g. mastodon-toot--send -> Send." (let* ((str (symbol-name cmd)) - (re "--\\(.*\\)$") - (str2 (save-match-data - (string-match re str) - (match-string 1 str)))) + (re "--\\(.*\\)$") + (str2 (save-match-data + (string-match re str) + (match-string 1 str)))) (capitalize (replace-regexp-in-string "-" " " str2)))) (defun mastodon-toot--format-kbind (kbind) "Format a single keybinding, KBIND, for display in documentation." (let ((key (help-key-description (car kbind) nil)) - (command (mastodon-toot--format-kbind-command (cdr kbind)))) + (command (mastodon-toot--format-kbind-command (cdr kbind)))) (format "\t%s - %s" key command))) (defun mastodon-toot--format-kbinds (kbinds) "Format a list keybindings, KBINDS, for display in documentation." (mapconcat 'identity (cons "" (mapcar #'mastodon-toot--format-kbind kbinds)) - "\n")) + "\n")) (defun mastodon-toot--make-mode-docs () "Create formatted documentation text for the mastodon-toot-mode." @@ -217,7 +217,7 @@ If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var." If REPLY-TO-USER is provided, inject their handle into the message. If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var." (let* ((buffer-exists (get-buffer "*new toot*")) - (buffer (or buffer-exists (get-buffer-create "*new toot*")))) + (buffer (or buffer-exists (get-buffer-create "*new toot*")))) (switch-to-buffer-other-window buffer) (when (not buffer-exists) (mastodon-toot--display-docs) diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 9f7257e..6e3a5dc 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -32,18 +32,18 @@ ;;; Code: (declare-function discover-add-context-menu "discover") (declare-function emojify-mode "emojify") -(declare-function mastodon-tl--get-federated-timeline "mastodon-tl") -(declare-function mastodon-tl--get-home-timeline "mastodon-tl") -(declare-function mastodon-tl--get-local-timeline "mastodon-tl") -(declare-function mastodon-tl--get-tag-timeline "mastodon-tl") -(declare-function mastodon-tl--goto-next-toot "mastodon-tl") -(declare-function mastodon-tl--goto-prev-toot "mastodon-tl") -(declare-function mastodon-tl--thread "mastodon-tl") -(declare-function mastodon-tl--update "mastodon-tl") -(declare-function mastodon-toot--compose-buffer "mastodon-toot") -(declare-function mastodon-toot--reply "mastodon-toot") -(declare-function mastodon-toot--toggle-boost "mastodon-toot") -(declare-function mastodon-toot--toggle-favourite "mastodon-toot") +(autoload 'mastodon-tl--get-federated-timeline "mastodon-tl") +(autoload 'mastodon-tl--get-home-timeline "mastodon-tl") +(autoload 'mastodon-tl--get-local-timeline "mastodon-tl") +(autoload 'mastodon-tl--get-tag-timeline "mastodon-tl") +(autoload 'mastodon-tl--goto-next-toot "mastodon-tl") +(autoload 'mastodon-tl--goto-prev-toot "mastodon-tl") +(autoload 'mastodon-tl--thread "mastodon-tl") +(autoload 'mastodon-tl--update "mastodon-tl") +(autoload 'mastodon-toot--compose-buffer "mastodon-toot") +(autoload 'mastodon-toot--reply "mastodon-toot") +(autoload 'mastodon-toot--toggle-boost "mastodon-toot") +(autoload 'mastodon-toot--toggle-favourite "mastodon-toot") (defgroup mastodon nil "Interface with Mastodon." |