about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-25 12:24:34 -0500
committerCase Duckworth2021-09-25 12:24:34 -0500
commit26e443d9656841841a16cc37e2580e01accc6eb8 (patch)
tree06408831769f750979007b1fe79540a2f05deb09
parentRemove speed up (diff)
downloademacs-26e443d9656841841a16cc37e2580e01accc6eb8.tar.gz
emacs-26e443d9656841841a16cc37e2580e01accc6eb8.zip
Remove or comment out dumbness
-rw-r--r--init.el30
1 files changed, 4 insertions, 26 deletions
diff --git a/init.el b/init.el index d8e9bf0..10d42b1 100644 --- a/init.el +++ b/init.el
@@ -1143,12 +1143,7 @@ specific to most general, they are these:
1143 (indent-region (point-min) (point-max)))))) 1143 (indent-region (point-min) (point-max))))))
1144 1144
1145(setup (:straight async) 1145(setup (:straight async)
1146 (dired-async-mode +1) 1146 (dired-async-mode +1))
1147
1148 (:with-feature dired
1149 (:hook (defun dired@disable-dired-async-mode-line ()
1150 (autoload 'dired-async--modeline-mode "dired-async" nil t)
1151 (dired-async--modeline-mode -1)))))
1152 1147
1153(setup (:straight avy) 1148(setup (:straight avy)
1154 (:global "C-'" #'avy-goto-char-timer 1149 (:global "C-'" #'avy-goto-char-timer
@@ -1541,7 +1536,8 @@ specific to most general, they are these:
1541 "<help> k" #'helpful-key 1536 "<help> k" #'helpful-key
1542 "<help> o" #'helpful-symbol) 1537 "<help> o" #'helpful-symbol)
1543 1538
1544 (:bind "q" #'quit-window)) 1539 ;; (:bind "q" #'quit-window)
1540 )
1545 1541
1546(setup (:straight hungry-delete) 1542(setup (:straight hungry-delete)
1547 (:option hungry-delete-chars-to-skip " \t" 1543 (:option hungry-delete-chars-to-skip " \t"
@@ -2170,15 +2166,6 @@ If used with a numeric prefix argument N, N backticks will be inserted."
2170 (:option resize-mini-windows 'grow-only 2166 (:option resize-mini-windows 'grow-only
2171 vertico-count-format nil 2167 vertico-count-format nil
2172 vertico-cycle t) 2168 vertico-cycle t)
2173
2174 ;; (:with-map vertico-map
2175 ;; (:bind "<C-backspace>"
2176 ;; (defun up-directory (arg)
2177 ;; "Move up a directory (delete backwards to /)."
2178 ;; (interactive "p")
2179 ;; (if (string-match-p "/." (minibuffer-contents))
2180 ;; (zap-up-to-char (- arg) ?/)
2181 ;; (backward-kill-word arg)))))
2182 2169
2183 (when (boundp 'native-comp-deferred-compilation-deny-list) 2170 (when (boundp 'native-comp-deferred-compilation-deny-list)
2184 (add-to-list 'native-comp-deferred-compilation-deny-list "vertico")) 2171 (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."
2193 (:bind "RET" #'vertico-directory-enter 2180 (:bind "RET" #'vertico-directory-enter
2194 "DEL" #'vertico-directory-delete-char 2181 "DEL" #'vertico-directory-delete-char
2195 "M-DEL" #'vertico-directory-delete-word)) 2182 "M-DEL" #'vertico-directory-delete-word))
2196 (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy) 2183 (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
2197
2198 ;; Prefix the current candidate with "> ". From Vertico wiki.
2199 (:advise vertico--format-candidate :around
2200 (defun vertico-format@add-arrow (orig cand pref suf index start)
2201 (setq cand (funcall orig cand pref suf index start))
2202 (concat (if (= vertico--index index)
2203 (propertize "> " 'face 'vertico-current)
2204 " ")
2205 cand))))
2206 2184
2207(setup (:straight visual-regexp) 2185(setup (:straight visual-regexp)
2208 (:global "M-%" #'vr/query-replace)) 2186 (:global "M-%" #'vr/query-replace))