emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

core-popups: refactor/cleanup hacks

Browse source
This commit is contained in:
Henrik Lissner 2017-03-04 18:55:47 -05:00
parent 2dc1c616d1
commit e835d089c8
1 changed files with 108 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-popups.el
View file

@ -220,12 +220,10 @@ properties."
;; Hacks
;;
;; Run these as late as possible, to give a chance for other modules to
;; customize these settings in their own hooks.
(add-hook! 'window-setup-hook
(after! evil
(let ((map doom-popup-mode-map))
(define-key map [remap evil-window-delete] 'doom/popup-close)
(define-key map [remap evil-save-modified-and-close] 'doom/popup-close)
(define-key map [remap evil-window-move-very-bottom] 'ignore)
(define-key map [remap evil-window-move-very-top] 'ignore)
(define-key map [remap evil-window-move-far-left] 'ignore)
@ -361,6 +359,9 @@ the command buffer."
(advice-add 'evil-window-move-far-right :around 'doom*popups-save-neotree))
;; Ensure these settings are attached to org-load-hook as late as possible,
;; giving other modules to add their own hooks.
(add-hook! 'after-init-hook
(add-hook! 'org-load-hook
(set! :popup
'("*Calendar*" :size 0.4 :noselect t)
@ -408,12 +409,7 @@ the command buffer."
:m "ESC" 'org-agenda-Quit))
(let ((map org-agenda-mode-map))
(define-key map "q" 'org-agenda-Quit)
(define-key map "Q" 'org-agenda-Quit))))
(after! repl-toggle
(add-hook! doom-popup-close
(setq rtog/--last-buffer nil))))
(define-key map "Q" 'org-agenda-Quit)))))
(provide 'core-popups)
;;; core-popups.el ends here