From 7e6e98e5683f2b0d8d335f53100b6b3623823df3 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 2 Sep 2023 13:45:55 +1000 Subject: A few more org utilities, and small fixes in editing / goto places added my-org-swap-referral-with-headline added my-org-clean-up-entry fixed avy binding org capture todo: contain initial content (if any) in an example block --- emacs/.emacs.d/init/ycp-org.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'emacs/.emacs.d/init/ycp-org.el') diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el index 81f30ee..2f93b3d 100644 --- a/emacs/.emacs.d/init/ycp-org.el +++ b/emacs/.emacs.d/init/ycp-org.el @@ -230,7 +230,12 @@ :Referral: %a :END: -%i +%(unless (string-empty-p \"%i\") + (format + \"#+begin_example +%s +#+end_example\" + (org-escape-code-in-string \"%i\"))) " :prepend t) ("ya" "Blank audio" entry @@ -296,7 +301,8 @@ (setq org-use-speed-commands t) (setq org-speed-commands '(("User commands") - ("g" . org-delete-property) + ("T" . my-org-swap-referral-with-headline) + ("D" . my-org-clean-up-entry) ("W" . my-org-refile-logbook) ("+" . my-org-vote-up) ("-" . my-org-vote-down) -- cgit v1.2.3