summaryrefslogtreecommitdiffstats
path: root/.emacs.d/lisp/bandali-dired.el
diff options
context:
space:
mode:
authorAmin Bandali <bandali@kelar.org>2025-02-10 15:05:56 -0500
committerAmin Bandali <bandali@kelar.org>2025-02-10 15:05:56 -0500
commit70026d07d0bef09468b93caabf9a1f425533a69a (patch)
treec5379ac39bff3fb3e818eba88844c136c7e1c239 /.emacs.d/lisp/bandali-dired.el
parent99332da43b8324814ca6c1af7f0076f83c8ce233 (diff)
downloadconfigs-70026d07d0bef09468b93caabf9a1f425533a69a.tar.gz
configs-70026d07d0bef09468b93caabf9a1f425533a69a.tar.xz
configs-70026d07d0bef09468b93caabf9a1f425533a69a.zip
Drop use-package again
I prefer my own manual approach, use-package feels too magical and at times does too much for me.
Diffstat (limited to '')
-rw-r--r--.emacs.d/lisp/bandali-dired.el45
1 files changed, 19 insertions, 26 deletions
diff --git a/.emacs.d/lisp/bandali-dired.el b/.emacs.d/lisp/bandali-dired.el
index 982af2c..f0ebbc5 100644
--- a/.emacs.d/lisp/bandali-dired.el
+++ b/.emacs.d/lisp/bandali-dired.el
@@ -24,25 +24,12 @@
;;; Code:
-(use-package dired
- :defer t
- :init (require 'ls-lisp)
- :bind
- (:map
- dired-mode-map
- ("b" . dired-up-directory)
- ("E" . dired-ediff-files)
- ("e" . dired-toggle-read-only)
- ("\\" . dired-hide-details-mode))
- :hook
- (dired-mode . dired-hide-details-mode)
- :custom
- (dired-dwim-target-next t)
- ;; (dired-listing-switches "-alh --group-directories-first")
- (dired-listing-switches "-alh")
- ;; (ls-lisp-dirs-first t)
- (ls-lisp-use-insert-directory-program nil)
- :config
+(with-eval-after-load 'dired
+ (setopt
+ dired-dwim-target t
+ ;; dired-listing-switches "-alh --group-directories-first"
+ dired-listing-switches "-alh")
+
(declare-function dired-dwim-target-directory "dired-aux")
;; easily diff 2 marked files
;; https://oremacs.com/2017/03/18/dired-ediff/
@@ -66,13 +53,19 @@
(lambda ()
(setq ediff-after-quit-hook-internal nil)
(set-window-configuration wnd))))
- (error "no more than 2 files should be marked")))))
+ (error "no more than 2 files should be marked"))))
+
+ ;; local key bindings
+ (let ((m dired-mode-map))
+ (b/keymap-set m "b" #'dired-up-directory)
+ (b/keymap-set m "E" #'dired-ediff-files)
+ (b/keymap-set m "e" #'dired-toggle-read-only)
+ (b/keymap-set m "\\" #'dired-hide-details-mode))
-(use-package dired-x
- :after dired
- :custom
- (dired-guess-shell-alist-user
- '(("\\.pdf\\'" "atril" "evince" "zathura" "okular")
+ (require 'dired-x)
+ (setopt
+ dired-guess-shell-alist-user
+ '(("\\.pdf\\'" "atril" "evince")
("\\.doc\\'" "libreoffice")
("\\.docx\\'" "libreoffice")
("\\.ppt\\'" "libreoffice")
@@ -80,7 +73,7 @@
("\\.xls\\'" "libreoffice")
("\\.xlsx\\'" "libreoffice")
("\\.flac\\'" "mpv"))))
-
+(add-hook 'dired-mode-hook #'dired-hide-details-mode)
(provide 'bandali-dired)
;;; bandali-dired.el ends here