zelongk/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix dired on macos

Browse Source
This commit is contained in:
Zelong Kuang
2025-12-22 07:03:16 +11:00
parent c8f042876e
commit 99c1b3f601
2 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/init-better-default.el
View File

@@ -55,6 +55,8 @@
(setq frame-title-format "Emacs: %b") (setq frame-title-format "Emacs: %b")
(setq custom-safe-themes t) (setq custom-safe-themes t)
(setq insert-directory-program "gls")
(setq-default tab-width 4 (setq-default tab-width 4
compilation-scroll-output t compilation-scroll-output t
indent-tabs-mode nil) indent-tabs-mode nil)

33
lisp/init-dired.el
View File

@@ -4,14 +4,15 @@
:ensure nil :ensure nil
:bind (:map dired-mode-map :bind (:map dired-mode-map
("C-c C-p" . wdired-change-to-wdired-mode) ("C-c C-p" . wdired-change-to-wdired-mode)
("C-b" . dired-up-directory)) ("C-b" . dired-up-directory))
:config :config
;; Always delete and copy recursively ;; Always delete and copy recursively
(setq dired-recursive-deletes 'always (setq dired-recursive-deletes 'always
dired-recursive-copies 'always) dired-recursive-copies 'always)
;; Show directory first ;; Show directory first
;; (setq dired-listing-switches "-alh --group-directories-first") (setq dired-listing-switches "-alh --group-directories-first"
dired-use-ls-dired t)
;; Colorful dired ;; Colorful dired
(use-package diredfl (use-package diredfl
@@ -19,21 +20,23 @@
:hook dired-mode :hook dired-mode
:hook dirvish-directory-view-mode) :hook dirvish-directory-view-mode)
(use-package nerd-icons-dired
:diminish ;; Extra Dired functionality
:functions (nerd-icons-icon-for-dir my-nerd-icons-icon-for-dir)
:hook dired-mode
:init
(defface nerd-icons-dired-dir-face
'((t (:inherit 'font-lock-doc-face)))
"Face for the directory icon."
:group 'nerd-icons-faces)
(defun my-nerd-icons-icon-for-dir (dir)
(nerd-icons-icon-for-dir dir :face 'nerd-icons-dired-dir-face))
(setq nerd-icons-dired-dir-icon-function #'my-nerd-icons-icon-for-dir))
;; Extra Dired functionality
(use-package dired-aux :ensure nil)) (use-package dired-aux :ensure nil))
(use-package nerd-icons-dired
:diminish
:functions (nerd-icons-icon-for-dir my-nerd-icons-icon-for-dir)
:hook dired-mode
:init
(defface nerd-icons-dired-dir-face
'((t (:inherit 'font-lock-doc-face)))
"Face for the directory icon."
:group 'nerd-icons-faces)
(defun my-nerd-icons-icon-for-dir (dir)
(nerd-icons-icon-for-dir dir :face 'nerd-icons-dired-dir-face))
(setq nerd-icons-dired-dir-icon-function #'my-nerd-icons-icon-for-dir))
;; (use-package dirvish ;; (use-package dirvish
;; :bind ("C-c o p" . dirvish-side) ;; :bind ("C-c o p" . dirvish-side)
;; :init (dirvish-override-dired-mode) ;; :init (dirvish-override-dired-mode)