diff options
| author | Yuchen Pei <id@ypei.org> | 2023-09-05 00:14:03 +1000 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2023-09-05 00:14:03 +1000 |
| commit | 1622ac38772868d101e48107591db8f4700627c4 (patch) | |
| tree | d026b120b2cf15e90a9da62df26b6e646085f7f4 /emacs/.emacs.d/init/ycp-org.el | |
| parent | 7e6e98e5683f2b0d8d335f53100b6b3623823df3 (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/ycp-org.el')
| -rw-r--r-- | emacs/.emacs.d/init/ycp-org.el | 7 |
1 files changed, 6 insertions, 1 deletions
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) |