[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/mheerdegen-preview 7de5824 23/32: WIP: Improvise eldoc su
From: |
Michael Heerdegen |
Subject: |
[elpa] scratch/mheerdegen-preview 7de5824 23/32: WIP: Improvise eldoc support for search pattern prompt |
Date: |
Sat, 20 Oct 2018 18:19:01 -0400 (EDT) |
branch: scratch/mheerdegen-preview
commit 7de58240059831f4cebbfcb3bc1fca82e8cd963b
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
WIP: Improvise eldoc support for search pattern prompt
---
packages/el-search/el-search.el | 26 +++++++++++++++++++++++++-
1 file changed, 25 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index cb9bcd4..db62e84 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -916,6 +916,28 @@ nil."
(timer-set-time el-search--mb-hints-timer (time-add (current-time)
el-search-mb-hints-delay))
(timer-activate el-search--mb-hints-timer)))
+(defun el-search-eldoc-documentation-function ()
+ (when (catch 'result
+ (save-excursion
+ (while (condition-case nil
+ (progn (backward-up-list)
+ (if (el-search-looking-at '`(,(or 'pred 'guard)
. ,_))
+ (throw 'result nil)
+ t))
+ (scan-error nil)))
+ t))
+ (pcase-let (((and current-fsym `(,fnsym ,index))
+ (elisp--fnsym-in-current-sexp)))
+ (defvar el-search--pcase-macros) ;defined later
+ (let (pattern-def help)
+ (and fnsym
+ (setq pattern-def (cdr (assoc fnsym el-search--pcase-macros)))
+ (setq help (help-split-fundoc (documentation pattern-def) fnsym))
+ (elisp--highlight-function-argument
+ current-fsym
+ (format "%s" (cdar (read-from-string (car help))))
+ index (concat (symbol-name fnsym) ": ")))))))
+
(defvar el-search--this-session-match-count-data nil)
(defun el-search-read-pattern-setup-mb-hints ()
@@ -923,7 +945,9 @@ nil."
(setq el-search--this-session-match-count-data nil)
(when (timerp el-search--mb-hints-timer) (cancel-timer
el-search--mb-hints-timer))
(setq el-search--mb-hints-timer nil)
- (add-hook 'post-command-hook #'el-search-read-pattern-trigger-mb-hints t
t)))
+ (add-hook 'post-command-hook #'el-search-read-pattern-trigger-mb-hints t
t))
+ (add-function :before-until (local 'eldoc-documentation-function)
+ #'el-search-eldoc-documentation-function))
(defvar el-search--search-pattern-1-do-fun nil)
(defvar el-search--busy-animation
- [elpa] scratch/mheerdegen-preview 5b994a5 17/32: WIP [el-search] Fix C-j with numeric arg in error case, (continued)
- [elpa] scratch/mheerdegen-preview 5b994a5 17/32: WIP [el-search] Fix C-j with numeric arg in error case, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 54e3b67 16/32: WIP: Optimize caching, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 3aa418f 20/32: WIP: Improvements for change and changed, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 8c8e364 30/32: WIP: Small fix in 'el-search--reset-wrap-flag', Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 009dc4d 32/32: WIP: [el-search] Enhance doc of el-search-occur-mode, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 4ce7e1d 06/32: WIP: Add el-search-hi-lock.el, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview e4bf180 25/32: WIP: [el-search] Some minor tweaks, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview df185f6 24/32: WIP: Test: Make mouse clicks not abort the search, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview a1b1039 21/32: WIP: More colorful match count, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 654133c 26/32: WIP: Don't initially fold occur buffer, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 7de5824 23/32: WIP: Improvise eldoc support for search pattern prompt,
Michael Heerdegen <=
- [elpa] scratch/mheerdegen-preview 0275476 09/32: WIP: qr: Make shown replacement editable and ediffable; r twice restores match; stop for problematic comments, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 62fc5c5 14/32: WIP [el-search] Minibuffer hints when entering pattern, Fix case when search pattern fails for some sexps, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview a0b93f3 13/32: WIP [el-search] Discourage using symbols as LPATS in `append' and `l', Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 2fd5340 28/32: WIP: Add alarm-clock.el, Michael Heerdegen, 2018/10/20