From 9ffba44d97d15d82adc9e676aa6e3a1b6dfea2db Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Dec 2020 19:10:58 -0600
Subject: Reorganize completing-read stuff

---
 config.org | 109 ++++++++++++++++++++++++++++++++++---------------------------
 1 file changed, 60 insertions(+), 49 deletions(-)

(limited to 'config.org')

diff --git a/config.org b/config.org
index 72aeea4..8c2f7be 100644
--- a/config.org
+++ b/config.org
@@ -4,7 +4,7 @@
 #+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
 #+BANKRUPTCY_COUNT: 3
-#+Time-stamp: <2020-12-16 08:20:58 acdw>
+#+Time-stamp: <2020-12-16 16:48:46 aduckworth>
 
 Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 
@@ -435,65 +435,76 @@ from [[https://stackoverflow.com/questions/23659909/reverse-evaluation-order-of-
 
 * Interactivity
 
-** Selectrum
+** Completing-read
+
+*** Shadow file names
 
 #+begin_src emacs-lisp
-  (use-package selectrum
-    :config
-    (selectrum-mode +1))
+  (cuss file-name-shadow-properties
+	'(invisible t))
+
+  (file-name-shadow-mode +1)
 #+end_src
 
-** Prescient
+*** Selectrum
 
-#+begin_src emacs-lisp
-  (use-package prescient
-    :config
-    (prescient-persist-mode +1))
+ #+begin_src emacs-lisp
+   (use-package selectrum
+     :config
+     (selectrum-mode +1))
+ #+end_src
 
-  (use-package selectrum-prescient
-    :after (selectrum prescient)
-    :config
-    (selectrum-prescient-mode +1))
-#+end_src
+*** Prescient
 
-** Consult
+ #+begin_src emacs-lisp
+   (use-package prescient
+     :config
+     (prescient-persist-mode +1))
+
+   (use-package selectrum-prescient
+     :after (selectrum prescient)
+     :config
+     (selectrum-prescient-mode +1))
+ #+end_src
 
-#+begin_src emacs-lisp
-  (use-package consult
-    :after (selectrum)
-    :straight (consult
-	       :host github
-	       :repo "minad/consult")
-    :bind
-    (("C-x b" . consult-buffer)
-     ("C-x 4 b" . consult-buffer-other-window)
-     ("C-x 5 b" . consult-buffer-other-frame)
-     ("M-g o" . consult-outline)
-     ("M-g l" . consult-line)
-     ("M-y" . consult-yank-pop)
-     ("<help> a" . consult-apropos))
-    :init
-    (fset 'multi-occur #'consult-multi-occur))
+*** Consult
 
-  (use-package consult-selectrum
-    :straight (consult-selectrum
-	       :host github
-	       :repo "minad/consult"))
-#+end_src
+ #+begin_src emacs-lisp
+   (use-package consult
+     :after (selectrum)
+     :straight (consult
+		:host github
+		:repo "minad/consult")
+     :bind
+     (("C-x b" . consult-buffer)
+      ("C-x 4 b" . consult-buffer-other-window)
+      ("C-x 5 b" . consult-buffer-other-frame)
+      ("M-g o" . consult-outline)
+      ("M-g l" . consult-line)
+      ("M-y" . consult-yank-pop)
+      ("<help> a" . consult-apropos))
+     :init
+     (fset 'multi-occur #'consult-multi-occur))
+
+   (use-package consult-selectrum
+     :straight (consult-selectrum
+		:host github
+		:repo "minad/consult"))
+ #+end_src
 
-** Marginalia
+*** Marginalia
 
-#+begin_src emacs-lisp
-  (use-package marginalia
-    :straight (marginalia
-	       :host github
-	       :repo "minad/marginalia"
-	       :branch "main")
-    :init
-    (marginalia-mode +1)
-    (cuss marginalia-annotators '(marginalia-annotators-heavy
-				  marginalia-annotators-light)))
-#+end_src
+ #+begin_src emacs-lisp
+   (use-package marginalia
+     :straight (marginalia
+		:host github
+		:repo "minad/marginalia"
+		:branch "main")
+     :init
+     (marginalia-mode +1)
+     (cuss marginalia-annotators '(marginalia-annotators-heavy
+				   marginalia-annotators-light)))
+ #+end_src
 
 ** Ignore case
 
-- 
cgit 1.4.1-21-gabe81