branch: elpa/mastodon
commit ed0676af9e8a0b427e6fa1a073c1fd5b697deaa8
Author: marty hiatt <martianhia...@disroot.org>
Commit: marty hiatt <martianhia...@disroot.org>
mastodon-toot-docs-face everywhere, and it inherits shadow.
---
lisp/mastodon-media.el | 2 +-
lisp/mastodon-notifications.el | 2 +-
lisp/mastodon-profile.el | 2 +-
lisp/mastodon-search.el | 2 +-
lisp/mastodon-tl.el | 18 +++++++++---------
lisp/mastodon-toot.el | 4 ++--
lisp/mastodon-views.el | 6 +++---
lisp/mastodon.el | 2 +-
8 files changed, 19 insertions(+), 19 deletions(-)
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index 00f3eb155b..09692c311b 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -467,7 +467,7 @@ START and END are the beginning and end of the media item
to overlay."
(propertize ""
'help-echo "Video"
'face
- '((:height 3.5 :inherit font-lock-comment-face))))))
+ '((:height 3.5 :inherit mastodon-toot-docs-face))))))
;; (cl-pushnew ov mastodon-media--overlays)))
(defun mastodon-media--get-avatar-rendering (avatar-url)
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 6cdeb257ec..ed27574e6b 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -371,7 +371,7 @@ ACCOUNTS is data of the accounts that have reacted to the
notification."
(while (setq prop (text-property-search-forward 'face 'shr-text t))
(add-text-properties (prop-match-beginning prop)
(prop-match-end prop)
- '(face (font-lock-comment-face shr-text)))))
+ '(face (mastodon-toot-docs-face shr-text)))))
(buffer-string)))
(defun mastodon-notifications--body-arg
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 44a1538854..3efa13d0d8 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -335,7 +335,7 @@ If value is :json-false, return nil."
'display nil)
"/500 characters")
'read-only t
- 'face 'font-lock-comment-face
+ 'face 'mastodon-toot-docs-face
'note-header t)
"\n")
(make-local-variable 'after-change-functions)
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el
index 5f1e98090d..3a6f6b3cc7 100644
--- a/lisp/mastodon-search.el
+++ b/lisp/mastodon-search.el
@@ -243,7 +243,7 @@ is used for pagination."
(let ((thing (or thing "items")))
(insert
(propertize (format "Looks like search returned no %s." thing)
- 'face 'font-lock-comment-face))))
+ 'face 'mastodon-toot-docs-face))))
(defun mastodon-search--render-response (data type buffer params
insert-fun update-fun)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index e0dc6c9645..36dc245e15 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -910,7 +910,7 @@ TS is a timestamp from the server, if any."
(propertize
(format-time-string mastodon-toot-timestamp-format
edited-parsed)
- 'face 'font-lock-comment-face
+ 'face 'mastodon-toot-docs-face
'timestamp edited-parsed
'display (if mastodon-tl--enable-relative-timestamps
(mastodon-tl--relative-time-description edited-parsed)
@@ -1474,13 +1474,13 @@ LENGTH is of the longest option, for formatting."
(.vote_count
(format "%s votes | " .vote_count))
(t ""))
- 'face 'font-lock-comment-face)
+ 'face 'mastodon-toot-docs-face)
(let ((str (if (eq .expired :json-false)
(if (eq .expires_at nil)
""
(mastodon-tl--format-poll-expiry .expires_at))
"Poll expired.")))
- (propertize str 'face 'font-lock-comment-face))
+ (propertize str 'face 'mastodon-toot-docs-face))
"\n"))))
(defconst mastodon-tl--time-units
@@ -1976,19 +1976,19 @@ To disable showing the stats, customize
'favourited-p (eq t .favourited)
'favourites-field t
'help-echo (format "%s favourites"
.favourites_count)
- 'face 'font-lock-comment-face)
- (propertize " | " 'face 'font-lock-comment-face)
+ 'face 'mastodon-toot-docs-face)
+ (propertize " | " 'face 'mastodon-toot-docs-face)
(propertize boosts
'boosted-p (eq t .reblogged)
'boosts-field t
'help-echo (format "%s boosts" .reblogs_count)
- 'face 'font-lock-comment-face)
- (propertize " | " 'face 'font-lock-comment-face)
+ 'face 'mastodon-toot-docs-face)
+ (propertize " | " 'face 'mastodon-toot-docs-face)
(propertize replies
'replies-field t
'replies-count .replies_count
'help-echo (format "%s replies" .replies_count)
- 'face 'font-lock-comment-face)))
+ 'face 'mastodon-toot-docs-face)))
(right-spacing
(propertize " "
'display
@@ -3483,7 +3483,7 @@ ENDPOINT-VERSION is a string, format Vx, e.g. V2."
(mastodon-search--insert-heading view-name))
(when binding-str
(insert (mastodon-tl--set-face (concat "[" binding-str "]\n\n")
- 'font-lock-comment-face)))
+ 'mastodon-toot-docs-face)))
(mastodon-tl--set-buffer-spec
buffer endpoint update-function
link-header params nil
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index fbc6fdaeed..8d80cca8ea 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -1033,7 +1033,7 @@ instance to edit a toot."
do (insert (propertize (if (= count 1)
(format "%s [original]:\n" count)
(format "%s:\n" count))
- 'face 'font-lock-comment-face)
+ 'face 'mastodon-toot-docs-face)
(mastodon-toot--insert-toot-iter x)
"\n"))
(goto-char (point-min))
@@ -1042,7 +1042,7 @@ instance to edit a toot."
(format "Edits to toot by %s:"
(alist-get 'username
(alist-get 'account (car history))))
- 'face 'font-lock-comment-face))
+ 'face 'mastodon-toot-docs-face))
(mastodon-tl--set-buffer-spec (buffer-name (current-buffer))
(format "statuses/%s/history" id)
nil)))))
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 8d356fb1b3..a2d2169df9 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -171,7 +171,7 @@ provides the JSON data."
(if (seq-empty-p data)
(insert (propertize
(format "Looks like you have no %s for now." view-name)
- 'face 'font-lock-comment-face
+ 'face 'mastodon-toot-docs-face
'byline t
'item-type 'no-item ; for nav
'item-id "0")) ; so point can move here when no item
@@ -232,7 +232,7 @@ a: add account to this list, r: remove account from this
list"
(propertize (format " [replies: %s, exclusive %s]"
.replies_policy
(when (eq t .exclusive) "true"))
- 'face 'font-lock-comment-face)
+ 'face 'mastodon-toot-docs-face)
(propertize "\n\n"
'list t
'keymap mastodon-views--list-name-keymap
@@ -516,7 +516,7 @@ JSON is the data returned by the server."
(mastodon-toot--iso-to-human .scheduled_at))
'byline t ; so we nav here
'item-type 'scheduled ; so we nav here
- 'face 'font-lock-comment-face
+ 'face 'mastodon-toot-docs-face
'keymap mastodon-views--scheduled-map
'item-json toot
'id .id)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 8d40cdc6bc..e5d0163243 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -308,7 +308,7 @@ and X others...\"."
"Face used for content warning.")
(defface mastodon-toot-docs-face
- `((t :inherit font-lock-comment-face))
+ `((t :inherit shadow))
"Face used for documentation in toot compose buffer.
If `mastodon-tl--enable-proportional-fonts' is changed,
mastodon.el needs to be re-loaded for this to be correctly set.")
