[Feature] Add custom pop-to-same-window-p boolean.

+ Add custom boolean, when non-nil creates the *yeetube* buffer at the
  same window, using pop-to-buffer-same-window.

1 files changed, 10 insertions, 2 deletions

diff --git a/yeetube.el b/yeetube.el
index bcfcaa9..a29a7fa 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -117,6 +117,11 @@ Valid options include:
   :type 'boolean
   :group 'yeetube)
 
+(defcustom yeetube-pop-to-same-window-p t
+  "When non-nil, create *yeetube* buffer at the same window."
+  :type 'boolean
+  :group 'yeetube)
+
 (defgroup yeetube-faces nil
   "Faces used by yeetube."
   :group 'yeetube
@@ -332,7 +337,10 @@ WHERE indicates where in the buffer the update should happen."
 
 (defun yeetube--callback (status)
   "Yeetube callback handling STATUS."
-  (let ((url-buffer (current-buffer)))
+  (let ((url-buffer (current-buffer))
+	(pop-to-buffer-func (if yeetube-pop-to-same-window-p
+				#'pop-to-buffer-same-window
+			      #'pop-to-buffer)))
     (unwind-protect
         (if-let ((err (plist-get :error status)))
             (message "Error %s in retrieving yeetube results: %S" (car err) (cdr err))
@@ -341,7 +349,7 @@ WHERE indicates where in the buffer the update should happen."
             (url-insert url-buffer)
             (decode-coding-region (point-min) (point-max) 'utf-8)
             (yeetube-get-content))
-          (pop-to-buffer-same-window "*yeetube*")
+          (funcall pop-to-buffer-func "*yeetube*")
           (yeetube-mode))
       (kill-buffer url-buffer))))