From 99c1b3f601816fcc2a3316527eed946564d80f63 Mon Sep 17 00:00:00 2001
From: Zelong Kuang <zelongkuang0608@gmail.com>
Date: Mon, 22 Dec 2025 07:03:16 +1100
Subject: [PATCH] Fix dired on macos

---
 lisp/init-better-default.el |  2 ++
 lisp/init-dired.el          | 33 ++++++++++++++++++---------------
 2 files changed, 20 insertions(+), 15 deletions(-)

diff --git a/lisp/init-better-default.el b/lisp/init-better-default.el
index e1c7b01..5461b85 100644
--- a/lisp/init-better-default.el
+++ b/lisp/init-better-default.el
@@ -55,6 +55,8 @@
 (setq frame-title-format "Emacs: %b")
 (setq custom-safe-themes t)
 
+(setq insert-directory-program "gls")
+
 (setq-default tab-width 4
 	          compilation-scroll-output t
 	          indent-tabs-mode nil)
diff --git a/lisp/init-dired.el b/lisp/init-dired.el
index 868c0ec..8319944 100644
--- a/lisp/init-dired.el
+++ b/lisp/init-dired.el
@@ -4,14 +4,15 @@
   :ensure nil
   :bind (:map dired-mode-map
               ("C-c C-p" . wdired-change-to-wdired-mode)
-	      ("C-b" . dired-up-directory))
+	          ("C-b" . dired-up-directory))
   :config
   ;; Always delete and copy recursively
   (setq dired-recursive-deletes 'always
         dired-recursive-copies 'always)
 
   ;; 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
   (use-package diredfl
@@ -19,21 +20,23 @@
     :hook dired-mode
     :hook dirvish-directory-view-mode)
   
-  (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))
-    ;; Extra Dired functionality
+
+  ;; Extra Dired functionality
   (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
 ;;   :bind ("C-c o p" . dirvish-side)
 ;;   :init (dirvish-override-dired-mode)