diff options
Diffstat (limited to '.config/emacs/modules/bd--buffers.el')
| -rw-r--r-- | .config/emacs/modules/bd--buffers.el | 31 |
1 files changed, 12 insertions, 19 deletions
diff --git a/.config/emacs/modules/bd--buffers.el b/.config/emacs/modules/bd--buffers.el index 9250870..8b07591 100644 --- a/.config/emacs/modules/bd--buffers.el +++ b/.config/emacs/modules/bd--buffers.el @@ -3,8 +3,6 @@ ;;; Code: -(require 'selector) - ;; dedication (defun toggle-current-window-dedication () "Adds or revokes dedicated window status from a buffer. A @@ -28,8 +26,7 @@ dedicated buffer will never be automatically orphaned." (follow-mode 1)) (defun set-frame-alpha (value) - "Sets the transparency of the frame background. 0=transparent/100=opaque -Due to a bug with guix-packaged emacs, only uses true-transparency on wayland." + "Sets the transparency of the frame background. 0=transparent/100=opaque." (interactive "nTransparency Value (30 - 100 opaque): ") (setq value (max 30 (min value 100))) (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)) @@ -43,35 +40,31 @@ Due to a bug with guix-packaged emacs, only uses true-transparency on wayland." (global-auto-revert-non-file-buffers t) (auto-revert-interval 30)) -(add-to-list 'display-buffer-alist - (cons "\\*Async Shell Command\\*.*" (cons #'display-buffer-no-window nil))) +(use-package visual-fill-column + :hook ((org-mode . visual-fill-column-mode) + (eww-after-render . visual-fill-column-mode)) + :custom + (visual-fill-column-center-text t) + (visual-fill-column-width 120)) + (use-package shackle :demand t :config (shackle-mode) :custom + (switch-to-buffer-obey-display-actions t) (shackle-rules '( ;; native (compilation-mode :select nil :align bottom :size 0.2) (completion-list-mode :select nil :align bottom :size 0.1) - ;; info - (help-mode :noselect t :align left :size 0.3) - (Info-mode :select t :align left :size 0.4) - ("^\\*slime-description.*\\*$" :regexp t :select t :align left) - ;; repls - (geiser-repl-mode :select t :align right) - (slime-repl-mode :select t :align right) - ;; shells - (".*eshell.*\\*$" :regexp t :select t :align above :size 0.3) - (".*shell.*\\*$" :regexp t :select t :align above :size 0.3) - ("^\\*term.*\\*$" :regexp t :select t :align above :size 0.3) - ;; magit + ("^\\*Async Shell Command\\*.*$" :regexp t :ignore t) + ;; magit (magit-status-mode :select t :align bottom :size 0.3) (magit-diff-mode :select nil :align right :size 0.3) ;; emms (emms-playlist-mode :select t :align left :size 0.2) )) - (shackle-default-rule '(:select t))) + (shackle-default-rule '(:same t :inhibit-window-quit t))) (provide 'bd--buffers) |