Tweak `org-table-copy-down'

Now <S-return> will do its regular thing /in/ a table, but will also work
/outside/ a table as a regular <return>.

2 files changed, 11 insertions, 2 deletions

@@ -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
+         "<S-return>" 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))
 
@@ -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)