From f7c21d066267c3994f70e335281d1a439a351e6e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 9 Jan 2024 20:36:51 +0200 Subject: Add yeetube-propertize-vector Will be used to propertize items in tabulated-list --- yeetube.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'yeetube.el') 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 -- cgit v1.2.3