[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/popper d5ab9b2c41 077/102: Popup without selecting (#17
From: |
ELPA Syncer |
Subject: |
[elpa] externals/popper d5ab9b2c41 077/102: Popup without selecting (#17) |
Date: |
Fri, 8 Sep 2023 15:58:55 -0400 (EDT) |
branch: externals/popper
commit d5ab9b2c4185f029425bb6ba1dc718de65f4db86
Author: Ben Whitley <dev@purplg.com>
Commit: GitHub <noreply@github.com>
Popup without selecting (#17)
* Replaced tab characters with spaces
* Added function `popper-display-popup-at-bottom`
Popups a buffer without selecting it.
---
popper.el | 34 +++++++++++++++++++---------------
1 file changed, 19 insertions(+), 15 deletions(-)
diff --git a/popper.el b/popper.el
index 9529eda147..e6abf91356 100644
--- a/popper.el
+++ b/popper.el
@@ -257,13 +257,17 @@ grouped by the predicate `popper-group-function'.")
(defun popper-select-popup-at-bottom (buffer &optional _alist)
"Display and switch to popup-buffer BUFFER at the bottom of the screen."
- (let ((window (display-buffer-in-side-window
- buffer
- `((window-height . ,popper-window-height)
- (side . bottom)
- (slot . 1)))))
+ (let ((window (popper-display-popup-at-bottom buffer _alist)))
(select-window window)))
+(defun popper-display-popup-at-bottom (buffer &optional _alist)
+ "Display popup-buffer BUFFER at the bottom of the screen."
+ (display-buffer-in-side-window
+ buffer
+ `((window-height . ,popper-window-height)
+ (side . bottom)
+ (slot . 1))))
+
(defun popper-popup-p (buf)
"Predicate to test if buffer BUF meets the criteria listed in
`popper-reference-buffers'."
(or (seq-some (lambda (buf-regexp)
@@ -358,16 +362,16 @@ Each element of the alist is a cons cell of the form
(window . buffer)."
(setq popper-open-popup-alist (nreverse open-popups))
;; First remove all open popups that have been opened
(cl-loop for (_ . buf) in open-popups do
- (let* ((group-name (when popper-group-function
- (with-current-buffer buf (funcall
popper-group-function))))
- (group-popups (cdr (assoc group-name
popper-buried-popup-alist 'equal))))
- (setf (alist-get group-name popper-buried-popup-alist
- nil nil 'equal)
- (cl-remove buf group-popups :key #'cdr))))
+ (let* ((group-name (when popper-group-function
+ (with-current-buffer buf (funcall
popper-group-function))))
+ (group-popups (cdr (assoc group-name
popper-buried-popup-alist 'equal))))
+ (setf (alist-get group-name popper-buried-popup-alist
+ nil nil 'equal)
+ (cl-remove buf group-popups :key #'cdr))))
;; Then add all popups that have been closed
(cl-loop for (win . buf) in closed-popups do
- (let* ((group-name (when popper-group-function
- (with-current-buffer buf (funcall
popper-group-function))))
+ (let* ((group-name (when popper-group-function
+ (with-current-buffer buf (funcall
popper-group-function))))
(group-popups (cdr (assoc group-name
popper-buried-popup-alist 'equal)))
(newpop (cons win buf)))
(setf (alist-get group-name popper-buried-popup-alist
@@ -453,8 +457,8 @@ a popup buffer to open."
;; Kludge. Side windows and regular windows are handled differently. The
;; latter is still somewhat broken. This is a bad idea.
(if (window-parameter win 'window-side)
- (delete-window win)
- (quit-window nil win)))
+ (delete-window win)
+ (quit-window nil win)))
((frame-parent) (delete-frame))
(t (quit-window nil win)))))
- [elpa] externals/popper 35e266d984 031/102: Add support for fullscreen popups, (continued)
- [elpa] externals/popper 35e266d984 031/102: Add support for fullscreen popups, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 598571f025 041/102: Started work on buffer-hiding feature, ELPA Syncer, 2023/09/08
- [elpa] externals/popper b120c6836c 042/102: extract window height determining function, ELPA Syncer, 2023/09/08
- [elpa] externals/popper c96915cb77 043/102: Merge commit 'b120c68' into feature, ELPA Syncer, 2023/09/08
- [elpa] externals/popper cd975ac5b8 047/102: Updated README with new features, popups by predicate, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 1312c0f0f6 053/102: Added video demo of buffer hiding, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 851d838821 065/102: Extracted popper-echo into a separate library, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 7afd502b3b 068/102: Fixed popper-echo display when the group is a symbol, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 667dcdd063 069/102: Added badge, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 4d58a6dbba 076/102: Handle unbound dispatch keys in popper-echo, ELPA Syncer, 2023/09/08
- [elpa] externals/popper d5ab9b2c41 077/102: Popup without selecting (#17),
ELPA Syncer <=
- [elpa] externals/popper a93ff38ab6 098/102: popper: Assign copyright to FSF, ELPA Syncer, 2023/09/08
- [elpa] externals/popper fd39948875 024/102: Removed redundant info from documentation, ELPA Syncer, 2023/09/08
- [elpa] externals/popper b32abcba49 030/102: Fixed popup display of newly created popup buffers, ELPA Syncer, 2023/09/08
- [elpa] externals/popper c465e0de24 007/102: Added technical notes to README, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 7f61e916ce 037/102: Child frame support for popper (ongoing), ELPA Syncer, 2023/09/08
- [elpa] externals/popper 767d4ffd0e 039/102: Modified README for clarity, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 096078acea 040/102: Add `perspective`-based grouping function (#5), ELPA Syncer, 2023/09/08
- [elpa] externals/popper 0e16eb9b86 050/102: Tweaks to readme, major-mode identification code, ELPA Syncer, 2023/09/08
- [elpa] externals/popper 0127de7161 052/102: Updated Readme for readability + handle project-current when nil, ELPA Syncer, 2023/09/08
- [elpa] externals/popper a29c603acd 055/102: Merge branch 'feature' of github.com:karthink/popper into feature, ELPA Syncer, 2023/09/08