aboutsummaryrefslogtreecommitdiff
path: root/emacs/.emacs.d/init
diff options
context:
space:
mode:
authorYuchen Pei <id@ypei.org>2023-09-05 00:14:03 +1000
committerYuchen Pei <id@ypei.org>2023-09-05 00:14:03 +1000
commit1622ac38772868d101e48107591db8f4700627c4 (patch)
treed026b120b2cf15e90a9da62df26b6e646085f7f4 /emacs/.emacs.d/init
parent7e6e98e5683f2b0d8d335f53100b6b3623823df3 (diff)
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
Diffstat (limited to 'emacs/.emacs.d/init')
-rw-r--r--emacs/.emacs.d/init/ycp-buffer.el9
-rw-r--r--emacs/.emacs.d/init/ycp-gnus.el6
-rw-r--r--emacs/.emacs.d/init/ycp-markup.el2
-rw-r--r--emacs/.emacs.d/init/ycp-org.el7
-rw-r--r--emacs/.emacs.d/init/ycp-prog.el2
-rw-r--r--emacs/.emacs.d/init/ycp-web.el2
6 files changed, 19 insertions, 9 deletions
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)
diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index e104d25..fd15e7f 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -80,6 +80,7 @@
gnus-browse-mode-hook))
(add-hook mode #'hl-line-mode))
(require 'my-gnus)
+ (require 'my-buffer)
(my-setq-from-local my-gnus-inbox-group
my-gnus-group-alist)
(my-keybind global-map
@@ -165,8 +166,9 @@
(my-package gnus-art
(setq gnus-inhibit-images t)
(setq gnus-treat-display-smileys nil)
- (setq gnus-article-x-face-too-ugly ".*")) ; all images in headers are outright
- ; annoying---disabled!
+ (setq gnus-article-x-face-too-ugly ".*")
+ (my-keybind gnus-article-mode-map
+ "M-w" #'my-gnus-article-copy-region))
;;; gnus-desktop-notify
(my-package gnus-desktop-notify
(:delay 30)
diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index d4879dd..843accd 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -72,7 +72,7 @@
(my-keybind wiki-mode-map
"C-'" #'my-wiki-grok-wikipedia)
(my-setq-from-local wiki-sites)
- (define-wiki-site-commands))
+ (wiki-define-site-commands))
(my-package ledger-mode
(:install t)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index 2f93b3d..b9ccef4 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -213,7 +213,9 @@
(setq org-capture-templates
`(("w" "Today's work" checkitem
(file+headline org-default-notes-file "Today's work")
- "- [ ] %a%?"
+ ;; the :priority link prop requires overloading
+ ;; `org-id-store-link' below to work
+ "- [ ] [#%:priority] %a%?"
:prepend t)
("j" "Journal" entry
(file+olp+datetree ,(my-get-from-local my-org-journal-file))
@@ -303,6 +305,7 @@
'(("User commands")
("T" . my-org-swap-referral-with-headline)
("D" . my-org-clean-up-entry)
+ ("g" . org-delete-property)
("W" . my-org-refile-logbook)
("+" . my-org-vote-up)
("-" . my-org-vote-down)
@@ -425,6 +428,7 @@
(my-package ol
(:delay 10)
(require 'my-buffer)
+ (advice-add 'org-gnus-no-new-news :before 'my-org-gnus-other-window-advice)
(add-to-list 'org-link-frame-setup
(cons 'file 'my-find-file-maybe-other-window))
)
@@ -450,6 +454,7 @@
(my-override org-open-at-point-global)
(my-override org-refile-get-targets)
(my-override org-insert-last-stored-link)
+ (my-override org-id-store-link)
(org-link-set-parameters "info" :follow #'my-org-info-open-new-window)
(org-link-set-parameters "rt" :follow #'my-org-rt-open-new-window)
(my-override org-src--make-source-overlay)
diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el
index d3373d9..78bdd88 100644
--- a/emacs/.emacs.d/init/ycp-prog.el
+++ b/emacs/.emacs.d/init/ycp-prog.el
@@ -235,7 +235,7 @@
)
;;; debugger
-(my-package debugger
+(my-package debug
(my-override debugger-quit))
(my-package inf-lisp
diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index 5c96e43..dcaa3eb 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -159,6 +159,8 @@
(add-to-list 'load-path (locate-user-emacs-file "lisp/mastodon.el/lisp"))
(my-package mastodon
(my-setq-from-local mastodon-active-user mastodon-instance-url)
+ ;; auto fill is a bit glitchy when composing a toot
+ (add-hook 'mastodon-toot-mode-hook (lambda () (turn-off-auto-fill)))
(mastodon))
(add-to-list 'load-path (locate-user-emacs-file "lisp/servall/lisp"))