git » emacs.d.git » commit d52c538

diff --git a/init.el b/init.el
index 0f79db1..5e2f1e6 100644
--- a/init.el
+++ b/init.el
@@ -73,8 +73,34 @@
   :config
   (global-company-mode))
 
+(use-package consult
+  ;; TODO Figure out how to configure and use consult.
+  )
+
 (use-package csv-mode)
 (use-package dockerfile-mode)
+
+(use-package embark
+  :ensure t
+  :bind
+  (("C-=" . embark-act))
+  :init
+  ;; Optionally replace the key help with a completing-read interface
+  (setq prefix-help-command #'embark-prefix-help-command)
+  :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)))))
+
+(use-package embark-consult
+  :ensure t ; only need to install it, embark loads it after consult if found
+  :hook
+  (embark-collect-mode . consult-preview-at-point-mode))
+
+(use-package consult-flycheck)
+
 (use-package flycheck)
 (use-package git-timemachine)
 (use-package js2-mode)
@@ -84,6 +110,7 @@
 (use-package org)
 (use-package smartparens)
 
+
 (use-package meow
   :config
   (setq meow-cheatsheet-layout meow-cheatsheet-layout-colemak)
@@ -94,9 +121,11 @@
    '("<escape>" . ignore))
   (meow-leader-define-key
    '("SPC" . execute-extended-command)
+   '("." . embark-act)
    '("?" . meow-cheatsheet)
    '("p" . meow-paren-mode)
    '("a" . avy-goto-char-timer)
+   '("G" . magit-status)
    '("f" . meow-page-down)
    '("b" . meow-page-up)
    ;; To execute the originally e in MOTION state, use SPC e.
@@ -191,3 +220,4 @@
     '("S" . sp-splice-sexp)
     '("u" . meow-undo))
   (meow-global-mode 1))
+