diff options
| author | bd <bdunahu@operationnull.com> | 2024-11-02 11:12:47 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-11-02 11:12:47 -0400 |
| commit | 0e971a7d8be33c208394d9b195985794284317a7 (patch) | |
| tree | 7e315b71d0238c694c71f98935be454db697aa44 /.config/emacs/modules/bd--buffers.el | |
| parent | 8d9ee9214ef7af86a1ab494c9e2276fe4e2db373 (diff) | |
read desc: eww visual fill, turn on recentf, custom scratch buffer...
eww visual fill, shackle default use same window, fix broken compilation mode output, turn on recentf, custom scratch buffer creation
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) |