acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Set consult-preview key

This commit is contained in:
Case Duckworth 2021-09-13 17:17:03 -05:00
parent fc13109774
commit 3d0addef2c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

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