Move entry functions to mastodon.el

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)