[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0bad922 083/272: Provide the :caller in most calls to ivy-
From: |
Oleh Krehel |
Subject: |
[elpa] master 0bad922 083/272: Provide the :caller in most calls to ivy-read |
Date: |
Mon, 25 Apr 2016 10:13:18 +0000 |
branch: master
commit 0bad92237cb48f3cdd6dc7a7f54bfda5c2dd7a83
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
Provide the :caller in most calls to ivy-read
---
counsel.el | 29 +++++++++++++++++++----------
ivy.el | 9 ++++++---
2 files changed, 25 insertions(+), 13 deletions(-)
diff --git a/counsel.el b/counsel.el
index 25ebf98..d5eadbd 100644
--- a/counsel.el
+++ b/counsel.el
@@ -971,7 +971,8 @@ Usable with `ivy-resume', `ivy-next-line-and-call' and
(ivy-read "Load custom theme: "
(mapcar 'symbol-name
(custom-available-themes))
- :action #'counsel--load-theme-action))
+ :action #'counsel--load-theme-action
+ :caller 'counsel-load-theme))
(defvar rhythmbox-library)
(declare-function rhythmbox-load-library "ext:helm-rhythmbox")
@@ -1164,7 +1165,8 @@ Usable with `ivy-resume', `ivy-next-line-and-call' and
(delete-dups
(all-completions str 'org-tags-completion-function)))
:history 'org-tags-history
- :action 'counsel-org-tag-action))))
+ :action 'counsel-org-tag-action
+ :caller 'counsel-org-tag))))
;;;###autoload
(defun counsel-org-tag-agenda ()
@@ -1210,7 +1212,8 @@ INITIAL-INPUT can be given as the initial minibuffer
input."
:action #'counsel-git-grep-action
:unwind (lambda ()
(counsel-delete-process)
- (swiper--cleanup))))
+ (swiper--cleanup))
+ :caller 'counsel-ag))
;;;###autoload
(defun counsel-grep ()
@@ -1288,7 +1291,8 @@ INITIAL-INPUT can be given as the initial minibuffer
input."
(let ((file-name (match-string 1 x)))
(find-file file-name)
(unless (string-match "pdf$" x)
- (swiper ivy-text)))))))
+ (swiper ivy-text)))))
+ :caller 'counsel-recoll))
(defvar tmm-km-list nil)
(declare-function tmm-get-keymap "tmm")
@@ -1387,7 +1391,8 @@ INITIAL-INPUT can be given as the initial minibuffer
input."
(let ((ivy-format-function #'counsel--yank-pop-format-function)
(ivy-height 5))
(ivy-read "kill-ring: " candidates
- :action 'counsel-yank-pop-action))))
+ :action 'counsel-yank-pop-action
+ :caller 'counsel-yank-pop))))
(defun counsel-yank-pop-action (s)
"Insert S into the buffer, overwriting the previous yank."
@@ -1433,7 +1438,8 @@ PREFIX is used to create the key."
(with-ivy-window
;; In org-mode, (imenu candidate) will expand child
node
;; after jump to the candidate position
- (imenu candidate))))))
+ (imenu candidate)))
+ :caller 'counsel-imenu)))
(defun counsel--descbinds-cands ()
(let ((buffer (current-buffer))
@@ -1491,8 +1497,8 @@ Describe the selected candidate."
(interactive)
(ivy-read "Bindings: " (counsel--descbinds-cands)
:action #'counsel-descbinds-action-describe
- :caller 'counsel-descbinds
- :history 'counsel-descbinds-history))
+ :history 'counsel-descbinds-history
+ :caller 'counsel-descbinds))
(ivy-set-actions
'counsel-descbinds
@@ -1522,7 +1528,8 @@ An extra action allows to switch to the process buffer."
:action
'(1
("o" counsel-list-processes-action-delete "kill")
- ("s" counsel-list-processes-action-switch "switch"))))
+ ("s" counsel-list-processes-action-switch "switch"))
+ :caller 'counsel-list-processes))
(defun counsel-git-stash-kill-action (x)
(when (string-match "\\([^:]+\\):" x)
@@ -1541,7 +1548,9 @@ for i in `git stash list --format=\"%gd\"`; do
git stash show -p $i | grep -H --label=\"$i\" \"$1\"
done") "\n" t)))
(ivy-read "git stash: " cands
- :action 'counsel-git-stash-kill-action)))))
+ :action 'counsel-git-stash-kill-action
+ :caller 'counsel-git-stash)))))
+
(provide 'counsel)
;;; counsel.el ends here
diff --git a/ivy.el b/ivy.el
index 6611c59..86e0bac 100644
--- a/ivy.el
+++ b/ivy.el
@@ -2482,7 +2482,8 @@ Skip buffers that match `ivy-ignore-buffers'."
:matcher #'ivy--switch-buffer-matcher
:preselect (buffer-name (other-buffer (current-buffer)))
:action #'ivy--switch-buffer-action
- :keymap ivy-switch-buffer-map))))
+ :keymap ivy-switch-buffer-map
+ :caller 'ivy-switch-buffer))))
;;;###autoload
(defun ivy-switch-buffer-other-window ()
@@ -2491,7 +2492,8 @@ Skip buffers that match `ivy-ignore-buffers'."
(ivy-read "Switch to buffer in other window: " 'internal-complete-buffer
:preselect (buffer-name (other-buffer (current-buffer)))
:action #'ivy--switch-buffer-other-window-action
- :keymap ivy-switch-buffer-map))
+ :keymap ivy-switch-buffer-map
+ :caller 'ivy-switch-buffer-other-window))
;;;###autoload
(defun ivy-recentf ()
@@ -2501,7 +2503,8 @@ Skip buffers that match `ivy-ignore-buffers'."
:action
(lambda (f)
(with-ivy-window
- (find-file f)))))
+ (find-file f)))
+ :caller 'ivy-recentf))
(defun ivy-yank-word ()
"Pull next word from buffer into search string."
- [elpa] master 20f11b7 159/272: New command ivy-occur-revert-buffer bound to "g", (continued)
- [elpa] master 20f11b7 159/272: New command ivy-occur-revert-buffer bound to "g", Oleh Krehel, 2016/04/25
- [elpa] master d8da9c4 188/272: counsel.el (counsel-mode): Allow use of describe-prefix-bindings, Oleh Krehel, 2016/04/25
- [elpa] master ab795d0 265/272: Don't highlight that match in the file name part, Oleh Krehel, 2016/04/25
- [elpa] master 255457a 177/272: Fixed counsel-list-processes-action-switch to use correct buffer., Oleh Krehel, 2016/04/25
- [elpa] master 48b5638 129/272: ivy.el (ivy-next-history-element): Don't add symbol bounds for file names, Oleh Krehel, 2016/04/25
- [elpa] master 41dfae6 194/272: ivy.el (ivy--format-function-generic): Fix doc, Oleh Krehel, 2016/04/25
- [elpa] master f0de338 198/272: ivy.el (ivy--directory-done): Fix when ivy-text is a dir, Oleh Krehel, 2016/04/25
- [elpa] master 67224c0 171/272: counsel.el (counsel-prompt-function): New defcustom, Oleh Krehel, 2016/04/25
- [elpa] master 0c5f68c 183/272: counsel.el (counsel-pt): Add, Oleh Krehel, 2016/04/25
- [elpa] master 692002d 184/272: counsel.el (counsel-pt): Remove unused args, Oleh Krehel, 2016/04/25
- [elpa] master 0bad922 083/272: Provide the :caller in most calls to ivy-read,
Oleh Krehel <=
- [elpa] master dabd1f8 205/272: ivy.el (ivy-avy): Make "C-g" cancel gracefully, Oleh Krehel, 2016/04/25
- [elpa] master e8f2064 117/272: Rename counsel-symbol-at-point to ivy-thing-at-point, Oleh Krehel, 2016/04/25
- [elpa] master 8d04638 202/272: counsel.el: Fix breakage due to helm-rhythmbox, Oleh Krehel, 2016/04/25
- [elpa] master 6ae91f7 213/272: Make ivy-set-sources work also for sync completion, Oleh Krehel, 2016/04/25
- [elpa] master f7c7114 037/272: ivy-test.el (ivy--regex-ignore-order): New test, Oleh Krehel, 2016/04/25
- [elpa] master 1088078 266/272: When selecting a non-existing key in an alist, return that key, Oleh Krehel, 2016/04/25
- [elpa] master 341b5a2 229/272: counsel-grep should pick candidates closest to point, Oleh Krehel, 2016/04/25
- [elpa] master d71b5c5 081/272: swiper.el (swiper--action): Update regexp-search-ring, Oleh Krehel, 2016/04/25
- [elpa] master e1c156b 074/272: ivy.el (ivy--resize-minibuffer-to-fit): Check frame-root-window-p, Oleh Krehel, 2016/04/25
- [elpa] master ebd3e29 089/272: swiper.el (swiper--update-input-ivy): Fix a bug, Oleh Krehel, 2016/04/25