Added face customization closes #124

2 files changed, 37 insertions, 8 deletions

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index b3550c6..c48ca2d 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -109,10 +109,11 @@ Optionally start from POS."
     (concat
      (when mastodon-media-show-avatars-p
        (mastodon-media--get-avatar-rendering avatar-url))
-     (propertize name 'face 'warning)
-     " (@"
-     handle
-     ")")))
+     (propertize name 'face 'mastodon-display-name-face)
+     (propertize (concat " (@"
+			 handle
+			 ")")
+		 'face 'mastodon-handle-face))))
 
 (defun mastodon-tl--byline-boosted (toot)
   "Add byline for boosted data from TOOT."
@@ -120,7 +121,7 @@ Optionally start from POS."
     (when reblog
       (concat
        " "
-       (propertize "Boosted" 'face 'highlight)
+       (propertize "Boosted" 'face 'mastodon-boosted-face)
        " "
        (mastodon-tl--byline-author reblog)))))
 
@@ -140,9 +141,11 @@ Return value from boosted content if available."
     (propertize
      (concat (propertize "\n | " 'face 'default)
              (when boosted
-               (format "(%s) " (propertize "B" 'face 'success)))
+               (format "(%s) "
+		       (propertize "B" 'face 'mastodon-boost-fave-face)))
              (when faved
-               (format "(%s) " (propertize "F" 'face 'success)))
+               (format "(%s) "
+		       (propertize "F" 'face 'mastodon-boost-fave-face)))
              (mastodon-tl--byline-author toot)
              (mastodon-tl--byline-boosted toot)
              " "
@@ -172,7 +175,7 @@ also render the html"
          (message (concat "\n ---------------"
                           "\n Content Warning"
                           "\n ---------------\n"))
-         (cw (mastodon-tl--set-face message 'success nil)))
+         (cw (mastodon-tl--set-face message 'mastodon-cw-face nil)))
     (if (> (length string) 0)
         (replace-regexp-in-string "\n\n\n ---------------"
                                   "\n ---------------" (concat string cw))
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 0dd7f10..92220dc 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -82,6 +82,32 @@ Use. e.g. \"%c\" for your locale's date and time format."
   :options '(provide-discover-context-menu)
   :group 'mastodon)
 
+(defcustom mastodon-mode-hook nil
+  "Hook run when entering Mastodon mode."
+  :type 'hook
+  :options '(provide-discover-context-menu)
+  :group 'mastodon)
+
+(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.")
+
 (defun mastodon-version ()
   "Message package version."
   (interactive)