From b89f452564387368b6f7f6fc4ded8ce65c27146d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 13 Jan 2023 22:52:30 -0600
Subject: Fleoo

---
 basics.el | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

(limited to 'basics.el')

diff --git a/basics.el b/basics.el
index 1f64522..3b24a68 100644
--- a/basics.el
+++ b/basics.el
@@ -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
-- 
cgit 1.4.1-21-gabe81