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

feature/popup: remove eval-when-compile

Browse source 
This fixes void-variable errors when byte-compiling this module.
This commit is contained in:
Henrik Lissner 2018-03-01 23:41:43 -05:00
parent 7542f4a660
commit 9a1bf42075
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

40
modules/feature/popup/config.el
View file

@ -145,29 +145,25 @@ ALIST supports one custom parameter: `size', which will resolve to
;; Default popup rules & bootstrap ;; Default popup rules & bootstrap
;; ;;
(eval-when-compile (when (featurep! +all)
(when (featurep! +all) (set! :popup "^ \\*" '((slot . 1) (vslot . -1) (size . +popup-shrink-to-fit)))
(set! :popup "^ \\*" '((slot . 1) (vslot . -1) (size . +popup-shrink-to-fit))) (set! :popup "^\\*" '((slot . 1) (vslot . -1)) '((select . t))))
(set! :popup "^\\*" '((slot . 1) (vslot . -1)) '((select . t))))
(when (featurep! +defaults) (when (featurep! +defaults)
(set! :popup "^\\*Completions" '((slot . -1) (vslot . -2)) '((transient . 0))) (set! :popup "^\\*Completions" '((slot . -1) (vslot . -2)) '((transient . 0)))
(set! :popup "^\\*Compil\\(ation\\|e-Log\\)" nil '((transient . 0) (quit . t))) (set! :popup "^\\*Compil\\(ation\\|e-Log\\)" nil '((transient . 0) (quit . t)))
(set! :popup "^\\*\\(?:scratch\\|Messages\\)" nil '((transient))) (set! :popup "^\\*\\(?:scratch\\|Messages\\)" nil '((transient)))
(set! :popup "^\\*[Hh]elp" (set! :popup "^\\*[Hh]elp"
'((slot . 2) (vslot . 2) (size . 0.2)) '((slot . 2) (vslot . 2) (size . 0.2))
'((select . t))) '((select . t)))
(set! :popup "^\\*doom \\(?:term\\|eshell\\)" (set! :popup "^\\*doom \\(?:term\\|eshell\\)"
'((size . 0.25)) '((size . 0.25))
'((quit) (transient . 0))) '((quit) (transient . 0)))
(set! :popup "^\\*doom:" (set! :popup "^\\*doom:"
'((size . 0.35) (side . bottom)) '((size . 0.35) (side . bottom))
'((select . t) (modeline . t) (quit) (transient . t))) '((select . t) (modeline . t) (quit) (transient . t)))
(set! :popup "^\\*\\(?:\\(?:Pp E\\|doom e\\)val\\)" (set! :popup "^\\*\\(?:\\(?:Pp E\\|doom e\\)val\\)"
'((size . +popup-shrink-to-fit)) '((transient . 0) (select . ignore)))) '((size . +popup-shrink-to-fit)) '((transient . 0) (select . ignore))))
nil)
(setq +popup--display-buffer-alist (eval-when-compile +popup--display-buffer-alist))
(add-hook 'doom-init-ui-hook #'+popup-mode) (add-hook 'doom-init-ui-hook #'+popup-mode)
(add-hook! '+popup-buffer-mode-hook #'(+popup|adjust-fringes +popup|set-modeline)) (add-hook! '+popup-buffer-mode-hook #'(+popup|adjust-fringes +popup|set-modeline))