;;; editing-packages.el --- Editing and navigation configuration -*- lexical-binding: t; -*-

(use-package avy
	:defer t
	:config
	(setq avy-timeout-seconds 0.25
				avy-style 'at-full
				avy-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
				avy-orders-alist nil)
	(dolist (face `(avy-lead-face
									avy-lead-face-0
									avy-lead-face-1
									avy-lead-face-2
									avy-goto-char-timer-face))
		(set-face-attribute face nil :inherit 'fixed-pitch))
	)

(use-package surround
	:defer t
	:bind-keymap ("M-'" . surround-keymap))

(use-package kirigami
	:defer t
	:commands (kirigami-open-fold
						 kirigami-open-fold-rec
						 kirigami-close-fold
						 kirigami-toggle-fold
						 kirigami-open-folds
						 kirigami-close-folds-except-current
						 kirigami-close-folds))

(use-package embark
	:defer t
	:bind
	(("M-m" . embark-act)
	 ("C-h B" . embark-bindings)
	 )
	:config
	(add-to-list 'display-buffer-alist
							 '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
								 nil
								 (window-parameters (mode-line-format . none))))
	)

(use-package drag-stuff
	:defer t
	:bind
	(("<M-up>" . drag-stuff-up)
	 ("<M-down>" . drag-stuff-down)
	 ("<M-left>"  . drag-stuff-left)
	 ("<M-right>" . drag-stuff-right)
	 )
	)


(provide 'editing-packages)