add sort-lines-by-column, -reverse funcs and keys
This commit is contained in:
parent
e14c29e1df
commit
04ded77199
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue