From ceaa24bd1f81c2b16dc88624542b048650aa1b8c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 2 Oct 2023 16:58:25 +0300 Subject: yeetube-buffer: Fix faces' name Each face name should start with yeetube-buffer, since we are not using yeetube-face as a seperate pacakge. Pointed out by Protesilaos Stavrou(Prot) in a private channel. --- yeetube-buffer.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) (limited to 'yeetube-buffer.el') diff --git a/yeetube-buffer.el b/yeetube-buffer.el index 1c3939f..ad31cb3 100644 --- a/yeetube-buffer.el +++ b/yeetube-buffer.el @@ -40,25 +40,25 @@ Emojis cause formatting issues, this should be off by default." :group 'yeetube) -(defface yeetube-face-header-query +(defface yeetube-buffer-face-header-query '((t :inherit font-lock-function-name-face)) "Face used for the video published date.") -(defface yeetube-face-duration +(defface yeetube-buffer-face-duration '((t :inherit font-lock-string-face)) "Face used for the video duration.") -(defface yeetube-face-view-count +(defface yeetube-buffer-face-view-count '((t :inherit font-lock-keyword-face)) "Face used for the video view count.") -(defface yeetube-face-title +(defface yeetube-buffer-face-title '((t :inherit font-lock-variable-use-face)) "Face used for video title.") -(defface yeetube-face-channel +(defface yeetube-buffer-face-channel '((t :inherit font-lock-function-call-face)) - "Face used for video title.") + "Face used for video channel name.") (defun yeetube-buffer-strip-emojis (str) "Remove characters which are part of the `emoji' script from STR." @@ -66,6 +66,8 @@ Emojis cause formatting issues, this should be off by default." (equal (aref char-script-table c) 'emoji)) str)) +;; Usually titles from youtube get messed up, +;; This should fix some of the common issues. (defun yeetube-buffer-fix-title (title) "Adjust TITLE." (let ((replacements '(("&" . "&") @@ -107,7 +109,7 @@ Emojis cause formatting issues, this should be off by default." " ") (concat (seq-subseq query 0 50) "... " )))) - (propertize formatted-string 'face 'yeetube-face-header-query))) + (propertize formatted-string 'face 'yeetube-buffer-face-header-query))) (defun yeetube-buffer--format-title (title) "Format a video TITLE to be inserted in the *yeetube* buffer." @@ -120,7 +122,7 @@ Emojis cause formatting issues, this should be off by default." " ") (concat (seq-subseq title 0 57) "... " )))) - (propertize formatted-string 'face 'yeetube-face-title))) + (propertize formatted-string 'face 'yeetube-buffer-face-title))) (defun yeetube-buffer--format-view-count (view-count) "Format a video VIEW-COUNT to be inserted in the *yeetube* buffer." @@ -133,7 +135,7 @@ Emojis cause formatting issues, this should be off by default." " ") (concat (seq-subseq view-count 0 10) "...")))) - (propertize formatted-string 'face 'yeetube-face-view-count))) + (propertize formatted-string 'face 'yeetube-buffer-face-view-count))) (defun yeetube-buffer--format-video-duration (video-duration) "Format a video VIDEO-DURATION to be inserted in the *yeetube* buffer." @@ -145,7 +147,7 @@ Emojis cause formatting issues, this should be off by default." " ") (concat (seq-subseq video-duration 0 10) "...")))) - (propertize formatted-string 'face 'yeetube-face-duration))) + (propertize formatted-string 'face 'yeetube-buffer-face-duration))) (defun yeetube-buffer--format-channel (channel) "Format a video CHANNEL to be inserted in the *yeetube* buffer." @@ -158,7 +160,7 @@ Emojis cause formatting issues, this should be off by default." " ") (concat (seq-subseq channel 0 11) "... " )))) - (propertize formatted-string 'face 'yeetube-face-channel))) + (propertize formatted-string 'face 'yeetube-buffer-face-channel))) (defun yeetube-buffer--format-header (query) "Render header for *yeetube* buffer for QUERY." -- cgit v1.2.3