branch: externals/objed
commit 4bb1b90a7333d5b3aaa020301c78a94349bf14e8
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Add url object
---
objed-objects.el | 10 ++++++++++
objed.el | 1 +
2 files changed, 11 insertions(+)
diff --git a/objed-objects.el b/objed-objects.el
index 6c5a6f0..5fb40ad 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1635,6 +1635,16 @@ comments."
:try-prev
(re-search-backward "@" nil t))
+(objed-define-object nil url
+ :get-obj
+ (bounds-of-thing-at-point 'url)
+ :try-next
+ (re-search-forward "http"
+ nil t)
+ :try-prev
+ (re-search-backward "http"
+ nil t))
+
(objed-define-object nil page
:atp
(looking-at page-delimiter)
diff --git a/objed.el b/objed.el
index 0138e89..9358cd0 100644
--- a/objed.el
+++ b/objed.el
@@ -911,6 +911,7 @@ To define new operations see `objed-define-op'.")
(define-key map "t" 'objed-tag-object)
(define-key map "f" 'objed-file-object)
(define-key map "m" 'objed-mail-object)
+ (define-key map "u" 'objed-url-object)
(define-key map "*" 'objed-section-object)
(define-key map "l" 'objed-page-object)
