From 43fdc47e893d0655d32c2f254d1432c10a366fba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Mon, 8 Sep 2025 11:53:25 -0600
Subject: [PATCH] feat(emacs): popups

---
 modules/home/users/msyds/emacs/init.el        |  3 +-
 .../home/users/msyds/emacs/lisp/syd/popups.el | 28 +++++++++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 modules/home/users/msyds/emacs/lisp/syd/popups.el

diff --git a/modules/home/users/msyds/emacs/init.el b/modules/home/users/msyds/emacs/init.el
index 83551fc..4cb5535 100644
--- a/modules/home/users/msyds/emacs/init.el
+++ b/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
diff --git a/modules/home/users/msyds/emacs/lisp/syd/popups.el b/modules/home/users/msyds/emacs/lisp/syd/popups.el
new file mode 100644
index 0000000..74b4996
--- /dev/null
+++ b/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)