[emacs/dired] use the ls-lisp ls emulation & sort directories first

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 536e25d..1eb94d8 100644 (file)
--- a/init.org
+++ b/init.org
@@ -947,7 +947,8 @@ There's no way I could top that, so I won't attempt to.
 
   (defun a/eshell-setup ()
     (make-local-variable 'company-idle-delay)
 
   (defun a/eshell-setup ()
     (make-local-variable 'company-idle-delay)

-    (defvar company-idle-delay nil)
+    (defvar company-idle-delay)
+    (setq company-idle-delay nil)

     (bind-keys :map eshell-mode-map
                ("C-d"   . a/eshell-quit-or-delete-char)
                ("C-S-l" . a/eshell-clear)
     (bind-keys :map eshell-mode-map
                ("C-d"   . a/eshell-quit-or-delete-char)
                ("C-S-l" . a/eshell-clear)


@@ -1070,16 +1071,20 @@ TODO: break this giant source block down into individual org sections.
   (global-diff-hl-mode)
   (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
 
   (global-diff-hl-mode)
   (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh t))
 

+(use-package ls-lisp
+  :custom (ls-lisp-dirs-first t))
+

 (use-package dired
   :defer t
   :config
 (use-package dired
   :defer t
   :config

-  (setq dired-listing-switches "-alh")
+  (setq dired-listing-switches "-alh"
+        ls-lisp-use-insert-directory-program nil)

 
   ;; easily diff 2 marked files
   ;; https://oremacs.com/2017/03/18/dired-ediff/
   (defun dired-ediff-files ()
     (interactive)
 
   ;; easily diff 2 marked files
   ;; https://oremacs.com/2017/03/18/dired-ediff/
   (defun dired-ediff-files ()
     (interactive)

-    (require 'ediff)
+    (defvar ediff-after-quit-hook-internal)

     (let ((files (dired-get-marked-files))
           (wnd (current-window-configuration)))
       (if (<= (length files) 2)
     (let ((files (dired-get-marked-files))
           (wnd (current-window-configuration)))
       (if (<= (length files) 2)


@@ -1897,11 +1902,14 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package multiple-cursors
 
 #+begin_src emacs-lisp
 (use-package multiple-cursors

-  :bind (("C-c M c"       . mc/edit-lines)
-         ("C-c M n"       . mc/mark-next-like-this)
-         ("C-c M p"       . mc/mark-previous-like-this)
-         ("C-c M a"       . mc/mark-all-like-this)
-         ("C-S-<mouse-1>" . mc/add-cursor-on-click)))
+  :bind
+  (("C-S-<mouse-1>" . mc/add-cursor-on-click)
+   (:prefix-map a/mc-prefix-map
+               :prefix "C-c m"
+               ("c" . mc/edit-lines)
+               ("n" . mc/mark-next-like-this)
+               ("p" . mc/mark-previous-like-this)
+               ("a" . mc/mark-all-like-this))))

 #+end_src
 
 * Email
 #+end_src
 
 * Email


@@ -1924,8 +1932,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
  read-mail-command 'gnus)
 
 (use-package gnus
  read-mail-command 'gnus)
 
 (use-package gnus

-  :bind (("C-c m" . gnus)
-         ("s-m"   . gnus)
+  :bind (("s-m"   . gnus)

          ("s-M"   . gnus-unplugged))
   :init
   (setq
          ("s-M"   . gnus-unplugged))
   :init
   (setq