From 1729317cd870fca21d55c2a036deaa2732891884 Mon Sep 17 00:00:00 2001
From: Jim Myhrberg <contact@jimeh.me>
Date: Mon, 15 May 2023 22:25:54 +0100
Subject: [PATCH] feat(navigation): add dirvish and have it override/enhance
 dired

---
 core/siren-core-modules.el          |  1 +
 modules/navigation/siren-dirvish.el | 41 +++++++++++++++++++++++++++++
 2 files changed, 42 insertions(+)
 create mode 100644 modules/navigation/siren-dirvish.el

diff --git a/core/siren-core-modules.el b/core/siren-core-modules.el
index d851aad..c6cb790 100644
--- a/core/siren-core-modules.el
+++ b/core/siren-core-modules.el
@@ -87,6 +87,7 @@
 (require 'siren-centaur-tabs)
 (require 'siren-consult)
 (require 'siren-dired)
+(require 'siren-dirvish)
 (require 'siren-dumb-jump)
 (require 'siren-git-link)
 (require 'siren-helm)
diff --git a/modules/navigation/siren-dirvish.el b/modules/navigation/siren-dirvish.el
new file mode 100644
index 0000000..fe24379
--- /dev/null
+++ b/modules/navigation/siren-dirvish.el
@@ -0,0 +1,41 @@
+;;; siren-dirvish.el --- jimeh's Emacs Siren: dirvish configuration.
+
+;;; Commentary:
+
+;; Basic configuration for dirvish.
+
+;;; Code:
+
+(use-package dirvish
+  :custom
+  (dirvish-cache-dir (siren-cache-dir "dirvish"))
+  (dirvish-quick-access-entries
+   '(("h" "~/"                  "Home")
+     ("s" "~/src/"              "src")
+     ("t" "~/Temp/"             "Temp")
+     ("d" "~/Downloads/"        "Downloads")
+     ("D" "~/Desktop/"          "Desktop")
+     ("p" "~/Projects/"         "Projects")
+     ("k" "~/Projects/krystal/" "krystal")))
+  (dirvish-mode-line-format '(:left (sort file-time " " file-size symlink)
+                                    :right (omit yank index)))
+  (dirvish-attributes '(subtree-state all-the-icons collapse file-size))
+  (dirvish-reuse-session t)
+  (dirvish-side-auto-expand t)
+
+  :general
+  (:keymaps 'dirvish-mode-map
+            "TAB" 'dirvish-subtree-toggle
+            "*" 'dirvish-mark-menu
+            "f" 'dirvish-file-info-menu
+            "b" 'dirvish-quick-access
+            "s" 'dirvish-quicksort)
+
+  :init
+  ;; Let Dirvish take over Dired globally.
+  (with-eval-after-load 'dired
+    (with-eval-after-load 'dired+
+      (dirvish-override-dired-mode t))))
+
+(provide 'siren-dirvish)
+;;; siren-dirvish.el ends here