home

commit ba18d1eb18e432d55c6311193168e47d90b5faae
parent 22d5146fe858d6bb07c7eee0c98dfa54f802cafd
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Tue, 12 Jan 2021 09:26:29 +0100

tools/emacs: experimenting with embark

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/foo.el
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/tools/emacs/foo.el b/tools/emacs/foo.el
@@ -197,7 +197,6 @@ STYLES is a list of pattern matching methods that is passed to
          ("<tab>" . minibuffer-force-complete)))
 
 (use-package embark
-	     :ensure t
   :after minibuffer
   :config
   (setq embark-occur-initial-view-alist '((t . zebra)))
@@ -205,6 +204,8 @@ STYLES is a list of pattern matching methods that is passed to
   (setq embark-live-occur-update-delay 0.5)
   (setq embark-live-occur-initial-delay 0.8)
   (setq embark-annotator-alist '((t . embark-annotation-function-metadatum)))
+  (remove-hook 'minibuffer-setup-hook #'embark-live-occur-after-input)
+  (add-hook 'minibuffer-setup-hook #'embark-live-occur-after-delay)
   :hook (minibuffer-setup-hook . embark-live-occur-after-input)
   :bind (("C-," . embark-act)
          :map minibuffer-local-completion-map