summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-13 17:17:03 -0500
committerCase Duckworth2021-09-13 17:17:03 -0500
commit3d0addef2cde8b20d0844771a8acf89505174e88 (patch)
tree941766c611e78c30a03624b54b2296eae8ce3840
parentAdd pissnet (diff)
downloademacs-3d0addef2cde8b20d0844771a8acf89505174e88.tar.gz
emacs-3d0addef2cde8b20d0844771a8acf89505174e88.zip
Set consult-preview key
-rw-r--r--init.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/init.el b/init.el index 70d72b4..e7f08d5 100644 --- a/init.el +++ b/init.el
@@ -271,6 +271,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
271 (defun circe-command-SHORTEN (url) 271 (defun circe-command-SHORTEN (url)
272 "Shorten URL using `0x0-shorten-uri'." 272 "Shorten URL using `0x0-shorten-uri'."
273 (interactive "sURL to shorten: ") 273 (interactive "sURL to shorten: ")
274 ;; TODO: enable /shorten URL comment syntax
274 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) 275 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
275 (circe-command-SAY short-url))) 276 (circe-command-SAY short-url)))
276 277
@@ -386,6 +387,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
386 consult-project-root-function #'vc-root-dir 387 consult-project-root-function #'vc-root-dir
387 completion-in-region-function #'acdw-consult/complete-in-region 388 completion-in-region-function #'acdw-consult/complete-in-region
388 completion-cycle-threshold 3 389 completion-cycle-threshold 3
390 consult-preview-key (kbd "M-.")
389 tab-always-indent 'complete) 391 tab-always-indent 'complete)
390 392
391 (:advise register-preview :override #'consult-register-window) 393 (:advise register-preview :override #'consult-register-window)
@@ -467,8 +469,8 @@ AKA, DO NOT USE THIS FUNCTION!!!"
467 (:hook visual-line-mode)) 469 (:hook visual-line-mode))
468 470
469(setup (:straight-if (define-repeat-map 471(setup (:straight-if (define-repeat-map
470 :host nil 472 :host nil
471 :repo "https://tildegit.org/acdw/define-repeat-map.el") 473 :repo "https://tildegit.org/acdw/define-repeat-map.el")
472 (acdw/system :home)) 474 (acdw/system :home))
473 475
474 (defun acdw/other-window-or-switch-buffer-backward () 476 (defun acdw/other-window-or-switch-buffer-backward ()