[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/mheerdegen-preview aca1cea 10/33: WIP [el-search] Impleme
From: |
Michael Heerdegen |
Subject: |
[elpa] scratch/mheerdegen-preview aca1cea 10/33: WIP [el-search] Implement 'el-search-keyboard-quit' |
Date: |
Wed, 24 Oct 2018 18:30:47 -0400 (EDT) |
branch: scratch/mheerdegen-preview
commit aca1cea38ce10d4167761b57c2c57039dedad01b
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
WIP [el-search] Implement 'el-search-keyboard-quit'
---
packages/el-search/el-search.el | 38 +++++++++++++++++++++++++++++---------
1 file changed, 29 insertions(+), 9 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 30169fb..9728039 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -80,7 +80,8 @@
;; minibuffer). All commands that are not search or scrolling
;; commands terminate the search, while the state of the search is
;; always automatically saved. Like in isearch you can also just
-;; hit RET to exit.
+;; hit RET to exit, or hit C-g to abort and jump back to where you
+;; started.
;;
;; C-R, M-s e r (el-search-pattern-backward)
;; Search backward.
@@ -414,10 +415,6 @@
;;
;; TODO:
;;
-;; - There should be a way to go back to the starting position, like
-;; in Isearch, which does this with (push-mark isearch-opoint t) in
-;; `isearch-done'.
-;;
;; - Add a help command that can be called while searching.
;;
;; - Make searching work in comments, too? (->
@@ -677,6 +674,9 @@ useful for debugging.")
(defvar el-search--current-search nil
"The currently active search, an `el-search-object', or nil.")
+(defvar el-search--search-origin nil
+ "Doc...")
+
(defvar-local el-search--temp-buffer-flag nil
"Non-nil tags file visiting buffers as temporarily opened for searching.")
@@ -1780,10 +1780,24 @@ any case."
(interactive)
nil)
+(defun el-search--set-search-origin-maybe ()
+ (unless (el-search--pending-search-p)
+ (setq el-search--search-origin (copy-marker (point)))))
+
+(defun el-search-keyboard-quit (&optional dont-quit)
+ (interactive)
+ (setq el-search--success nil)
+ (el-search-hl-post-command-fun) ;clear highlighting
+ (switch-to-buffer (marker-buffer el-search--search-origin))
+ (goto-char el-search--search-origin)
+ (unless dont-quit
+ (signal 'quit nil)))
+
(defvar el-search-basic-transient-map
(let ((transient-map (make-sparse-keymap)))
- (define-key transient-map [return] #'el-search-pause-search)
- (define-key transient-map (kbd "RET") #'el-search-pause-search)
+ (define-key transient-map [return] #'el-search-pause-search)
+ (define-key transient-map (kbd "RET") #'el-search-pause-search)
+ (define-key transient-map [(control ?g)] #'el-search-keyboard-quit)
transient-map))
(defvar el-search-prefix-key-transient-map
@@ -1848,6 +1862,7 @@ any case."
(setq el-search-use-transient-map t))
(defun el-search-setup-search-1 (pattern get-buffer-stream &optional
from-here setup-function)
+ (el-search--set-search-origin-maybe)
(setq el-search--success nil)
(setq el-search--current-search
(el-search-make-search pattern get-buffer-stream))
@@ -2381,7 +2396,8 @@ created.")
(concat "[Not at a match] "
(if (= matches-<=-here total-matches)
(format "(%s/%s <-)" matches-<=-here
total-matches)
- (format "(-> %s/%s)" (1+ matches-<=-here)
total-matches))))))))))))
+ (format "(-> %s/%s)" (1+ matches-<=-here)
total-matches))))))))))
+ (when quit-flag (el-search-keyboard-quit 'dont-quit))))
(defun el-search-hl-other-matches (matcher)
"Highlight all visible matches.
@@ -2464,6 +2480,7 @@ In a non-interactive call, ARG should be an integer,
having the
same meaning as a numeric prefix arg, or an el-search-object to
make current."
(interactive "P")
+ (el-search--set-search-origin-maybe)
(when (integerp arg)
(el-search-barf-if-not-search-buffer
(current-buffer)
@@ -2570,6 +2587,8 @@ instead of the position where the search would normally be
continued."
(interactive "P")
(setq this-command 'el-search-pattern)
+ (unless (eq last-command this-command)
+ (el-search--set-search-origin-maybe))
(el-search-compile-pattern-in-search el-search--current-search)
(el-search-protect-search-head
(unwind-protect
@@ -2740,6 +2759,7 @@ executed, and nil else."
With prefix ARG, restart the current search when positive; go to the
last match in the current buffer when negative."
(interactive "P")
+ (el-search--set-search-origin-maybe)
(cond
((< (prefix-numeric-value arg) 0)
(el-search-last-buffer-match))
@@ -2757,7 +2777,7 @@ last match in the current buffer when negative."
(defun el-search-last-buffer-match ()
"Go to the last of this buffer's matches."
(interactive)
- (setq this-command 'el-search-pattern)
+ (el-search--set-search-origin-maybe)
(el-search-barf-if-not-search-buffer)
(el-search--unless-no-buffer-match
(goto-char (point-max))
- [elpa] scratch/mheerdegen-preview 3f656ab 11/33: WIP [el-search] Add quick help command, (continued)
- [elpa] scratch/mheerdegen-preview 3f656ab 11/33: WIP [el-search] Add quick help command, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 2d15aa7 22/33: WIP: [el-search] Fine tune separator for splicing replace, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 9cfe823 32/33: WIP: [el-search] Enhance doc of el-search-occur-mode, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview d774bfe 24/33: WIP: Test: Make mouse clicks not abort the search, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 1020ca9 16/33: WIP: Optimize caching, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview fadf6f9 05/33: WIP: New :key arg for "filename" and new pattern types "file" and "dir", Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 1fcb333 03/33: WIP: Add package "sscell", Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 35be4f8 12/33: WIP [el-search] Fix more "redundant _ pattern" cases, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview fa8dbb8 07/33: WIP: New file el-search/el-search-pp.el, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview ffd1bb1 13/33: WIP [el-search] Discourage using symbols as LPATS in `append' and `l', Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview aca1cea 10/33: WIP [el-search] Implement 'el-search-keyboard-quit',
Michael Heerdegen <=
- [elpa] scratch/mheerdegen-preview 9773b43 18/33: WIP [el-search] Fix search setup when occur flag bound, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 35edf10 23/33: WIP: Improvise eldoc support for search pattern prompt, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 08e0d20 15/33: WIP: Additions to "Mb hints", Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 60fd31c 19/33: WIP [el-search] Adjust prev/next match commands for search and occur, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview fb5a73b 30/33: WIP: Small fix in 'el-search--reset-wrap-flag', Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 86f4f18 17/33: WIP [el-search] Fix C-j with numeric arg in error case, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 1d22a6c 14/33: WIP [el-search] Minibuffer hints when entering pattern, Fix case when search pattern fails for some sexps, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 0e37f94 28/33: WIP: Add alarm-clock.el, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 6a048a7 26/33: WIP: Don't initially fold occur buffer, Michael Heerdegen, 2018/10/24
- [elpa] scratch/mheerdegen-preview 6de70fb 20/33: WIP: Improvements for change and changed, Michael Heerdegen, 2018/10/24