org/org: replace C-S-{j,k} w/ org-meta{up,down}

This commit is contained in:
Henrik Lissner 2017-11-06 00:09:15 +01:00
parent 4c7a3762cf
commit 4cb569a766
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 3 additions and 16 deletions

View file

@ -199,7 +199,7 @@ wrong places)."
((memq type '(table table-row))
(pcase direction
('below (org-table-insert-row t))
('above (+org/table-prepend-row-or-shift-up))))
('above (org-shiftmetadown))))
((memq type '(headline inlinetask))
(let ((level (if (eq (org-element-type context) 'headline)

View file

@ -51,16 +51,3 @@ re-align the table if necessary. (Necessary because org-mode has a
(interactive)
(if (org-at-table-p) (org-shiftmetaright) (org-shiftmetaleft)))
;;;###autoload
(defun +org/table-append-row-or-shift-down ()
(interactive)
(org-shiftmetadown)
(when (org-at-table-p) (org-metadown)))
;;;###autoload
(defun +org/table-prepend-row-or-shift-up ()
(interactive)
(if (org-at-table-p)
(org-shiftmetadown)
(org-shiftmetaup)))

View file

@ -168,8 +168,8 @@ between the two."
;; Expand tables (or shiftmeta move)
:ni "C-S-l" #'+org/table-append-field-or-shift-right
:ni "C-S-h" #'+org/table-prepend-field-or-shift-left
:ni "C-S-k" #'+org/table-prepend-row-or-shift-up
:ni "C-S-j" #'+org/table-append-row-or-shift-down
:ni "C-S-k" #'org-metaup
:ni "C-S-j" #'org-metadown
:n [tab] #'+org/toggle-fold
:i [tab] #'+org/indent-or-next-field-or-yas-expand