Reorganize completing-read stuff

1 files changed, 60 insertions, 49 deletions

@@ -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