diff options
Diffstat (limited to 'lisp/mastodon.el')
| -rw-r--r-- | lisp/mastodon.el | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 0dd7f10..b41405e 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -38,9 +38,6 @@ :prefix "mastodon-" :group 'external) -(defconst mastodon-version "0.6.2" - "Current `mastodon' package version.") - (defcustom mastodon-instance-url "https://mastodon.social" "Base URL for the Masto instance from which you toot." :group 'mastodon @@ -82,10 +79,25 @@ Use. e.g. \"%c\" for your locale's date and time format." :options '(provide-discover-context-menu) :group 'mastodon) -(defun mastodon-version () - "Message package version." - (interactive) - (message "Mastodon version %s" mastodon-version)) +(defface mastodon-handle-face + '((t :inherit default)) + "Face used for user display names.") + +(defface mastodon-display-name-face + '((t :inherit warning)) + "Face used for user display names.") + +(defface mastodon-boosted-face + '((t :inherit highlight :weight bold)) + "Face to indicate that a toot is boosted.") + +(defface mastodon-boost-fave-face + '((t :inherit success)) + "Face to indicate that you have boosted or favourited a toot.") + +(defface mastodon-cw-face + '((t :inherit success)) + "Face used for content warning.") ;;;###autoload (defun mastodon () @@ -101,7 +113,7 @@ Use. e.g. \"%c\" for your locale's date and time format." If USER is non-nil, insert after @ symbol to begin new toot. If REPLY-TO-ID is non-nil, attach new toot to a conversation." (interactive) - (require 'mastodon-toot nil t) + (require 'mastodon-toot nil t) (mastodon-toot--compose-buffer user reply-to-id)) ;;;###autoload |