msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): help popup config

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2025-12-20 13:59:27 -07:00
parent b46fd3ee6a
commit 6ff4721807
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/home/users/msyds/emacs/lisp/syd/popups.el
View File

@@ -7,12 +7,15 @@
"Ran upon display of a new popup buffer. The current buffer will be the "Ran upon display of a new popup buffer. The current buffer will be the
popup.") popup.")
(defvar syd-help-popup-options
'(:select t :size 0.42 :popup t :align bottom))
(use-package shackle (use-package shackle
:hook on-init-ui :hook on-init-ui
:custom ((shackle-default-size 0.33)) :custom ((shackle-default-size 0.33))
:config :config
(syd-push shackle-rules (syd-push shackle-rules
'("*Help*" :select t :size 0.42 :popup t :align bottom) `("*Help*" ,@syd-help-popup-options)
'("*Messages*" :select t :size 0.16 :popup t :align bottom)) '("*Messages*" :select t :size 0.16 :popup t :align bottom))
(defvar-local syd--new-popup-hook-ran nil) (defvar-local syd--new-popup-hook-ran nil)
(syd-defadvice syd--shackle-run-new-popup-hook-a (buffer _alist) (syd-defadvice syd--shackle-run-new-popup-hook-a (buffer _alist)