Add yeetube-propertize-vector

Will be used to propertize items in tabulated-list

1 files changed, 9 insertions, 1 deletions

diff --git a/yeetube.el b/yeetube.el
index b41d2c8..1ec9f1d 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -371,8 +371,16 @@ prompt blank to keep the default name."
 	(setf download-counter (1+ download-counter))
 	(yeetube-download--ytdlp url name yeetube-download-audio-format)))))
 
-;; Yeetube Mode
+(defun yeetube-propertize-vector (content &rest fields-face-pairs)
+  "Create a vector with each item propertized with its corresponding face.
+
+CONTENT is a list of strings.
+FIELDS-FACE-PAIRS is a list of fields and faces."
+  (apply #'vector
+         (cl-loop for (field face) on fields-face-pairs by #'cddr
+                  collect (propertize (cl-getf content field) 'face face))))
 
+;; Yeetube Mode
 (defvar-keymap yeetube-mode-map
   :doc "Keymap for yeetube commands"
   "RET" #'yeetube-play