[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 8c50b53 032/216: Cleanup indent commands
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 8c50b53 032/216: Cleanup indent commands |
Date: |
Tue, 8 Jan 2019 12:29:06 -0500 (EST) |
branch: externals/objed
commit 8c50b53de340bb614942e51a56543bd5b28e1974
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Cleanup indent commands
---
objed.el | 27 +++++++++++----------------
1 file changed, 11 insertions(+), 16 deletions(-)
diff --git a/objed.el b/objed.el
index 9d9b92c..ed763b0 100644
--- a/objed.el
+++ b/objed.el
@@ -693,6 +693,7 @@ object as an argument."
(define-key map (kbd "TAB")
;; dont exit
(objed-define-op nil objed-indent ignore))
+ (define-key map (kbd "C-x TAB") 'objed-indent-rigidly)
(define-key map ";"
(objed-define-op nil objed-comment-or-uncomment-region))
@@ -2069,7 +2070,7 @@ ARG is passed to `yank'. On repreat `yank-pop'."
(defun objed-indent (beg end)
"Indent region between BEG and END.
-Moves point over any whitespace afterwards."
+ Moves point over any whitespace afterwards."
(interactive "r")
(indent-region beg end)
(objed--switch-to 'region))
@@ -2077,8 +2078,8 @@ Moves point over any whitespace afterwards."
(defun objed--indent (f &optional arg)
"Execute indent function F.
-If arg is given pass it on to the indent function. Switches
-temporary to `objed--indent-map'"
+ If arg is given pass it on to the indent function. Switches
+ temporary to `objed--indent-map'"
;; init
(unless (memq last-command
objed--indent-commands)
@@ -2107,23 +2108,17 @@ temporary to `objed--indent-map'"
(interactive)
(objed--indent #'indent-rigidly-left-to-tab-stop))
-(defun objed-indent-to-right-tab-stop (arg)
+(defun objed-indent-to-right-tab-stop ()
"Indent all lines in object rightward to a tab stop."
- (interactive "p")
+ (interactive)
(objed--indent #'indent-rigidly-right-to-tab-stop))
-(defun objed-indent-rigidly (arg)
+(defun objed-indent-rigidly (beg end &optional arg)
"Similar to `indent-rigidly' but work on current object lines."
- (interactive "P")
- (goto-char (objed--beg))
- (push-mark (objed--end) t)
- (when arg
- (indent-rigidly (point) (region-end)
- (prefix-numeric-value arg))
- (setq deactivate-mark nil))
- (message
- (substitute-command-keys objed--indent-map-message))
- (set-transient-map objed--indent-map t))
+ (interactive "r\nP")
+ (if arg
+ (objed--indent #'indent-rigidly (prefix-numeric-value arg))
+ (objed--indent #'ignore)))
(defun objed-narrow (&optional arg)
"Narrow to object.
- [elpa] externals/objed 34a0031 015/216: Fix init if no object found after movement., (continued)
- [elpa] externals/objed 34a0031 015/216: Fix init if no object found after movement., Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4dd671e 010/216: Improve Readme, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e17bd00 003/216: Slow down screencasts, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 56579a4 025/216: Update documentation for copy and yank, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 98f4c47 026/216: Fix docs, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 3958d8a 020/216: Improve sentence object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a67c5b9 013/216: Conform to package guidelines, Stefan Monnier, 2019/01/08
- [elpa] externals/objed caf6a96 029/216: Further improve indent commands, change some bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 2232a85 030/216: Add some bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 33136a6 034/216: Add melpa notice, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8c50b53 032/216: Cleanup indent commands,
Stefan Monnier <=
- [elpa] externals/objed f7ef787 036/216: Add move/indent descriptions, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 781adf8 044/216: Improve syntax object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9c9797b 039/216: Add melpa badge, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ae9f965 041/216: Fixes #9, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 630d2de 028/216: Improve/add indentation commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 61bb3eb 031/216: Fixup bindings and docs, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ca32294 038/216: Ensure value for cursor color, #5, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 430d858 037/216: Add more command to move objects around and change bindings for them, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 64dc38b 035/216: More on indent/move commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d5dd1d0 045/216: Fix function name, Stefan Monnier, 2019/01/08