aboutsummaryrefslogtreecommitdiffstats
path: root/yeetube.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-09 20:56:37 +0200
committerThanos Apollo <[email protected]>2024-01-09 20:56:37 +0200
commitf348a1a155f133648946c817d45545cacd15a1c5 (patch)
tree44490692ffc1cdd084235746184136b03eb07b98 /yeetube.el
parentaf874221aea1ef6e427a281096edbc7b2caad77e (diff)
Add yeetube-faces
Diffstat (limited to 'yeetube.el')
-rw-r--r--yeetube.el39
1 files changed, 35 insertions, 4 deletions
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)