From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:41:28 -0500
Subject: Bankruptcy 9

---
 lisp/+consult.el | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 lisp/+consult.el

(limited to 'lisp/+consult.el')

diff --git a/lisp/+consult.el b/lisp/+consult.el
deleted file mode 100644
index 21c2565..0000000
--- a/lisp/+consult.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; +consult.el --- consult additions -*- lexical-binding: t -*-
-
-;;; Code:
-
-(defun +consult-project-root ()
-  "Return either the current project, or the VC root, of current file."
-  (if (and (functionp 'project-current)
-           (project-current))
-      (car (project-roots (project-current)))
-    (vc-root-dir)))
-
-;;; Cribbed functions
-;; https://github.com/minad/consult/wiki
-
-(defun consult--orderless-regexp-compiler (input type &rest _)
-  (setq input (orderless-pattern-compiler input))
-  (cons
-   (mapcar (lambda (r) (consult--convert-regexp r type)) input)
-   (lambda (str) (orderless--highlight input str))))
-
-(defmacro consult-history-to-modes (map-hook-alist)
-  (let (defuns)
-    (dolist (map-hook map-hook-alist)
-      (let ((map-name (symbol-name (car map-hook)))
-            (key-defs `(progn (define-key
-                                ,(car map-hook)
-                                (kbd "M-r")
-                                (function consult-history))
-                              (define-key ,(car map-hook)
-                                (kbd "M-s") nil))))
-        (push (if (cdr map-hook)
-                  `(add-hook ',(cdr map-hook)
-                             (defun
-                                 ,(intern (concat map-name
-                                                  "@consult-history-bind"))
-                                 nil
-                               ,(concat
-                                 "Bind `consult-history' to M-r in "
-                                 map-name ".\n"
-                                 "Defined by `consult-history-to-modes'.")
-                               ,key-defs))
-                key-defs)
-              defuns)))
-    `(progn ,@ (nreverse defuns))))
-
-(provide '+consult)
-;;; +consult.el ends here
-- 
cgit 1.4.1-21-gabe81