Fleoo

1 files changed, 18 insertions, 3 deletions

@@ -290,6 +290,17 @@ N spaces."
 (global-set-key (kbd "C-/") #'undo-only)
 (global-set-key (kbd "C-?") #'undo-redo)
 
+(global-set-key [f10] #'tmm-menubar)
+(advice-add 'tmm-add-prompt :after 'minibuffer-hide-completions)
+
+(when (fboundp '+lisp-comment-or-uncomment-sexp)
+  (define-key lisp-mode-map (kbd "C-M-;") #'+lisp-comment-or-uncomment-sexp)
+  (define-key emacs-lisp-mode-map (kbd "C-M-;")
+              #'+lisp-comment-or-uncomment-sexp)
+  (with-eval-after-load 'scheme
+    (define-key scheme-mode-map (kbd "C-M-;")
+                #'+lisp-comment-or-uncomment-sexp)))
+
 (define-key emacs-lisp-mode-map (kbd "C-c C-c")
             #'eval-defun)
 (define-key emacs-lisp-mode-map (kbd "C-c C-k")
@@ -415,14 +426,18 @@ See also `with-region-or-to-eol'."
   :ensure t :demand t
   :config
   (setq vertico-cycle t)
+  (add-hook 'vertico-mode-hook
+            (defun vertico-mode@fix-completions ()
+              (setopt completion-in-region-function
+                      (if vertico-mode
+                          #'consult-completion-in-region
+                        #'completion--in-region))))
   (vertico-mode))
 
 (use-package vertico-directory
   :after vertico
   :bind (:map vertico-map
-              ("RET" . vertico-directory-enter)
-              ("DEL" . vertico-directory-delete-char)
-              ("M-DEL" . vertico-directory-delete-word))
+              ("C-DEL" . vertico-directory-delete-word))
   :hook (rfn-shadow-update-overlay-hook . vertico-directory-tidy))
 
 (use-package vertico-mouse