pdm/pip-frame
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add support for displaying buffers in PIP temporarily

Browse Source
This commit is contained in:
Milan Zamazal 2022-05-16 07:59:32 +02:00
parent 31636a8ccf
commit 86f6ef3abc
1 changed files with 60 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
pip-frame.el
View File

@ -61,6 +61,11 @@ custom option but it can be overriden here."
:type '(alist :key-type symbol :value-type sexp) :type '(alist :key-type symbol :value-type sexp)
:group 'pip-frame) :group 'pip-frame)
(defcustom pip-frame-temporary-buffer-seconds 10
"Number of seconds to keep a buffer displayed temporarily by default."
:type 'number
:group 'pip-frame)
(defvar pip-frame--name "PIP-frame") (defvar pip-frame--name "PIP-frame")
(defun pip-frame--get-frame (&optional no-error) (defun pip-frame--get-frame (&optional no-error)
@ -92,45 +97,76 @@ custom option but it can be overriden here."
(defun pip-frame--buffers () (defun pip-frame--buffers ()
(mapcar #'window-buffer (window-list (pip-frame--get-frame)))) (mapcar #'window-buffer (window-list (pip-frame--get-frame))))
(defun pip-frame--add-additional-buffer (buffer) (defun pip-frame--add-additional-buffer (buffer temporary)
(let* ((windows (window-list (pip-frame--get-frame))) (let ((windows (window-list (pip-frame--get-frame))))
(sizes (mapcar #'(lambda (w) (unless (and temporary
(cl-find buffer windows :key #'window-buffer :test #'eq))
(let* ((sizes (mapcar #'(lambda (w)
(let ((width (window-body-width w t)) (let ((width (window-body-width w t))
(height (window-body-height w t))) (height (window-body-height w t)))
(cons (+ (* width width) (* height height)) (cons (+ (* width width) (* height height))
w))) w)))
windows)) windows))
(largest (cdr (cl-first (cl-sort sizes #'> :key #'car)))) (largest (cdr (cl-first (cl-sort sizes #'> :key #'car))))
(side (if (> (window-body-width largest t) (* 2 (window-body-height largest t))) (side (if (> (window-body-width largest t)
(* 2 (window-body-height largest t)))
'right 'right
'below)) 'below))
(new-window (split-window largest nil side))) (new-window (split-window largest nil side)))
(set-window-buffer new-window buffer))) (set-window-buffer new-window buffer)))))
(defvar pip-frame--buffer-timers '())
(defun pip-frame--make-buffer-temporary (buffer seconds)
(when (eq seconds t)
(setq seconds pip-frame-temporary-buffer-seconds))
(let ((timer (run-with-timer seconds nil #'pip-frame-remove-buffer buffer)))
(setq pip-frame--buffer-timers (cons (cons buffer timer)
pip-frame--buffer-timers))))
(defun pip-frame--delete-buffer-timer (buffer)
(let ((timer (alist-get buffer pip-frame--buffer-timers)))
(when timer
(cancel-timer timer)
(setq pip-frame--buffer-timers
(assq-delete-all buffer pip-frame--buffer-timers)))))
;;;###autoload ;;;###autoload
(defun pip-frame-add-buffer (&optional buffer-or-name) (defun pip-frame-add-buffer (&optional buffer-or-name temporary)
"Add a buffer to the PIP frame. "Add a buffer to the PIP frame.
If there is no PIP frame then create one. If there is no PIP frame then create one.
If BUFFER-OR-NAME is specified, add the given buffer to the frame, If BUFFER-OR-NAME is specified, add the given buffer to the frame,
otherwise add the current buffer. otherwise add the current buffer.
A buffer can be added and displayed multiple times in the frame." If TEMPORARY is given, display the buffer in the PIP frame for that
many seconds and then remove it from the frame. If t, display it for
`pip-frame-temporary-buffer-seconds'.
A buffer can be added and displayed multiple times in the frame. If
TEMPORARY is non-nil, the buffer is not displayed again if it is
already present."
(interactive) (interactive)
(let ((frame (pip-frame--get-frame t)) (let ((frame (pip-frame--get-frame t))
(buffer (get-buffer (or buffer-or-name (current-buffer))))) (buffer (get-buffer (or buffer-or-name (current-buffer)))))
(if frame (if frame
(pip-frame--add-additional-buffer buffer) (progn
(pip-frame--make-frame buffer)))) (when temporary
(pip-frame--delete-buffer-timer buffer))
(pip-frame--add-additional-buffer buffer temporary))
(pip-frame--make-frame buffer))
(when temporary
(pip-frame--make-buffer-temporary buffer temporary))))
(defun pip-frame-remove-buffer (buffer-name) (defun pip-frame-remove-buffer (buffer-or-name)
"Remove buffer named BUFFER-NAME from the PIP frame. "Remove buffer named BUFFER-OR-NAME from the PIP frame.
If it is the last buffer in the PIP frame, delete the frame." If it is the last buffer in the PIP frame, delete the frame.
If the buffer is not present in the PIP frame, do nothing."
(interactive (list (completing-read "Remove PIP buffer: " (interactive (list (completing-read "Remove PIP buffer: "
(mapcar #'buffer-name (pip-frame--buffers)) (mapcar #'buffer-name (pip-frame--buffers))
nil t))) nil t)))
(let* ((windows (window-list (pip-frame--get-frame))) (let* ((windows (window-list (pip-frame--get-frame)))
(windows-to-delete (cl-remove buffer-name windows (buffer (get-buffer buffer-or-name))
:key #'(lambda (w) (buffer-name (window-buffer w))) (windows-to-delete (cl-remove buffer windows
:test-not #'string=))) :key #'window-buffer
:test-not #'eq)))
(if (= (length windows-to-delete) (length windows)) (if (= (length windows-to-delete) (length windows))
(pip-frame-delete-frame) (pip-frame-delete-frame)
(mapc #'delete-window windows-to-delete)))) (mapc #'delete-window windows-to-delete))))