From 6db62b303d2ff45a525bb0aa9948401cda80e58e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 3 Oct 2023 05:43:14 +0300 Subject: yeetube-buffer: Add yeetube-faces group Create a group yeetube-faces, as part of yeetube group, for all faces used Pointed out by Protesilaos Stavrou (Prot) --- yeetube-buffer.el | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/yeetube-buffer.el b/yeetube-buffer.el index fcb6ba9..aad9d10 100644 --- a/yeetube-buffer.el +++ b/yeetube-buffer.el @@ -39,26 +39,36 @@ Emojis cause formatting issues, this should be off by default." :safe #'booleanp :group 'yeetube) +(defgroup yeetube-faces nil + "Faces used by yeetube." + :group 'yeetube + :tag "Yeetube Faces" + :prefix 'yeetube-face) (defface yeetube-buffer-face-header-query '((t :inherit font-lock-function-name-face)) - "Face used for the video published date.") + "Face used for the video published date." + :group 'yeetube-faces) (defface yeetube-buffer-face-duration '((t :inherit font-lock-string-face)) - "Face used for the video duration.") + "Face used for the video duration." + :group 'yeetube-faces) (defface yeetube-buffer-face-view-count '((t :inherit font-lock-keyword-face)) - "Face used for the video view count.") + "Face used for the video view count." + :group 'yeetube-faces) (defface yeetube-buffer-face-title '((t :inherit font-lock-variable-use-face)) - "Face used for video title.") + "Face used for video title." + :group 'yeetube-faces) (defface yeetube-buffer-face-channel '((t :inherit font-lock-function-call-face)) - "Face used for video channel name.") + "Face used for video channel name." + :group 'yeetube-faces) (defun yeetube-buffer-strip-emojis (str) "Remove characters which are part of the `emoji' script from STR." -- cgit v1.2.3