diff options
| author | bd <bdunahu@operationnull.com> | 2024-05-30 11:51:31 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-05-30 11:51:53 -0600 |
| commit | 2a51cac38f7ca9f3caa4b7908d35308818097709 (patch) | |
| tree | 481af8a038253a3dc3ca11b22003e040864f74b5 /.config/emacs/modules | |
| parent | 465f6ce989b92b7aa4a3353be564c401b11bcae5 (diff) | |
Further refinement to shackle rules
Diffstat (limited to '.config/emacs/modules')
| -rw-r--r-- | .config/emacs/modules/bd--windows.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/.config/emacs/modules/bd--windows.el b/.config/emacs/modules/bd--windows.el index 8d5f410..b27c309 100644 --- a/.config/emacs/modules/bd--windows.el +++ b/.config/emacs/modules/bd--windows.el @@ -40,12 +40,12 @@ dedicated buffer will never be automatically orphaned." (defun bd/clamp (lower-bound upper-bound value) (max lower-bound (min value upper-bound))) -(defun set-frame-alpha (value) - "Sets the transparency of the frame background. 0=transparent/100=opaque" - (interactive "nTransparency Value (30 - 100 opaque): ") - (setq value (bd/clamp 30 100 value)) - (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)) - (message "Alpha set to %d" value)) +(defun set-frame-alpha (value)q + "Sets the transparency of the frame background. 0=transparent/100=opaque" + (interactive "nTransparency Value (30 - 100 opaque): ") + (setq value (bd/clamp 30 100 value)) + (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)) + (message "Alpha set to %d" value)) (add-to-list 'default-frame-alist '(alpha . (82 . 82))) @@ -98,10 +98,10 @@ dedicated buffer will never be automatically orphaned." :custom (shackle-rules '( ;; native - (compilation-mode :noselect t) + (compilation-mode :noselect t :align bottom :size 0.2) ;; info (Info-mode :select t :align left) - ("^\\*slime-description.*\\*$" :select t :align left) + ("^\\*slime-description.*\\*$" :regexp t :select t :align left) ;; repls (geiser-repl-mode :select t :align right) (slime-repl-mode :select t :align right) @@ -110,11 +110,12 @@ dedicated buffer will never be automatically orphaned." (".*shell.*\\*$" :regexp t :select t :align above :size 0.3) ("^\\*term.*\\*$" :regexp t :select t :align above :size 0.3) ;; magit - (magit-diff-mode :noselect t :size 0.3) + (magit-status-mode :select t :align bottom :size 0.3) + (magit-diff-mode :noselect t :align right :size 0.3) ;; emms (emms-playlist-mode :select t :align left :size 0.2) )) - (shackle-default-rule '(:select t :size 0.5))) + (shackle-default-rule '(:select t))) (provide 'bd--windows) |