Remove or comment out dumbness

1 files changed, 4 insertions, 26 deletions

@@ -1143,12 +1143,7 @@ specific to most general, they are these:
                 (indent-region (point-min) (point-max))))))
 
 (setup (:straight async)
-  (dired-async-mode +1)
-
-  (:with-feature dired
-    (:hook (defun dired@disable-dired-async-mode-line ()
-             (autoload 'dired-async--modeline-mode "dired-async" nil t)
-             (dired-async--modeline-mode -1)))))
+  (dired-async-mode +1))
 
 (setup (:straight avy)
   (:global "C-'" #'avy-goto-char-timer
@@ -1541,7 +1536,8 @@ specific to most general, they are these:
            "<help> k" #'helpful-key
            "<help> o" #'helpful-symbol)
 
-  (:bind "q" #'quit-window))
+  ;; (:bind "q" #'quit-window)
+  )
 
 (setup (:straight hungry-delete)
   (:option hungry-delete-chars-to-skip " \t"
@@ -2170,15 +2166,6 @@ If used with a numeric prefix argument N, N backticks will be inserted."
   (:option resize-mini-windows 'grow-only
            vertico-count-format nil
            vertico-cycle t)
-  
-  ;; (:with-map vertico-map
-  ;;   (:bind "<C-backspace>"
-  ;;          (defun up-directory (arg)
-  ;;            "Move up a directory (delete backwards to /)."
-  ;;            (interactive "p")
-  ;;            (if (string-match-p "/." (minibuffer-contents))
-  ;;                (zap-up-to-char (- arg) ?/)
-  ;;              (backward-kill-word arg)))))
 
   (when (boundp 'native-comp-deferred-compilation-deny-list)
     (add-to-list 'native-comp-deferred-compilation-deny-list "vertico"))
@@ -2193,16 +2180,7 @@ If used with a numeric prefix argument N, N backticks will be inserted."
     (:bind "RET" #'vertico-directory-enter
            "DEL" #'vertico-directory-delete-char
            "M-DEL" #'vertico-directory-delete-word))
-  (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)
-  
-  ;; Prefix the current candidate with "> ".  From Vertico wiki.
-  (:advise vertico--format-candidate :around
-           (defun vertico-format@add-arrow (orig cand pref suf index start)
-             (setq cand (funcall orig cand pref suf index start))
-             (concat (if (= vertico--index index)
-                         (propertize "> " 'face 'vertico-current)
-                       "  ")
-                     cand))))
+  (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
 
 (setup (:straight visual-regexp)
   (:global "M-%" #'vr/query-replace))