From 1622ac38772868d101e48107591db8f4700627c4 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 5 Sep 2023 00:14:03 +1000 Subject: A few changes - add dedicate-windows-by-modes as window-configuration-change-hook, but it did not work well when used on gnus-summary-mode - copying gnus article regions also copies links, which are appended at the end of the copy as footnote - overload org-id-store-link so that capturing today's work could include the item priority - org should open a gnus link in other-window - fixing my-org-clean-up-entry so that it deletes trailing empty lines - added a silly utility function to clean a red energy bill pay link --- emacs/.emacs.d/init/ycp-buffer.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'emacs/.emacs.d/init/ycp-buffer.el') diff --git a/emacs/.emacs.d/init/ycp-buffer.el b/emacs/.emacs.d/init/ycp-buffer.el index bb8b1dd..6096869 100644 --- a/emacs/.emacs.d/init/ycp-buffer.el +++ b/emacs/.emacs.d/init/ycp-buffer.el @@ -141,6 +141,7 @@ (my-package window (require 'time) (require 'my-buffer) + (add-hook 'window-configuration-change-hook 'my-dedicate-windows-by-modes) (setq display-buffer-alist `(;; no window ("\\`\\*Async Shell Command\\*\\'" @@ -155,9 +156,9 @@ (window-parameters . ((mode-line-format . none)))) ;; bottom buffer (NOT side window) ((or . (,(my-buffer-make-display-matcher - '(flymake-diagnostics-buffer-mode - flymake-project-diagnostics-mode - messages-buffer-mode backtrace-mode)) + '(flymake-diagnostics-buffer-mode + flymake-project-diagnostics-mode + messages-buffer-mode backtrace-mode)) "\\*\\(Warnings\\|Compile-Log\\|Org Links\\)\\*" ,world-clock-buffer-name)) (display-buffer-reuse-mode-window display-buffer-at-bottom) @@ -202,7 +203,7 @@ "\\*\\(Man\\|woman\\).*" "\\*shell\\*.*")) (display-buffer-same-window)) -)) + )) (setq switch-to-buffer-in-dedicated-window 'pop) (setq window-combination-resize nil) -- cgit v1.2.3