Set consult-preview key

1 files changed, 4 insertions, 2 deletions

@@ -271,6 +271,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
   (defun circe-command-SHORTEN (url)
     "Shorten URL using `0x0-shorten-uri'."
     (interactive "sURL to shorten: ")
+    ;; TODO: enable /shorten URL comment syntax
     (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
       (circe-command-SAY short-url)))
 
@@ -386,6 +387,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
            consult-project-root-function #'vc-root-dir
            completion-in-region-function #'acdw-consult/complete-in-region
            completion-cycle-threshold 3
+           consult-preview-key (kbd "M-.")
            tab-always-indent 'complete)
 
   (:advise register-preview :override #'consult-register-window)
@@ -467,8 +469,8 @@ AKA, DO NOT USE THIS FUNCTION!!!"
   (:hook visual-line-mode))
 
 (setup (:straight-if (define-repeat-map
-                                     :host nil
-                                     :repo "https://tildegit.org/acdw/define-repeat-map.el")
+                                   :host nil
+                                   :repo "https://tildegit.org/acdw/define-repeat-map.el")
                      (acdw/system :home))
 
   (defun acdw/other-window-or-switch-buffer-backward ()