aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/mastodon-tl.el21
-rw-r--r--lisp/mastodon-toot.el1
2 files changed, 10 insertions, 12 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index af5a9a4..e2c2013 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1937,18 +1937,17 @@ favourites."
(let ((url (mastodon-http--api endpoint))
(buffer (concat "*mastodon-" buffer-name "*")))
(mastodon-http--get-json-async
- url headers 'mastodon-tl--init* buffer endpoint update-function)))
+ url 'mastodon-tl--init* buffer endpoint update-function)))
(defun mastodon-tl--init* (response buffer endpoint update-function)
"Initialize BUFFER with timeline targeted by ENDPOINT.
UPDATE-FUNCTION is used to recieve more toots.
RESPONSE is the data returned from the server by `mastodon-http--process-json', a cons cell of JSON and http headers."
- (let* ((json (car response))
- (headers (cdr response))
- (link-header (when headers
- (split-string
- (car (alist-get "Link" headers nil nil 'equal))
- ","))))
+ (let* ((json response))
+ ;; (link-header (when headers
+ ;; (split-string
+ ;; (car (alist-get "Link" headers nil nil 'equal))
+ ;; ","))))
(with-output-to-temp-buffer buffer
(switch-to-buffer buffer)
;; mastodon-mode wipes buffer-spec, so order must unforch be:
@@ -1957,8 +1956,8 @@ RESPONSE is the data returned from the server by `mastodon-http--process-json',
;; unless we set it both before and after the others
(mastodon-tl--set-buffer-spec buffer
endpoint
- update-function
- link-header)
+ update-function)
+ ;; link-header)
(setq
;; Initialize with a minimal interval; we re-scan at least once
;; every 5 minutes to catch any timestamps we may have missed
@@ -1969,8 +1968,8 @@ RESPONSE is the data returned from the server by `mastodon-http--process-json',
(with-current-buffer buffer
(mastodon-tl--set-buffer-spec buffer
endpoint
- update-function
- link-header)
+ update-function)
+ ;; link-header)
(setq mastodon-tl--timestamp-update-timer
(when mastodon-tl--enable-relative-timestamps
(run-at-time (time-to-seconds
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 70aaf14..9a65439 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -208,7 +208,6 @@ send.")
NO-TOOT means we are not calling from a toot buffer."
(mastodon-http--get-json-async
(mastodon-http--api "instance")
- nil
'mastodon-toot--get-max-toot-chars-callback no-toot))
(defun mastodon-toot--get-max-toot-chars-callback (json-response