[elpa] externals/objed 22392cf 099/216: Add whitepsace objects, fixes #2

[Stefan Monnier]

branch: externals/objed
commit 22392cfa76e4b1ede845e29deadd43b200ea74fb
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Add whitepsace objects, fixes #2
---
 objed-objects.el | 32 ++++++++++++++++++++++++++++++++
 objed.el         |  4 ++++
 2 files changed, 36 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index 5e59125..1c124be 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1254,6 +1254,38 @@ property list where each key has an associated progn."
    :end (if (eobp) (point) (1+ (point)))
    :iend (if (eobp) (point) (1+ (point)))))
 
+(objed-define-object nil trailing
+  :atp
+  (looking-at " ")
+  :get-obj
+  (objed-make-object
+   :beg (point)
+   :ibeg (point)
+   :end (progn (goto-char (objed--end))
+               (objed--skip-ws) (point))
+   :iend (point))
+  :try-next
+  (when (search-forward " " nil t)
+    (forward-char -1))
+  :try-prev
+  (search-backward " " nil t))
+
+
+(objed-define-object nil leading
+  :atp
+  (looking-back " " (1- (point)))
+  :get-obj
+  (objed-make-object
+   :end  (point)
+   :iend (point)
+   :beg (progn (goto-char (objed--beg))
+               (objed--skip-ws t) (point))
+   :ibeg (point))
+  :try-next
+  (when (search-forward " " nil t)
+    (forward-char -1))
+  :try-prev
+  (search-backward " " nil t))
 
 (objed-define-object nil word
   :atp
diff --git a/objed.el b/objed.el
index 3cc2fc2..ea0b0f6 100644
--- a/objed.el
+++ b/objed.el
@@ -864,6 +864,10 @@ To define new operations see `objed-define-op'.")
     (define-key map "h" 'objed-buffer-object)
 
     (define-key map "z" 'objed-ace-object)
+
+    (define-key map "+" 'objed-trailing-object)
+    (define-key map "-" 'objed-leading-object)
+    
     ;;  handled by basic movement..
     ;; (define-key map "w" 'objed-word-object)
     ;; (define-key map "l" 'objed-line-object)