dotfiles/emacs.d/editing.el

;; (use-package corfu
;;   :ensure t
;;   :hook (after-init . global-corfu-mode)
;;   :bind (:map corfu-map ("<tab>" . corfu-complete))
;;   :config
;;   (setq tab-always-indent 'complete)
;;   (setq corfu-preview-current nil)
;;   (setq corfu-min-width 20)

;;   (setq corfu-popupinfo-delay '(1.25 . 0.5))
;;   (corfu-popupinfo-mode 1) ; shows documentation after 'corfu-popupinfo-delay'

;;   ;; sort by input history
;;   (with-eval-after-load 'savehist
;;     (corfu-history-mode 1)
;;     (add-to-list 'savehist-additional-variables 'corfu-history)))

(setq-default tab-width 4)
(setq-default indent-tabs-mode t)
(setq-default tab-always-indent t)

(use-package corfu
  :ensure t
  :hook (after-init . global-corfu-mode)
  ;; :bind
  ;; ( :map corfu-map
  ;;   ("<tab>" . corfu-complete))
  :config
  ;;(setq tab-always-indent 'complete)
  (setq corfu-auto t)
  (setq corfu-auto-delay 0.5)
  (setq corfu-auto-prefix 2)
  (setq corfu-preview-current nil)
  (setq corfu-min-width 20))

(use-package corfu-popupinfo
  :ensure nil
  :after corfu
  :hook (corfu-mode . corfu-popupinfo-mode)
  :custom
  (corfu-popupinfo-delay '(0.25 . 0.1))
  (corfu-popupinfo-hide nil)
  :config
  (corfu-popupinfo-mode))

(use-package corfu-terminal
  :ensure t
  :if (not (display-graphic-p))
  :config
  (corfu-terminal-mode))

(use-package cape
  :ensure t
  :init
  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
  (add-to-list 'completion-at-point-functions #'cape-file))

(use-package delsel
  :ensure nil
  :hook (after-init . delete-selection-mode))

(use-package expand-region
  :ensure t
  :bind
  (("M-<S-up>" . er/expand-region)
   ("M-<S-down>" . er/contract-region)))

(use-package dtrt-indent
  :ensure t
  :config
  (setq dtrt-indent-verbosity 0)
  (setq dtrt-indent-run-after-smie t)
  (dtrt-indent-global-mode t))

(use-package paredit
  :ensure t
  :bind
  ( :map paredit-mode-map
    ("M-s" . nil) ; conflicts with preferred consult key binds
    )
  :config
  (add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
  ;; wtf?
  ;;(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
  (add-hook 'lisp-mode-hook #'enable-paredit-mode)
  (add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
  (add-hook 'scheme-mode-hook #'enable-paredit-mode))