feat(emacs): popups

modules/home/users/msyds/emacs/init.el

@@ -41,7 +41,8 @@
     syd/org/noter
     syd/smartparens
     syd/snippets
-    syd/ptemplate))
+    syd/ptemplate
+    syd/popups))
 
 (defun syd-random-permutation (lst &optional seed)
   "Return a random permutation of list LST using SEED as the random state.  The

modules/home/users/msyds/emacs/lisp/syd/popups.el

@@ -0,0 +1,28 @@
+;; -*- lexical-binding: t; -*-
+
+(require 'syd/base)
+(require 'syd/hide-mode-line)
+
+(use-package popper
+  :hook (on-init-ui-hook)
+  :preface
+  (require 'hide-mode-line)
+  ;; `doom-popup' tests (boundp 'hide-mode-line-mode) before it tries enabling
+  ;; or disabling the mode.  We must define this because `hide-mode-line' does
+  ;; not autoload it.
+  (defvar hide-mode-line-mode nil)
+  :init
+  (setq popper-display-control nil
+        popper-reference-buffers
+        (list (lambda (buf)
+                (with-current-buffer buf
+                  (bound-and-true-p doom-popup-buffer-mode)))))
+  :config
+  (popper-mode 1))
+
+(use-package doom-popup
+  :straight (:type git
+             :host gitlab
+             :repo "crumbtoo/doom-popup"))
+
+(provide 'syd/popups)