aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-notifications.el1
-rw-r--r--lisp/mastodon-profile.el7
-rw-r--r--lisp/mastodon-search.el2
-rw-r--r--lisp/mastodon-tl.el5
-rw-r--r--lisp/mastodon-views.el3
5 files changed, 5 insertions, 13 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index bb9637c..22228f2 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -46,7 +46,6 @@
(autoload 'mastodon-tl--find-property-range "mastodon-tl")
(autoload 'mastodon-tl--has-spoiler "mastodon-tl")
(autoload 'mastodon-tl--init "mastodon-tl")
-(autoload 'mastodon-tl--init-sync "mastodon-tl")
(autoload 'mastodon-tl--insert-status "mastodon-tl")
(autoload 'mastodon-tl--property "mastodon-tl")
(autoload 'mastodon-tl--reload-timeline-or-profile "mastodon-tl")
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 380c82f..175af06 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -68,7 +68,6 @@
(autoload 'mastodon-tl--goto-next-toot "mastodon-tl.el")
(autoload 'mastodon-tl--goto-prev-item "mastodon-tl")
(autoload 'mastodon-tl--init "mastodon-tl.el")
-(autoload 'mastodon-tl--init-sync "mastodon-tl")
(autoload 'mastodon-tl--interactive-user-handles-get "mastodon-tl")
(autoload 'mastodon-tl--map-alist "mastodon-tl")
(autoload 'mastodon-tl--profile-buffer-p "mastodon tl")
@@ -84,11 +83,9 @@
(autoload 'mastodon-toot--count-toot-chars "mastodon-toot")
(autoload 'mastodon-toot--get-max-toot-chars "mastodon-toot")
(autoload 'mastodon-views--add-account-to-list "mastodon-views")
+(autoload 'mastodon-tl--map-alist-vals-to-alist "mastodon-tl")
-(defvar mastodon-instance-url)
-(defvar mastodon-tl--buffer-spec)
(defvar mastodon-tl--update-point)
-(defvar mastodon-mode-map)
(defvar mastodon-toot--max-toot-chars)
(defvar mastodon-toot--visibility)
(defvar mastodon-toot--content-nsfw)
@@ -350,6 +347,7 @@ This is done after changing the setting on the server."
(setq mastodon-profile-account-settings
(plist-put mastodon-profile-account-settings pref val)))
+;; used in toot.el
(defun mastodon-profile--fetch-server-account-settings-maybe ()
"Fetch account settings from the server.
Only do so if `mastodon-profile-account-settings' is nil."
@@ -491,6 +489,7 @@ Returns the results as an alist."
"Limit string X to 255 chars max."
(if (> (length x) 255) (substring x 0 255) x))
+;; used in tl.el
(defun mastodon-profile--get-preferences-pref (pref)
"Fetch PREF from the endpoint \"/preferences\".
This endpoint only holds a few preferences. For others, see
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index 3f76162..eba7292 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -45,8 +45,6 @@
(defvar mastodon-toot--completion-style-for-mentions)
(defvar mastodon-instance-url)
(defvar mastodon-tl--link-keymap)
-(defvar mastodon-http--timeout)
-(defvar mastodon-toot--enable-completion-for-mentions)
;; functions for completion of mentions in mastodon-toot
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index dc538a9..0448fb3 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1949,11 +1949,6 @@ ARGS is an alist of any parameters to send with the request."
;; FOLLOW TAGS
-(defun mastodon-tl--get-tag-json (tag)
- "Return JSON data about TAG."
- (let ((url (mastodon-http--api (format "tags/%s" tag))))
- (mastodon-http--get-json url)))
-
(defun mastodon-tl--follow-tag (&optional tag)
"Prompt for a tag and follow it.
If TAG provided, follow it."
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 9274f45..54469e1 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -38,7 +38,6 @@
(require 'cl-lib)
(require 'mastodon-http)
-(defvar mastodon-profile--account)
(defvar mastodon-mode-map)
(autoload 'mastodon-mode "mastodon")
@@ -64,6 +63,8 @@
(autoload 'mastodon-toot--set-toot-properties "mastodon-toot")
(autoload 'mastodon-search--propertize-user "mastodon-search")
(autoload 'mastodon-search--insert-users-propertized "mastodon-search")
+(autoload 'mastodon-tl--map-alist "mastodon-tl")
+(autoload 'mastodon-tl--map-alist-vals-to-alist "mastodon-tl")
;;; KEYMAPS