alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-compose: don't attempt deleting frames for now

Browse Source 
This needs some more work, so don't try to delete frames for now, which
is better than the alternative.
This commit is contained in:
Dirk-Jan C. Binnema
2023-12-15 07:39:13 +02:00
parent 65e7e7f42d
commit cbd6353058
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mu4e/mu4e-compose.el
View File

@ -749,15 +749,19 @@ Is this address yours?"
(undo-boundary)) (undo-boundary))
(defun mu4e--maybe-delete-frame () (defun mu4e--maybe-delete-frame ()
"Delete frame if there are multiple and current one has a single window." "Delete frame if there are multiple and current one has a single
window."
;; XXX: this doesn't quite work; need a way to filter out
;; the one _real_ frame I'm looking at; but I always get 3 or so.
;; Only consider _real_ frames with some size ;; Only consider _real_ frames with some size
(when (one-window-p) ;; (when (one-window-p)
(let ((real-frames ;; (let ((real-frames
(seq-filter (lambda (frame) ;; (seq-filter (lambda (frame);; only count live visible parent frames.
(> (or (frame-parameter frame 'width) 0) 0)) ;; (not (frame-parent frame)))
(frame-list)))) ;; (visible-frame-list))))
(when (> (length real-frames) 1) ;; (when (> (length real-frames) 1)
(delete-frame))))) ;; (delete-frame))))
)
(defun mu4e--compose-setup (compose-type compose-func &optional switch) (defun mu4e--compose-setup (compose-type compose-func &optional switch)
"Set up a new buffer for mu4e message composition. "Set up a new buffer for mu4e message composition.