diff options
| -rw-r--r-- | lisp/mastodon-toot.el | 7 | ||||
| -rw-r--r-- | lisp/mastodon.el | 18 |
2 files changed, 14 insertions, 11 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index eb82f12..7744cdd 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -5,13 +5,6 @@ "Capture Mastodon toots." :group 'mastodon) -(defun mastodon-new-toot () - "Updates a Mastodon instance with new toot. Content is captured in a new buffer." - (interactive) - (progn - (switch-to-buffer-other-window (get-buffer-create "*new toot*")) - (mastodon-toot-mode t))) - (defun mastodon-toot--send-triage (status) "Callback function to triage toot POST. diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 424f758..2c68951 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -14,10 +14,20 @@ (defvar mastodon--api-version "v1") ;;;###autoload -(defun mastodon () +(defun mastodon-toot () + "Updates a Mastodon instance with new toot. Content is captured in a new buffer." (interactive) - (load-file "mastodon-http.el") - (load-file "mastodon-auth.el") - (load-file "mastodon-toot.el")) + (progn + (require 'mastodon-toot) + (switch-to-buffer-other-window (get-buffer-create "*new toot*")) + (mastodon-toot-mode t))) + +;;;###autoload +(defun mastodon-register () + "Registers mastodon.el with the Mastodon instance." + (interactive) + (progn + (require 'mastodon-auth) + (mastodon--store-client-id-and-secret))) (provide 'mastodon) |