summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-10-03 08:41:41 +0300
committerThanos Apollo <[email protected]>2023-10-03 08:41:41 +0300
commit2ada7fa0bf694eb6c273a5b9a2d4c4673dde8bc6 (patch)
tree7c3a738354dc1de64a47f8026606739186878298
parent382eb674e1653486418680a1af43f7d92bf7064b (diff)
[fix] yeetube-buffer: Fix yeetube-buffer-face name & package-require
Rename yeetube-faces to yeetube-buffer-faces Remove :safe keyword Require emacs 29.1 -- since yeetube.el requires emacs 29.1
-rw-r--r--yeetube-buffer.el18
1 files changed, 8 insertions, 10 deletions
diff --git a/yeetube-buffer.el b/yeetube-buffer.el
index aad9d10..216c186 100644
--- a/yeetube-buffer.el
+++ b/yeetube-buffer.el
@@ -7,7 +7,7 @@
;; URL: https://git.thanosapollo.com/yeetube
;; Version: 0.0.1
-;; Package-Requires: ((emacs "27.2"))
+;; Package-Requires: ((emacs "29.1"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -36,10 +36,9 @@
Emojis cause formatting issues, this should be off by default."
:type 'boolean
- :safe #'booleanp
:group 'yeetube)
-(defgroup yeetube-faces nil
+(defgroup yeetube-buffer-faces nil
"Faces used by yeetube."
:group 'yeetube
:tag "Yeetube Faces"
@@ -48,27 +47,27 @@ Emojis cause formatting issues, this should be off by default."
(defface yeetube-buffer-face-header-query
'((t :inherit font-lock-function-name-face))
"Face used for the video published date."
- :group 'yeetube-faces)
+ :group 'yeetube-buffer-faces)
(defface yeetube-buffer-face-duration
'((t :inherit font-lock-string-face))
"Face used for the video duration."
- :group 'yeetube-faces)
+ :group 'yeetube-buffer-faces)
(defface yeetube-buffer-face-view-count
'((t :inherit font-lock-keyword-face))
"Face used for the video view count."
- :group 'yeetube-faces)
+ :group 'yeetube-buffer-faces)
(defface yeetube-buffer-face-title
'((t :inherit font-lock-variable-use-face))
"Face used for video title."
- :group 'yeetube-faces)
+ :group 'yeetube-buffer-faces)
(defface yeetube-buffer-face-channel
'((t :inherit font-lock-function-call-face))
"Face used for video channel name."
- :group 'yeetube-faces)
+ :group 'yeetube-buffer-faces)
(defun yeetube-buffer-strip-emojis (str)
"Remove characters which are part of the `emoji' script from STR."
@@ -175,12 +174,11 @@ Emojis cause formatting issues, this should be off by default."
(defun yeetube-buffer--format-header (query)
"Render header for *yeetube* buffer for QUERY."
(setf header-line-format
- (concat
(concat
"Search: " (yeetube-buffer--format-header-title query)
(yeetube-buffer--format-view-count "Views")
(yeetube-buffer--format-video-duration "Duration")
- (yeetube-buffer--format-channel "Channel")))))
+ (yeetube-buffer--format-channel "Channel"))))
;;;###autoload
(defun yeetube-buffer-create (query content buffer-mode)