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

Treat popups properly on C-w

Browse Source
This commit is contained in:
Henrik Lissner
2016-04-19 03:17:33 -04:00
parent 17590a394b
commit 1559127031
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
core/defuns/defuns-workgroup.el
View File

@@ -183,13 +183,15 @@
;;;###autoload
(defun narf/close-window-or-workgroup ()
(interactive)
(narf/kill-real-buffer)
(if (and (one-window-p t)
(> (length (wg-workgroup-list)) 1))
(if (string= (wg-workgroup-name (wg-current-workgroup)) wg-first-wg-name)
(evil-window-delete)
(narf:workgroup-delete))
(evil-window-delete)))
(if (memq (get-buffer-window) narf-popup-windows)
(narf/popup-close)
(narf/kill-real-buffer)
(if (and (one-window-p t)
(> (length (wg-workgroup-list)) 1))
(if (string= (wg-workgroup-name (wg-current-workgroup)) wg-first-wg-name)
(evil-window-delete)
(narf:workgroup-delete))
(evil-window-delete))))
(provide 'defuns-workgroup)
;;; defuns-workgroup.el ends here