From 576b52473f346bbae61178e309a1134e04c61124 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 4 Oct 2023 17:21:19 +0300 Subject: yeetube: Rewrite keymap & require version 27.2 Rewrite keymap to use make-sparse-keymap & require version 27.2. defvar-keymap which was previously used requires emacs version 29.1 This change was suggested by emacs-devel mailing list, to make this package available to users that have not updated to the latest emacs version. --- yeetube.el | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index 0c1fb93..896a6d1 100644 --- a/yeetube.el +++ b/yeetube.el @@ -8,7 +8,7 @@ ;; Version: 2.0.5 -;; Package-Requires: ((emacs "29.1")) +;; Package-Requires: ((emacs "27.2")) ;; 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 @@ -267,18 +267,16 @@ prompt blank to keep the default name." (yeetube-download-ytdlp url name yeetube-download-audio-format))))) ;; Yeetube Mode -(defvar-keymap yeetube-mode-map - :doc "Keymap for yeetube commands" - "RET" #'yeetube-play - "d" #'yeetube-download-video - "D" #'yeetube-change-download-directory - "a" #'yeetube-change-download-audio-format - "p" #'yeetube-mpv-toggle-pause - "v" #'yeetube-mpv-toggle-video - "V" #'yeetube-mpv-toggle-no-video-flag - "s" #'yeetube-save-video - "P" #'yeetube-play-saved-video - "q" #'quit-window) +(defvar yeetube-mode-map (make-sparse-keymap)) +(define-key yeetube-mode-map (kbd "RET") #'yeetube-play) +(define-key yeetube-mode-map (kbd "d") #'yeetube-download-video) +(define-key yeetube-mode-map (kbd "D") #'yeetube-download-change-directory) +(define-key yeetube-mode-map (kbd "a") #'yeetube-download-change-audio-format) +(define-key yeetube-mode-map (kbd "v") #'yeetube-mpv-toggle-video) +(define-key yeetube-mode-map (kbd "V") #'yeetube-mpv-toggle-no-video-flag) +(define-key yeetube-mode-map (kbd "s") #'yeetube-save-video) +(define-key yeetube-mode-map (kbd "P") #'yeetube-play-saved-video) +(define-key yeetube-mode-map (kbd "q") #'quit-window) (define-derived-mode yeetube-mode special-mode "Yeetube" "Yeetube mode." -- cgit v1.2.3