aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-24 17:28:52 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-24 17:38:41 +0100
commite311d491977fb9012d30ed146231f95ea52008af (patch)
treefce58763e2dee8f52f9e554a73fc2383e7be5792 /lisp
parent78f1100f5651e498468d42d9830daed924b1237b (diff)
docstrings and autoloads
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-profile.el8
-rw-r--r--lisp/mastodon-search.el3
-rw-r--r--lisp/mastodon-toot.el1
3 files changed, 7 insertions, 5 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 69cd65d..d5ef7a8 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -154,7 +154,8 @@ contains")
(mastodon-tl--property 'toot-json))
(defun mastodon-profile--make-author-buffer (account &optional no-reblogs)
- "Take an ACCOUNT json and insert a user account into a new buffer."
+ "Take an ACCOUNT json and insert a user account into a new buffer.
+NO-REBLOGS means do not display boosts in statuses."
(mastodon-profile--make-profile-buffer-for
account "statuses" #'mastodon-tl--timeline no-reblogs))
@@ -553,7 +554,8 @@ FIELDS means provide a fields vector fetched by other means."
(defun mastodon-profile--make-profile-buffer-for (account endpoint-type
update-function
&optional no-reblogs)
- "Display profile of ACCOUNT, using ENDPOINT-TYPE and UPDATE-FUNCTION."
+ "Display profile of ACCOUNT, using ENDPOINT-TYPE and UPDATE-FUNCTION.
+NO-REBLOGS means do not display boosts in statuses."
(let* ((id (mastodon-profile--account-field account 'id))
(args (when no-reblogs '(("exclude_reblogs" . "t"))))
(url (mastodon-http--api (format "accounts/%s/%s" id endpoint-type)))
@@ -664,7 +666,7 @@ FIELDS means provide a fields vector fetched by other means."
(goto-char (point-min))))
(defun mastodon-profile--format-joined-date-string (joined)
- "Format a Joined timestamp."
+ "Format a human-readable Joined string from timestamp JOINED."
(let ((joined-ts (ts-parse joined)))
(format "Joined %s" (concat (ts-month-name joined-ts)
" "
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index f83cccb..b037faa 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -173,8 +173,7 @@ user's profile note. This is also called by
json))
(defun mastodon-search--propertize-user (acct &optional note)
- "Propertize display string for ACCT, optionally including profile
-NOTE."
+ "Propertize display string for ACCT, optionally including profile NOTE."
(let ((user (mastodon-search--get-user-info acct)))
(propertize
(concat (propertize (car user)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 4f9fb1b..0e21b0e 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -84,6 +84,7 @@
(autoload 'mastodon-http--build-array-params-alist "mastodon-http")
(autoload 'mastodon-tl--get-endpoint "mastodon-tl")
(autoload 'mastodon-http--put "mastodon-http")
+(autoload 'mastodon-tl--return-fave-char "mastodon-tl")
;; for mastodon-toot--translate-toot-text
(autoload 'mastodon-tl--content "mastodon-tl")