add sort-lines-by-column, -reverse funcs and keys

This commit is contained in:
duianto 2016-12-24 16:01:41 +01:00 committed by bmag
parent e14c29e1df
commit 04ded77199
2 changed files with 16 additions and 0 deletions

View File

@ -839,6 +839,20 @@ A non-nil argument sorts in reverse order."
(interactive)
(spacemacs/sort-lines -1))
(defun spacemacs/sort-lines-by-column (&optional reverse)
"Sort lines by the selected column.
A non-nil argument sorts in reverse order."
(interactive "P")
(let* ((region-active (or (region-active-p) (evil-visual-state-p)))
(beg (if region-active (region-beginning) (point-min)))
(end (if region-active (region-end) (point-max))))
(sort-columns reverse beg end)))
(defun spacemacs/sort-lines-by-column-reverse ()
"Sort lines by the selected column in reverse order."
(interactive)
(spacemacs/sort-columns -1))
;; BEGIN linum mouse helpers
(defvar spacemacs-linum-mdown-line nil

View File

@ -435,6 +435,8 @@
"xjl" 'set-justification-left
"xjn" 'set-justification-none
"xjr" 'set-justification-right
"xlc" 'spacemacs/sort-lines-by-column
"xlC" 'spacemacs/sort-lines-by-column-reverse
"xld" 'spacemacs/duplicate-line-or-region
"xls" 'spacemacs/sort-lines
"xlS" 'spacemacs/sort-lines-reverse