Lazy load popup rules + def-popup!

modules/module-db.el

@@ -3,6 +3,7 @@
 (use-package sql-mode
   :mode "\\.sql$"
   :config
+  (def-popup! "\\*SQL.*\\*" :align below :size 0.4 :noselect t :regexp t)
   (evil-set-initial-state 'sql-interactive-mode 'emacs)
   (push 'sql-interactive-mode doom-popup-protect-modes)
   ;; For my local development environment

modules/module-elisp.el

@@ -19,6 +19,8 @@
               ("advice-add" "advice-remove")
               ("add-hook" "add-hook!" "remove-hook")))
 
+  (def-popup! "*ert*" :align below :size 20 :noselect t)
+
   ;; Don't affect lisp indentation (only `tab-width')
   (setq editorconfig-indentation-alist
         (delq (assq 'emacs-lisp-mode editorconfig-indentation-alist)
@@ -38,7 +40,7 @@
             "(\\(def-"
             (regexp-opt '("electric" "project-type" "company-backend"
                           "builder" "repl" "text-obj" "tmp-excmd" "rotate"
-                          "repeat" "yas-mode" "version-cmd" "docset"
+                          "repeat" "yas-mode" "version-cmd" "docset" "popup"
                           "open-with"))
             "!\\)")
           (1 font-lock-keyword-face append))

modules/module-eshell.el

@@ -16,6 +16,9 @@
         ;; em-alias
         eshell-aliases-file (concat doom-temp-dir "/.eshell-aliases"))
 
+  :config
+  (def-popup! eshell-mode :frame t :select t)
+
   ;; plan 9 smart shell
   (require 'em-smart)
   (add-to-list 'eshell-modules-list 'eshell-smart)

modules/module-haskell.el

@@ -9,6 +9,7 @@
   :init
   (add-hook! haskell-mode '(interactive-haskell-mode flycheck-mode))
   :config
+  (def-popup! "*debug:haskell*" :size 20)
   (def-repl! haskell-mode switch-to-haskell)
   (push ".hi" completion-ignored-extensions))
 

modules/module-org.el

@@ -37,6 +37,14 @@
   (add-hook 'evil-insert-state-exit-hook 'doom|org-update nil t))
 
 (defun doom|org-init ()
+  (def-popup! " *Agenda Commands*"  :align below :size 30)
+  (def-popup! " *Org todo*"         :align below :size 5   :noselect t)
+  (def-popup! "*Calendar*"          :align below :size 0.4)
+  (def-popup! "*Org Links*"         :align below :size 5)
+  (def-popup! "^\\*Org Agenda.+"    :align below :size 0.4 :regexp t)
+  (def-popup! "^\\*Org Src .+\\*$"  :align below :size 0.4 :select t :regexp t)
+  (def-popup! "^\\*Org-Babel.*\\*$" :align below :size 0.4 :regexp t)
+
   (setq-default
    org-export-coding-system 'utf-8
 

modules/module-processing.el

@@ -9,6 +9,7 @@
 
   :config
   (def-builder! processing-mode processing-sketch-build)
+  (def-popup! "*processing-compilation*" :align below :size 10 :noselect t)
   (setq processing-location "/usr/local/bin/processing-java"
         processing-application-dir "/Applications/Processing.app"
         processing-sketchbook-dir "~/Dropbox/work/pde"

modules/module-python.el

@@ -67,6 +67,7 @@
   :preface (defvar nose-mode-map (make-sparse-keymap))
   :init (associate! nose-mode :match "/test_.+\\.py$" :in (python-mode))
   :config
+  (def-popup! "*nosetests*" :align below :size 0.4 :noselect t)
   (def-yas-mode! 'nose-mode)
   (map! :map nose-mode-map
         (:localleader