From f348a1a155f133648946c817d45545cacd15a1c5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 9 Jan 2024 20:56:37 +0200 Subject: Add yeetube-faces --- yeetube.el | 39 +++++++++++++++++++++++++++++++++++---- 1 file changed, 35 insertions(+), 4 deletions(-) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 604575f..e2da3f7 100644 --- a/yeetube.el +++ b/yeetube.el @@ -73,6 +73,37 @@ Example Usage: :type 'string :group 'yeetube) +(defgroup yeetube-faces nil + "Faces used by yeetube." + :group 'yeetube + :tag "Yeetube Faces" + :prefix 'yeetube-face) + +(defface yeetube-face-header-query + '((t :inherit font-lock-function-name-face)) + "Face used for the video published date." + :group 'yeetube-faces) + +(defface yeetube-face-duration + '((t :inherit font-lock-string-face)) + "Face used for the video duration." + :group 'yeetube-faces) + +(defface yeetube-face-view-count + '((t :inherit font-lock-keyword-face)) + "Face used for the video view count." + :group 'yeetube-faces) + +(defface yeetube-face-title + '((t :inherit font-lock-variable-use-face)) + "Face used for video title." + :group 'yeetube-faces) + +(defface yeetube-face-channel + '((t :inherit font-lock-function-call-face)) + "Face used for video channel name." + :group 'yeetube-faces) + (defvar yeetube-invidious-instances '("vid.puffyan.us" "invidious.flokinet.to" @@ -406,10 +437,10 @@ FIELDS-FACE-PAIRS is a list of fields and faces." (lambda (content) (list content (yeetube-propertize-vector content - :title 'yeetube-buffer-face-title - :view-count 'yeetube-buffer-face-view-count - :duration 'yeetube-buffer-face-duration - :channel 'yeetube-buffer-face-channel))) + :title 'yeetube-face-title + :view-count 'yeetube-face-view-count + :duration 'yeetube-face-duration + :channel 'yeetube-face-channel))) yeetube-content) tabulated-list-sort-key (cons "Title" nil)) (display-line-numbers-mode 0) -- cgit v1.2.3