Skip to content

Commit 1f4f59f

Browse files
hatlafaxhatlafax
committed
Added dired-sidebar
1 parent 57cf8f8 commit 1f4f59f

File tree

2 files changed

+120
-22
lines changed

2 files changed

+120
-22
lines changed

‎.gitignore

+1
Original file line numberDiff line numberDiff line change
@@ -35,6 +35,7 @@ site-lisp/else-pkg/
3535
site-lisp/tools/py-tools/MS-Visual-Studio/DevEnv/__pycache__/
3636
transient/
3737
tree-sitter/
38+
dirvish/
3839

3940
#
4041
# We want to exclude all of content...

‎init.org

+119-22
Original file line numberDiff line numberDiff line change
@@ -2623,6 +2623,19 @@ Auto saving is performed by *Psimacs* a lot.
26232623
"The psimacs auto save directory.")
26242624
#+end_src
26252625

2626+
** Dirvish
2627+
2628+
The directory [[https://github.com/alexluigit/dirvish][dirvish]] stores its runtime files.
2629+
2630+
#+begin_src emacs-lisp :tangle config/init-constants.el
2631+
;;
2632+
;; Constants used by Psimacs for dirvish
2633+
;;
2634+
(defconst psimacs/config/dirvish-dir
2635+
(psimacs/file-system/concat-directory psimacs/config/session-dir "dirvish")
2636+
"The psimacs dirvish directory.")
2637+
#+end_src
2638+
26262639
** Bookmarking
26272640

26282641
*Psimacs* uses the [[https://github.com/joodland/bm][Visible bookmarks in buffer (bm)]] for bookmarking.
@@ -5568,7 +5581,7 @@ References about customization:
55685581
(load custom-file)
55695582
)
55705583

5571-
(add-hook 'kill-emacs-query-functions 'custom-prompt-customize-unsaved-options)
5584+
;;(add-hook 'kill-emacs-query-functions 'custom-prompt-customize-unsaved-options)
55725585
#+end_src
55735586

55745587
** Encoding system
@@ -9135,6 +9148,34 @@ Some usefule key bindings and commands:
91359148
)
91369149
#+end_src
91379150

9151+
9152+
*** Dired-Sidebar
9153+
9154+
[[https://github.com/jojojames/dired-sidebar][Dired-sidebar]] is a sidebar enhancement for dired.
9155+
9156+
#+begin_src emacs-lisp :tangle config/init-basic-handling.el
9157+
;;
9158+
;; A fancy sidebar for dired
9159+
;;
9160+
(use-package dired-sidebar
9161+
:commands (dired-sidebar-toggle-sidebar)
9162+
;:init
9163+
; (add-hook 'dired-sidebar-mode-hook
9164+
; (lambda ()
9165+
; (unless (file-remote-p default-directory)
9166+
; (auto-revert-mode))))
9167+
;:config
9168+
; (push 'toggle-window-split dired-sidebar-toggle-hidden-commands)
9169+
; (push 'rotate-windows dired-sidebar-toggle-hidden-commands)
9170+
; (setq dired-sidebar-subtree-line-prefix "__")
9171+
; (setq dired-sidebar-theme 'vscode)
9172+
; (setq dired-sidebar-use-term-integration t)
9173+
; (setq dired-sidebar-use-custom-font t)
9174+
:bind
9175+
("C-c C-s" . dired-sidebar-toggle-sidebar)
9176+
)
9177+
#+end_src
9178+
91389179
*** CANCELED Testing Dirvish
91399180

91409181
#+begin_src emacs-lisp :tangle no config/init-basic-handling.el
@@ -9199,6 +9240,7 @@ Some usefule key bindings and commands:
91999240
(dirvish-attributes '(all-the-icons collapse subtree-state vc-state git-msg))
92009241

92019242
:config
9243+
(setq dirvish-cache-dir psimacs/config/dirvish-dir)
92029244

92039245
;; Enable mouse drag-and-drop files to other applications
92049246
(setq dired-listing-switches
@@ -9240,6 +9282,48 @@ Some usefule key bindings and commands:
92409282
("M-e" . dirvish-emerge-menu)
92419283
("M-j" . dirvish-fd-jump))
92429284
)
9285+
9286+
(use-package dirvish
9287+
:init
9288+
(dirvish-override-dired-mode)
9289+
:custom
9290+
(dirvish-quick-access-entries ; It's a custom option, `setq' won't work
9291+
'(("h" "~/" "Home")
9292+
("d" "~/Downloads/" "Downloads")
9293+
("m" "/mnt/" "Drives")
9294+
("t" "~/.local/share/Trash/files/" "TrashCan")))
9295+
:config
9296+
(setq dirvish-cache-dir psimacs/config/dirvish-dir)
9297+
;; (dirvish-peek-mode) ; Preview files in minibuffer
9298+
;; (dirvish-side-follow-mode) ; similar to `treemacs-follow-mode'
9299+
(setq dirvish-mode-line-format
9300+
'(:left (sort symlink) :right (omit yank index)))
9301+
(setq dirvish-attributes
9302+
'(all-the-icons file-time file-size collapse subtree-state vc-state git-msg))
9303+
(setq delete-by-moving-to-trash t)
9304+
(setq dired-listing-switches
9305+
"-l --almost-all --human-readable --group-directories-first --no-group")
9306+
:bind ; Bind `dirvish|dirvish-side|dirvish-dwim' as you see fit
9307+
(("C-c f" . dirvish-fd)
9308+
:map dirvish-mode-map ; Dirvish inherits `dired-mode-map'
9309+
("a" . dirvish-quick-access)
9310+
("f" . dirvish-file-info-menu)
9311+
("y" . dirvish-yank-menu)
9312+
("N" . dirvish-narrow)
9313+
("^" . dirvish-history-last)
9314+
("h" . dirvish-history-jump) ; remapped `describe-mode'
9315+
("s" . dirvish-quicksort) ; remapped `dired-sort-toggle-or-edit'
9316+
("v" . dirvish-vc-menu) ; remapped `dired-view-file'
9317+
("TAB" . dirvish-subtree-toggle)
9318+
("M-f" . dirvish-history-go-forward)
9319+
("M-b" . dirvish-history-go-backward)
9320+
("M-l" . dirvish-ls-switches-menu)
9321+
("M-m" . dirvish-mark-menu)
9322+
("M-t" . dirvish-layout-toggle)
9323+
("M-s" . dirvish-setup-menu)
9324+
("M-e" . dirvish-emerge-menu)
9325+
("M-j" . dirvish-fd-jump))
9326+
)
92439327
#+end_src
92449328

92459329
*** Long Buffer Lines
@@ -16647,7 +16731,7 @@ The following are basic [[https://code.orgmode.org/bzg/org-mode][org-mode]] sett
1664716731
;;
1664816732
(setq
1664916733
org-todo-keywords '(
16650-
(sequence "TODO(t/!)" "WORK(w/!)" "WAIT(a/!)" "HOLD(h@/!)" "|" "DONE(d/!)" "STOP(s@/!)")
16734+
(sequence "TODO(t/!)" "WORK(w/!)" "WAIT(a/!)" "HOLD(h@/!)" "PR(p@/!)" "MERGING(m@/!)" "|" "DONE(d/!)" "STOP(s@/!)" "MERGED(d/!)")
1665116735
(sequence "REPORT(r/!)" "BUG(b/!)" "FEEDBACK(f@/!)" "WAITING(i@/!)" "VERIFY(v@/!)" "KNOWNCAUSE(k@/!)" "|" "FIXED(x/!)")
1665216736
(sequence "|" "CANCELED(c@/!)" "DELEGATED(e@/!)")
1665316737
)
@@ -16659,6 +16743,9 @@ The following are basic [[https://code.orgmode.org/bzg/org-mode][org-mode]] sett
1665916743
("WORK" . (:foreground "LawnGreen" :weight bold))
1666016744
("WAIT" . (:foreground "DeepPink" :weight bold))
1666116745
("HOLD" . (:foreground "DeepPink" :weight bold))
16746+
("PR" . (:foreground "DeepPink" :weight bold))
16747+
("MERGING" . (:foreground "LawnGreen" :weight bold))
16748+
("MERGED" . (:foreground "DimGray" :weight bold)) ;(org-done))
1666216749
("DONE" . (:foreground "DimGray" :weight bold)) ;(org-done))
1666316750
("STOP" . (:foreground "DimGray" :weight bold)) ;(org-done))
1666416751

@@ -16746,8 +16833,11 @@ A list of useful tags is predefined by *Psimacs*.
1674616833
("work" . (:foreground "OrangeRed"))
1674716834
("wait" . (:foreground "OrangeRed"))
1674816835
("hold" . (:foreground "OrangeRed"))
16836+
("pr" . (:foreground "OrangeRed"))
16837+
("merging" . (:foreground "OrangeRed"))
1674916838
("done" . (:foreground "OrangeRed"))
1675016839
("stop" . (:foreground "OrangeRed"))
16840+
("merged" . (:foreground "OrangeRed"))
1675116841
("report" . (:foreground "OrangeRed"))
1675216842
("bug" . (:foreground "OrangeRed"))
1675316843
("feedback" . (:foreground "OrangeRed"))
@@ -16781,8 +16871,7 @@ A list of useful tags is predefined by *Psimacs*.
1678116871

1678216872
;; Available key shortcuts for further tags.
1678316873
;; h j k u
16784-
;; G M N Q U
16785-
;; 0
16874+
;; G N U
1678616875

1678716876
(setq org-tag-persistent-alist
1678816877
'(
@@ -16844,8 +16933,11 @@ A list of useful tags is predefined by *Psimacs*.
1684416933
("work" . ?W)
1684516934
("wait" . ?A)
1684616935
("hold" . ?H)
16936+
("pr" . ?Q)
16937+
("merging" . ?M)
1684716938
("done" . ?D)
1684816939
("stop" . ?S)
16940+
("merged" . ?0)
1684916941

1685016942
("report" . ?R)
1685116943
("bug" . ?B)
@@ -16906,24 +16998,27 @@ For each /ToDo/-state a corresponding /tag/ is defined above. This section defin
1690616998
:config
1690716999
(setq org-todo-state-tags-triggers
1690817000
(quote (
16909-
("" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("" . nil))
16910-
("TODO" ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("todo" . t))
16911-
("WORK" ("todo") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("work" . t))
16912-
("WAIT" ("todo") ("work") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("wait" . t))
16913-
("HOLD" ("todo") ("work") ("wait") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("hold" . t))
16914-
("DONE" ("todo") ("work") ("wait") ("hold") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("done" . t))
16915-
("STOP" ("todo") ("work") ("wait") ("hold") ("done") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("stop" . t))
16916-
16917-
("REPORT" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("report" . t))
16918-
("BUG" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("bug" . t))
16919-
("FEEDBACK" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("feedback" . t))
16920-
("WAITING" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("waiting" . t))
16921-
("VERIFY" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("knowncause") ("fixed") ("canceled") ("delegated") ("verify" . t))
16922-
("KNOWNCAUSE" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("fixed") ("canceled") ("delegated") ("knowncause" . t))
16923-
("FIXED" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("canceled") ("delegated") ("fixed" . t))
16924-
16925-
("CANCELED" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("delegated") ("canceled" . t))
16926-
("DELEGATED" ("todo") ("work") ("wait") ("hold") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated" . t))
17001+
("" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("" . nil))
17002+
("TODO" ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("todo" . t))
17003+
("WORK" ("todo") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("work" . t))
17004+
("WAIT" ("todo") ("work") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("wait" . t))
17005+
("HOLD" ("todo") ("work") ("wait") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("hold" . t))
17006+
("PR" ("todo") ("work") ("wait") ("hold") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("pr" . t))
17007+
("MERGING" ("todo") ("work") ("wait") ("hold") ("pr") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("merging" . t))
17008+
("DONE" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("done" . t))
17009+
("STOP" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("stop" . t))
17010+
("MERGED" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("merged" . t))
17011+
17012+
("REPORT" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("report" . t))
17013+
("BUG" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("bug" . t))
17014+
("FEEDBACK" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("feedback" . t))
17015+
("WAITING" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated") ("waiting" . t))
17016+
("VERIFY" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("knowncause") ("fixed") ("canceled") ("delegated") ("verify" . t))
17017+
("KNOWNCAUSE" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("fixed") ("canceled") ("delegated") ("knowncause" . t))
17018+
("FIXED" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("canceled") ("delegated") ("fixed" . t))
17019+
17020+
("CANCELED" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("delegated") ("canceled" . t))
17021+
("DELEGATED" ("todo") ("work") ("wait") ("hold") ("pr") ("merging") ("done") ("stop") ("merged") ("report") ("bug") ("feedback") ("waiting") ("verify") ("knowncause") ("fixed") ("canceled") ("delegated" . t))
1692717022
))
1692817023
)
1692917024
)
@@ -17980,6 +18075,8 @@ Prettify headings and plain lists in Org mode. Package [[https://github.com/inte
1798018075
; ("WORK" . ?☐)
1798118076
; ("WAIT" . ?☐)
1798218077
; ("HOLD" . ?☐)
18078+
; ("PR" . ?☐)
18079+
; ("MERGE" . ?☐)
1798318080
; ("DONE" . ?✔)
1798418081
; ("STOP" . ?☐)
1798518082
;

0 commit comments

Comments
 (0)