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)
|
(interactive)
|
||||||
(spacemacs/sort-lines -1))
|
(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
|
;; BEGIN linum mouse helpers
|
||||||
|
|
||||||
(defvar spacemacs-linum-mdown-line nil
|
(defvar spacemacs-linum-mdown-line nil
|
||||||
|
|
|
@ -435,6 +435,8 @@
|
||||||
"xjl" 'set-justification-left
|
"xjl" 'set-justification-left
|
||||||
"xjn" 'set-justification-none
|
"xjn" 'set-justification-none
|
||||||
"xjr" 'set-justification-right
|
"xjr" 'set-justification-right
|
||||||
|
"xlc" 'spacemacs/sort-lines-by-column
|
||||||
|
"xlC" 'spacemacs/sort-lines-by-column-reverse
|
||||||
"xld" 'spacemacs/duplicate-line-or-region
|
"xld" 'spacemacs/duplicate-line-or-region
|
||||||
"xls" 'spacemacs/sort-lines
|
"xls" 'spacemacs/sort-lines
|
||||||
"xlS" 'spacemacs/sort-lines-reverse
|
"xlS" 'spacemacs/sort-lines-reverse
|
||||||
|
|
Loading…
Reference in a new issue