From e5bc56ab9fd6da3cdbad00cd38d4534e32471780 Mon Sep 17 00:00:00 2001
From: Jakub Czajka <jakub@ekhem.eu.org>
Date: Fri, 23 Dec 2022 17:41:28 +0100
Subject: [PATCH] [emacs] Configure consult.

`completing-read` is the standard emacs function for reading
input. Consult extends `completing-read` based on the context in which
it runs.
---
 conf/home/emacs.scm                      | 11 +++++++
 emacs/.config/emacs/conf/conf-consult.el | 40 ++++++++++++++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 emacs/.config/emacs/conf/conf-consult.el

diff --git a/conf/home/emacs.scm b/conf/home/emacs.scm
index 0b26c69..5dedf4a 100644
--- a/conf/home/emacs.scm
+++ b/conf/home/emacs.scm
@@ -9,6 +9,7 @@
   #:use-module (gnu home services shepherd)
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages emacs-xyz)
+  #:use-module (gnu packages rust-apps)
   #:use-module (gnu services)
   #:use-module (guix gexp)
   #:export (emacs-services))
@@ -29,6 +30,15 @@
 	    (dotfiles
 	     (list "emacs/.config/emacs/conf/conf-calendar.el")))))
 
+(define emacs-consult-service
+  (service home-program-service-type
+	   (home-program-configuration
+	    (packages
+	     (list emacs-consult
+		   ripgrep))
+	    (dotfiles
+	     (list "emacs/.config/emacs/conf/conf-consult.el")))))
+
 (define emacs-daemon-shepherd-service
   (shepherd-service
    (provision '(emacs))
@@ -68,6 +78,7 @@
 (define emacs-services
   (list emacs-batch-edit-service
         emacs-calfw-service
+        emacs-consult-service
 	emacs-daemon-service
         emacs-package-service
         emacs-service))
diff --git a/emacs/.config/emacs/conf/conf-consult.el b/emacs/.config/emacs/conf/conf-consult.el
new file mode 100644
index 0000000..d930bcd
--- /dev/null
+++ b/emacs/.config/emacs/conf/conf-consult.el
@@ -0,0 +1,40 @@
+;; Copyright (c) 2022 Jakub Czajka <jakub@ekhem.eu.org>
+;; License: GPL-3.0 or later.
+;;
+;; conf-consult.el - configuration for the consult package.
+
+(require 'conf-package)
+
+(use-package consult
+  :ensure t
+  :bind
+  ("C-c ca"                         . consult-apropos)
+  ([remap bookmark-jump]            . consult-bookmark)
+  ([remap switch-to-buffer]         . consult-buffer)
+  ("C-c cf"                         . consult-find)
+  ([remap goto-line]                . consult-goto-line)
+  ("C-c ci"                         . consult-imenu)
+  ("C-c cI"                         . consult-imenu-multi)
+  ("C-c cl"                         . consult-line)
+  ([remap project-switch-to-buffer] . consult-project-buffer)
+  ([remap jump-to-register]         . consult-register)
+  ([remap point-to-register]        . consult-register-store)
+  :custom
+  ;; Search in hidden folders as well.
+  (consult-find-args "find .")
+  (consult-narrow-key "<"))
+
+(use-package consult
+  :when
+  (conf:executables-p (list "rg"))
+  :bind
+  ("C-c cr" . consult-ripgrep))
+
+(use-package consult
+  :requires
+  (conf-org)
+  :bind
+  (:map org-mode-map
+	("C-c ch" . consult-org-heading)))
+
+(provide 'conf-consult)
-- 
2.39.5