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)