From 234be14ffcee0cfe180a9459a35e8a6c80b3a8b8 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Mon, 3 Jul 2023 13:15:41 +0300
Subject: Add yeetube-info & yeetube-info-keys custom

Create a yeetube-info function that displays
- Yeetube Player
- Yeetube Download Directory

when yeetube-info-keys t display default keybindings
---
 yeetube.el | 31 ++++++++++++++++++++++---------
 1 file changed, 22 insertions(+), 9 deletions(-)

diff --git a/yeetube.el b/yeetube.el
index e187fce..deb010a 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -66,6 +66,12 @@ Example Usage:
   :safe #'stringp
   :group 'yeetube)
 
+(defcustom yeetube-display-info-keys t
+  "Display default keybindings."
+  :type 'boolean
+  :safe #'booleanp
+  :group 'yeetube)
+
 
 (defcustom yeetube-player (executable-find "mpv")
   "Select default video player.
@@ -107,6 +113,7 @@ Example Usage:
 
 
 ;; TODO: Check if video_type of videoid is short or video
+;; TODO: Titles are getting messed up for livestreams
 (defun yeetube-search (query)
   "Search for QUERY."
   (interactive "sYeetube Search: ")
@@ -141,15 +148,7 @@ Example Usage:
 	       (cl-mapcar #'cons (reverse videoIds) (reverse videoTitles))
                do (insert (format "%s [[https://www.youtube.com/watch?v=%s][%s ]]\n"
 				  yeetube-results-prefix videoId videoTitle)))
-      (insert
-       "** Info"
-       (format "\nDownload Directory: %s" yeetube-download-directory)
-       (format "\nYeetube Player: %s" yeetube-player)
-       "\n\n"
-       "\n~RET~     -> Play Video\n"
-       "\n~d~       -> Download\n"
-       "\n~C-c C-o~ -> Open In Browser\n"
-       "\n~q~       -> Quit\n")
+      (yeetube-info)
       (setq buffer-read-only t)
       (goto-char (point-min))
       (search-forward yeetube-results-prefix)
@@ -215,6 +214,20 @@ then run this command interactively."
 	 buffer-name)
         (setq buffer-counter (1+ buffer-counter))))))
 
+(defun yeetube-info ()
+  "Insert default keybindings at *Yeetube Search* buffer."
+    (insert
+     "\n\n** Info"
+     (format "\nDownload Directory: %s" yeetube-download-directory)
+     (format "\nYeetube Player: %s" yeetube-player))
+    (when yeetube-display-info-keys
+      (insert
+       "\n\n*** Keybindings"
+       "\n"
+       "\n~RET~     -> Play Video\n"
+       "\n~d~       -> Download\n"
+       "\n~C-c C-o~ -> Open In Browser\n"
+       "\n~q~       -> Quit\n")))
 
 (provide 'yeetube)
 ;;; yeetube.el ends here
-- 
cgit v1.2.3