From 2f35181b9ae81aba268a3770113a0482364ce8ea Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 19 Apr 2021 15:46:31 -0500 Subject: Tweak `org-table-copy-down' Now will do its regular thing /in/ a table, but will also work /outside/ a table as a regular . --- init.el | 3 ++- lisp/acdw-org.el | 10 +++++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index e8ec188..44bbefd 100644 --- a/init.el +++ b/init.el @@ -394,7 +394,8 @@ org-startup-truncated nil org-tags-column (- 0 fill-column -3) org-directory "~/org") - (:bind "RET" unpackaged/org-return-dwim) + (:bind "RET" unpackaged/org-return-dwim + "" acdw-org/org-table-copy-down) (add-hook 'before-save-hook #'acdw/hook--org-mode-fix-blank-lines) (advice-add 'org-delete-backward-char :override #'acdw-org/delete-backward-char)) diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index c4431ab..46497f6 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el @@ -212,7 +212,7 @@ appropriate. In tables, insert a new row or end the table." title) -;;; ADVICE +;;; ADVICE AND TWEAKS ;; Correct `org-delete-backward-char' to use `backward-delete-char-untabify' (defun acdw-org/delete-backward-char (N) @@ -236,4 +236,12 @@ the deletion might narrow the column." (backward-delete-char-untabify N) (org-fix-tags-on-the-fly)))) +(defun acdw-org/org-table-copy-down (n) + "Like `org-table-copy-down', except instead of erroring when + that command makes no sense, just call `org-return'." + (interactive "p") + (if (org-table-check-inside-data-field 'noerror) + (org-table-copy-down n) + (unpackaged/org-return-dwim n))) + (provide 'acdw-org) -- cgit 1.4.1-21-gabe81