awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-21 13:53:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Extract :ui posframe packages into other modules

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-08 21:47:40 +02:00
parent 8d936f2d0b
commit 317b556bde
10 changed files with 77 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
core/core-ui.el
View File

@@ -544,6 +544,23 @@ frame's window-system, the theme will be reloaded.")
;; line numbers in most modes
(add-hook! (prog-mode text-mode conf-mode) #'doom|enable-line-numbers)
;; ensure posframe cleans up after itself
(after! posframe
;; TODO Find a better place for this
(defun doom|delete-posframe-on-escape ()
"TODO"
(unless (frame-parameter (selected-frame) 'posframe-buffer)
(cl-loop for frame in (frame-list)
if (and (frame-parameter frame 'posframe-buffer)
(not (frame-visible-p frame)))
do (delete-frame frame))
(dolist (buffer (buffer-list))
(let ((frame (buffer-local-value 'posframe--frame buffer)))
(when (and frame (or (not (frame-live-p frame))
(not (frame-visible-p frame))))
(posframe--kill-buffer buffer))))))
(add-hook 'doom-escape-hook #'doom|delete-posframe-on-escape)
(add-hook 'doom-cleanup-hook #'posframe-delete-all))
;; Customized confirmation prompt for quitting Emacs
(defun doom-quit-p (&optional prompt)