mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

org-sort: Call org-sort-* functions non-interactively

Browse source 
* lisp/org.el (org-sort): Use funcall instead of org-call-with-arg,
and make WITH-CASE an optional argument.
* lisp/org-table.el (org-table-sort-lines): Make WITH-CASE an optional
argument.
This commit is contained in:
Kyle Meyer 2017-05-08 11:13:19 -04:00
parent f4fca13598
commit c1addc8252
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-table.el
View file

@ -1639,7 +1639,7 @@ In particular, this does handle wide and invisible characters."
dline -1 dline)))) dline -1 dline))))
;;;###autoload ;;;###autoload
(defun org-table-sort-lines (with-case &optional sorting-type getkey-func compare-func) (defun org-table-sort-lines (&optional with-case sorting-type getkey-func compare-func)
"Sort table lines according to the column at point. "Sort table lines according to the column at point.
The position of point indicates the column to be used for The position of point indicates the column to be used for

11
lisp/org.el
View file

@ -8845,15 +8845,14 @@ with the original repeater."
;;; Outline Sorting ;;; Outline Sorting
(defun org-sort (with-case) (defun org-sort (&optional with-case)
"Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'. "Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'.
Optional argument WITH-CASE means sort case-sensitively." Optional argument WITH-CASE means sort case-sensitively."
(interactive "P") (interactive "P")
(cond (funcall (cond ((org-at-table-p) #'org-table-sort-lines)
((org-at-table-p) (org-call-with-arg 'org-table-sort-lines with-case)) ((org-at-item-p) #'org-sort-list)
((org-at-item-p) (org-call-with-arg 'org-sort-list with-case)) (t #'org-sort-entries))
(t with-case))
(org-call-with-arg 'org-sort-entries with-case))))
(defun org-sort-remove-invisible (s) (defun org-sort-remove-invisible (s)
"Remove invisible part of links and emphasis markers from string S." "Remove invisible part of links and emphasis markers from string S."