about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-03-31 12:46:14 -0500
committerCase Duckworth2021-03-31 12:46:14 -0500
commit8b9470d7c283fc30937b39aafbf1a2c0b76b5201 (patch)
treed85353a2ee92a1f1e3292fb21ab3677b5a67e08c
parentAdd `olivetti' and tweak `acdw/reading-mode' (diff)
downloademacs-8b9470d7c283fc30937b39aafbf1a2c0b76b5201.tar.gz
emacs-8b9470d7c283fc30937b39aafbf1a2c0b76b5201.zip
Add plugins
-rw-r--r--init.el47
1 files changed, 43 insertions, 4 deletions
diff --git a/init.el b/init.el index 1ba61dc..5da5a38 100644 --- a/init.el +++ b/init.el
@@ -358,18 +358,57 @@
358(setup (:straight beginend) 358(setup (:straight beginend)
359 (beginend-global-mode +1)) 359 (beginend-global-mode +1))
360 360
361;;;; MWIM
362(setup (:straight mwim)
363 (:acdw/map "C-a" mwim-beginning
364 "C-e" mwim-end))
365
361;;;; Expand-region 366;;;; Expand-region
362(setup (:straight expand-region) 367(setup (:straight expand-region)
363 (:acdw/map "C-=" er/expand-region)) 368 (:acdw/map "C-=" er/expand-region))
364 369
365;;;; CRUX 370;;;; CRUX
366(setup (:straight crux) 371(setup (:straight crux)
367 (:with-map acdw/map 372 (:acdw/map "M-o" crux-other-window-or-switch-buffer
368 (:bind "M-o" crux-other-window-or-switch-buffer) 373 "C-k" crux-kill-and-join-forward)
369 (:bind "C-a" crux-move-beginning-of-line)
370 (:bind "C-k" crux-kill-and-join-forward))
371 (crux-reopen-as-root-mode +1)) 374 (crux-reopen-as-root-mode +1))
372 375
376;;;; AVY ... & friends
377(setup (:straight avy)
378 (:acdw/map "C-:" avy-goto-char
379 "C-'" avy-goto-char-timer
380 "M-g f" avy-goto-line
381 "M-g w" avy-goto-word-1
382 "C-c C-j" avy-resume)
383 (eval-after-load "isearch"
384 '(define-key isearch-mode-map (kbd "C-'") #'avy-isearch)))
385
386;;;;; zzz-to-char
387(setup (:straight zzz-to-char)
388 (defun acdw/zzz-up-to-char (prefix)
389 "Call `zzz-up-to-char', unless issued a PREFIX, in which case
390call `zzz-to-char'."
391 (interactive "P")
392 (if prefix
393 (call-interactively #'zzz-to-char)
394 (call-interactively #'zzz-up-to-char)))
395 (:acdw/map "M-z" acdw/zzz-up-to-char))
396
397;;;; anzu
398(setup (:straight anzu)
399 (:option anzu-replace-to-string-separator " → "
400 anzu-cons-mode-line-p nil)
401 (add-to-list 'mode-line-misc-info '(:eval (anzu--update-mode-line)))
402
403 (:acdw/map [remap query-replace] anzu-query-replace
404 [remap query-replace-regexp] anzu-query-replace-regexp)
405 (:with-map isearch-mode-map
406 (:bind [remap isearch-query-replace] anzu-isearch-query-replace
407 [remap isearch-query-replace-regexp]
408 anzu-isearch-query-replace-regexp))
409
410 (global-anzu-mode +1))
411
373;;; Functionality 412;;; Functionality
374 413
375;;;; Async 414;;;; Async