;;; system-packages.el --- System and utility package configuration -*- lexical-binding: t; -*-

(use-package clipetty
	:hook (after-init . global-clipetty-mode))

(use-package dirvish
	:config
	(dirvish-peek-mode)
	(dirvish-side-follow-mode)
	(add-hook 'dirvish-directory-view-mode 'diredfl-mode)
	(with-eval-after-load 'dirvish
		(define-key dirvish-mode-map (kbd "a") #'dirvish-setup-menu)
		(define-key dirvish-mode-map (kbd "v") #'dirvish-move))
	)

(use-package shell-pop
	:defer t
	:custom
																				;(shell-pop-universal-key "C-s s")
	(shell-pop-window-position "bottom")
	(shell-pop-term-shell shell-file-name)
	(shell-pop-window-size 50)
	)

(with-eval-after-load 'shell-pop
	(setopt shell-pop-shell-type '("ghostel" "*ghostel*"
																 (lambda ()
																	 (when (fboundp 'ghostel)
																		 (let ((ghostel-shell shell-pop-term-shell))
																			 (ghostel)))))))

(use-package dired-clipboard
	:hook (dired-mode . dired-clipboard-mode)
	:config
	(setq dired-clipboard-use-wl-copy t
				dired-clipboard-wayland-target 'uri-list)
	)

(use-package benchmark-init
	:hook
	(after-init . benchmark-init/deactivate))


(provide 'system-packages)