[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 9f7f6e5 23/34: Improve include commands to also c
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 9f7f6e5 23/34: Improve include commands to also cover punctuation and constituents |
Date: |
Mon, 15 Mar 2021 22:21:11 -0400 (EDT) |
branch: externals/objed
commit 9f7f6e5b4164a33dd33cc57595bcd904083f98bd
Author: Clemens Radermacher <clemera@posteo.net>
Commit: Clemens Radermacher <clemera@posteo.net>
Improve include commands to also cover punctuation and constituents
---
objed.el | 31 ++++++++++++++++++++-----------
1 file changed, 20 insertions(+), 11 deletions(-)
diff --git a/objed.el b/objed.el
index 94fb001..ae8cb6b 100644
--- a/objed.el
+++ b/objed.el
@@ -817,8 +817,8 @@ BEFORE and AFTER are forms to execute before/after calling
the command."
(define-key map "@" 'objed-extend)
;; TODO: second + include more
- (define-key map "+" 'objed-include-trailing-ws)
- ;; (define-key map "" 'objed-include-leading-ws)
+ (define-key map "+" 'objed-include-forward)
+ ;; (define-key map "" 'objed-include-backward)
;; basic edit ops
(define-key map "k" 'objed-kill)
@@ -2400,18 +2400,27 @@ objed operation is used."
(objed--end))
t t)))
-(defun objed-include-trailing-ws ()
- "Include trailing ws for current object."
+(defun objed-include-forward ()
+ "Include trailing punctuation or whitespace of object."
(interactive)
- (objed--change-to
- :end (objed--skip-forward (objed--end) 'ws)))
+ (let ((end
+ (save-excursion
+ (goto-char (objed--end))
+ (when (= 0 (skip-syntax-forward "_."))
+ (objed--skip-ws))
+ (point))))
+ (objed--change-to :end end)))
-(defun objed-include-leading-ws ()
- "Include leading ws for current object."
+(defun objed-include-backward ()
+ "Include leading punctuation or whitespace of object."
(interactive)
- (objed--change-to
- :beg
- (objed--skip-backward (objed--beg) 'ws)))
+ (let ((beg
+ (save-excursion
+ (goto-char (objed--beg))
+ (when (= 0 (skip-syntax-backward "_."))
+ (objed--skip-ws 'back))
+ (point))))
+ (objed--change-to :beg beg)))
(defun objed-contents-object ()
"Switch to reference of an object.
- [elpa] externals/objed updated (01f0621 -> 70f9fb5), Stefan Monnier, 2021/03/15
- [elpa] externals/objed 02f579a 02/34: Fix docstring of objed-auto-init, Stefan Monnier, 2021/03/15
- [elpa] externals/objed c3106c9 13/34: Make note about changes even more promiment, Stefan Monnier, 2021/03/15
- [elpa] externals/objed dea5a64 14/34: Rephrase, Stefan Monnier, 2021/03/15
- [elpa] externals/objed a2bd06b 15/34: Autoload dired-jump, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 56d3906 21/34: Drop obsolete avy--process function, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 9d2ad56 25/34: Fix undo for objed-comment-duplicate, Stefan Monnier, 2021/03/15
- [elpa] externals/objed f4e7cab 24/34: Also allow prefix syntax for objed-include-backward, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 70f9fb5 34/34: Add notice for paused development, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 0f75d33 32/34: Fix compiler warnings, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 9f7f6e5 23/34: Improve include commands to also cover punctuation and constituents,
Stefan Monnier <=
- [elpa] externals/objed 2287436 19/34: Include possible active region when acting on multiple objects, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 9f565e4 30/34: Make transposing objects work with active region, Stefan Monnier, 2021/03/15
- [elpa] externals/objed e93dda7 33/34: Require cl-lib in all files, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 410a425 29/34: Refactor isearch handling and add missing commands, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 8dc1770 01/34: Stay on at boundary for M-[/] (Fix #68), Stefan Monnier, 2021/03/15
- [elpa] externals/objed 31c5ded 03/34: Add separate option for auto init behavior on buffer change, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 9bb3513 04/34: Fix differing initialization conditions, Stefan Monnier, 2021/03/15
- [elpa] externals/objed e046331 07/34: Implemented objed-local-mode (#72), Stefan Monnier, 2021/03/15
- [elpa] externals/objed e89d8da 06/34: Fix bytecompile and linting errors, Stefan Monnier, 2021/03/15
- [elpa] externals/objed f5ddab2 08/34: Update objed-exit-op: Check range was passed, Stefan Monnier, 2021/03/15