[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 9558b39 098/216: Add ace char object
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 9558b39 098/216: Add ace char object |
Date: |
Tue, 8 Jan 2019 12:29:19 -0500 (EST) |
branch: externals/objed
commit 9558b39e391dad0c8c0c01b7eb384c7ffe9c7c48
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Add ace char object
---
objed-objects.el | 10 ++++++++++
objed.el | 1 +
test/tests.el | 6 +++---
3 files changed, 14 insertions(+), 3 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 419c309..5e59125 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -27,6 +27,7 @@
;; info for byte-comp
(declare-function avy--process "ext:avy")
(declare-function avy--style-fn "ext:avy")
+(declare-function avy-goto-char "ext:avy")
(declare-function sgml-skip-tag-backward "ext:sgml-mode")
(declare-function sgml-skip-tag-forward "ext:sgml-mode")
@@ -1244,6 +1245,15 @@ property list where each key has an associated progn."
:try-prev
(forward-char -1))
+(objed-define-object nil ace
+ :get-obj
+ (avy-goto-char (read-event "Ace to char: "))
+ (objed-make-object
+ :beg (point)
+ :ibeg (point)
+ :end (if (eobp) (point) (1+ (point)))
+ :iend (if (eobp) (point) (1+ (point)))))
+
(objed-define-object nil word
:atp
diff --git a/objed.el b/objed.el
index 8a6caa0..3cc2fc2 100644
--- a/objed.el
+++ b/objed.el
@@ -863,6 +863,7 @@ To define new operations see `objed-define-op'.")
(define-key map "l" 'objed-output-object)
(define-key map "h" 'objed-buffer-object)
+ (define-key map "z" 'objed-ace-object)
;; handled by basic movement..
;; (define-key map "w" 'objed-word-object)
;; (define-key map "l" 'objed-line-object)
diff --git a/test/tests.el b/test/tests.el
index eb3d088..3b9b1cb 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -1,8 +1,10 @@
(require 'ert)
(require 'cl-lib)
(require 'objed)
+;; activate on load
+(objed-mode 1)
-;; adapted from lispy-test.el
+;; defuns adapted from lispy-test.el
(defun objed--call-object-interactively (o &optional cmd)
(let* ((cmd (or cmd (objed--name2func o)))
@@ -78,8 +80,6 @@ Insert KEY if there's no command."
(switch-to-buffer temp-buffer)
(emacs-lisp-mode)
(transient-mark-mode 1)
- ;; activate objed
- (objed-mode 1)
(insert ,in)
(goto-char (point-min))
(when (search-forward "~" nil t)
- [elpa] externals/objed 7961536 113/216: Adjust textblock object again, (continued)
- [elpa] externals/objed 7961536 113/216: Adjust textblock object again, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 64ed598 130/216: Mark other instances if object command is called repeatedly, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 333a9d5 120/216: Fix not loading mc variable if mc is loaded late, Stefan Monnier, 2019/01/08
- [elpa] externals/objed fe5548c 138/216: Install advices for :commands after objed is loaded, fixes #21, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5b4bf3f 128/216: Get region command positions according to objed rules, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a246088 144/216: Merge pull request #23 from gergelypolonkai/defcustom-fixes, Stefan Monnier, 2019/01/08
- [elpa] externals/objed c846b15 141/216: Init only where C-n is bound to something other than next-line, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 50c2367 155/216: Mention move objects functionality, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f8af251 080/216: General cleanup, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 72053b7 109/216: Simplify macro usage again, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9558b39 098/216: Add ace char object,
Stefan Monnier <=
- [elpa] externals/objed 49082c7 167/216: Accept 1 as universal arg, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 185fe41 111/216: Remove unused lexical var, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8a74424 125/216: Optimize init/reset procedure, avoid unnecessary re-initialization, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9c1b350 067/216: Update link, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7abf5b3 091/216: Fixes #3, switch to remote object with '#', Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7ba5cb2 088/216: New until beg/end of buffer behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 22392cf 099/216: Add whitepsace objects, fixes #2, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f3efa0e 121/216: Don't let sentence object jump over to next comments/string, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 192217a 066/216: Add no-skip option and block object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a2df7ab 075/216: Stay active when using describe key in modal state, Stefan Monnier, 2019/01/08