summary refs log tree commit diff stats
path: root/basics.el
diff options
context:
space:
mode:
authorCase Duckworth2023-01-13 22:52:30 -0600
committerCase Duckworth2023-01-13 22:52:30 -0600
commitb89f452564387368b6f7f6fc4ded8ce65c27146d (patch)
treeabefe6b2da106068d37e2be0bfd69481e66dbdfa /basics.el
parentMake it work for ... $work (diff)
downloademacs-b89f452564387368b6f7f6fc4ded8ce65c27146d.tar.gz
emacs-b89f452564387368b6f7f6fc4ded8ce65c27146d.zip
Fleoo
Diffstat (limited to 'basics.el')
-rw-r--r--basics.el21
1 files changed, 18 insertions, 3 deletions
diff --git a/basics.el b/basics.el index 1f64522..3b24a68 100644 --- a/basics.el +++ b/basics.el
@@ -290,6 +290,17 @@ N spaces."
290(global-set-key (kbd "C-/") #'undo-only) 290(global-set-key (kbd "C-/") #'undo-only)
291(global-set-key (kbd "C-?") #'undo-redo) 291(global-set-key (kbd "C-?") #'undo-redo)
292 292
293(global-set-key [f10] #'tmm-menubar)
294(advice-add 'tmm-add-prompt :after 'minibuffer-hide-completions)
295
296(when (fboundp '+lisp-comment-or-uncomment-sexp)
297 (define-key lisp-mode-map (kbd "C-M-;") #'+lisp-comment-or-uncomment-sexp)
298 (define-key emacs-lisp-mode-map (kbd "C-M-;")
299 #'+lisp-comment-or-uncomment-sexp)
300 (with-eval-after-load 'scheme
301 (define-key scheme-mode-map (kbd "C-M-;")
302 #'+lisp-comment-or-uncomment-sexp)))
303
293(define-key emacs-lisp-mode-map (kbd "C-c C-c") 304(define-key emacs-lisp-mode-map (kbd "C-c C-c")
294 #'eval-defun) 305 #'eval-defun)
295(define-key emacs-lisp-mode-map (kbd "C-c C-k") 306(define-key emacs-lisp-mode-map (kbd "C-c C-k")
@@ -415,14 +426,18 @@ See also `with-region-or-to-eol'."
415 :ensure t :demand t 426 :ensure t :demand t
416 :config 427 :config
417 (setq vertico-cycle t) 428 (setq vertico-cycle t)
429 (add-hook 'vertico-mode-hook
430 (defun vertico-mode@fix-completions ()
431 (setopt completion-in-region-function
432 (if vertico-mode
433 #'consult-completion-in-region
434 #'completion--in-region))))
418 (vertico-mode)) 435 (vertico-mode))
419 436
420(use-package vertico-directory 437(use-package vertico-directory
421 :after vertico 438 :after vertico
422 :bind (:map vertico-map 439 :bind (:map vertico-map
423 ("RET" . vertico-directory-enter) 440 ("C-DEL" . vertico-directory-delete-word))
424 ("DEL" . vertico-directory-delete-char)
425 ("M-DEL" . vertico-directory-delete-word))
426 :hook (rfn-shadow-update-overlay-hook . vertico-directory-tidy)) 441 :hook (rfn-shadow-update-overlay-hook . vertico-directory-tidy))
427 442
428(use-package vertico-mouse 443(use-package vertico-mouse