pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Move buffer-window management to ext

Browse source 
config-min.org should be a bare minimum environment to be able to
revive a broken emacs configuration, and should ideally never break.
This commit is contained in:
Puppet 2022-12-04 11:44:54 -06:00
parent 9507f489aa
commit 0f482a8af1
2 changed files with 67 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
config-ext.org
View file

@ -1,5 +1,72 @@
#+PROPERTY: header-args:emacs-lisp :tangle "~/.emacs.d/config-ext.el" :comments both
* buffer-window management
#+begin_src emacs-lisp
(setq switch-to-buffer-obey-display-actions t)
(add-to-list 'display-buffer-alist
`("COMMIT_EDITMSG"
display-buffer-in-side-window
(side . right)
(slot . 0)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . magit-status-mode)
display-buffer-in-side-window
(side . right)
(slot . 1)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . magit-log-mode)
display-buffer-in-side-window
(side . right)
(slot . 2)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 100)))
;; TODO: This should be fixed in future versions of emacs
(defun my/is-compilation-buffer (buffer &optional _rest)
(with-current-buffer buffer
(or compilation-minor-mode
(eq major-mode 'compilation-mode))))
;; TODO: Show multiple deadgrep buffers in side-window
(add-to-list 'display-buffer-alist
`((major-mode . deadgrep-mode)
display-buffer-in-side-window
(side . right)
(slot . 3)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 100)))
(add-to-list 'display-buffer-alist
`(my/is-compilation-buffer
display-buffer-in-side-window
(side . right)
(slot . 4)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . helpful-mode)
display-buffer-in-side-window
(side . right)
(slot . 5)
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . Info-mode)
display-buffer-in-side-window
(side . right)
(slot . 6)
(window-width . 80)))
;; (pop display-buffer-alist)
#+end_src
* Various tools
** ledger
#+begin_src emacs-lisp

66
config-min.org
View file

@ -1067,69 +1067,3 @@
browse-url-browser-function 'browse-url-generic
search-web-default-browser 'browse-url-generic))
#+end_src
* buffer-window management
#+begin_src emacs-lisp
(setq switch-to-buffer-obey-display-actions t)
(add-to-list 'display-buffer-alist
`("COMMIT_EDITMSG"
display-buffer-in-side-window
(side . right)
(slot . 0)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . magit-status-mode)
display-buffer-in-side-window
(side . right)
(slot . 1)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . magit-log-mode)
display-buffer-in-side-window
(side . right)
(slot . 2)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 100)))
(defun my/is-compilation-buffer (buffer)
(with-current-buffer buffer
(or compilation-minor-mode
(eq major-mode 'compilation-mode))))
;; TODO: Show multiple deadgrep buffers in side-window
(add-to-list 'display-buffer-alist
`((major-mode . deadgrep-mode)
display-buffer-in-side-window
(side . right)
(slot . 3)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 100)))
(add-to-list 'display-buffer-alist
`(my/is-compilation-buffer
display-buffer-in-side-window
(side . right)
(slot . 4)
(window-parameters . ((no-delete-other-windows . t)))
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . helpful-mode)
display-buffer-in-side-window
(side . right)
(slot . 5)
(window-width . 80)))
(add-to-list 'display-buffer-alist
`((major-mode . Info-mode)
display-buffer-in-side-window
(side . right)
(slot . 6)
(window-width . 80)))
;; (pop display-buffer-alist)
#+end_src