From 4be2f17360573de69c6128278943a13cae36a5fb Mon Sep 17 00:00:00 2001
From: Alexander Heldt <me@alexanderheldt.se>
Date: Mon, 9 Oct 2023 21:49:09 +0200
Subject: [PATCH] pinwheel: Add `embark` to `emacs`

---
 hosts/pinwheel/modules/emacs/config.org | 28 +++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/hosts/pinwheel/modules/emacs/config.org b/hosts/pinwheel/modules/emacs/config.org
index 190dc01..2856feb 100644
--- a/hosts/pinwheel/modules/emacs/config.org
+++ b/hosts/pinwheel/modules/emacs/config.org
@@ -327,6 +327,34 @@ https://github.com/justbur/emacs-which-key
   :init
   (marginalia-mode))
 #+END_SRC
+** Embark
+#+BEGIN_SRC emacs-lisp
+(use-package embark
+  :bind
+  (("C-S-a" . embark-act)         ;; pick some comfortable binding
+   ("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
+
+  :init
+  ;; Optionally replace the key help with a completing-read interface
+  (setq prefix-help-command #'embark-prefix-help-command)
+
+  ;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc
+  ;; strategy, if you want to see the documentation from multiple providers.
+  (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
+  ;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
+
+  :config
+  ;; Hide the mode line of the Embark live/completions buffers
+  (add-to-list 'display-buffer-alist
+               '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
+                 nil
+                 (window-parameters (mode-line-format . none)))))
+
+;; Consult users will also want the embark-consult package.
+(use-package embark-consult
+  :hook
+  (embark-collect-mode . consult-preview-at-point-mode))
+#+END_SRC
 
 * Keybindings
 Setup prefix for keybindings.