howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quick access locations for Dirvish

Browse source
This commit is contained in:
Howard Abrams 2022-11-27 10:41:05 -08:00
parent e65a089e95
commit f114dcc357
1 changed files with 22 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
ha-config.org
View file

@ -2319,12 +2319,17 @@ I’m beginning with dirvish to use the [[https://github.com/alexluigit/dirvish/
(use-package dirvish (use-package dirvish
:init :init
(dirvish-override-dired-mode) (dirvish-override-dired-mode)
:custom
(dirvish-quick-access-entries ; It's a custom option, `setq' won't work
'(("h" "~/" "Home")
("d" "~/Downloads/" "Downloads")))
:config
:custom
(dirvish-quick-access-entries
'(("h" "~/" "Home")
("p" "~/personal" "Personal")
("p" "~/projects" "Projects")
("t" "~/technical" "Technical")
("w" "~/website" "Website")
("d" "~/Downloads/" "Downloads")))
:config
;; This setting is like `treemacs-follow-mode' where the buffer ;; This setting is like `treemacs-follow-mode' where the buffer
;; changes based on the current file. Not sure if I want this: ;; changes based on the current file. Not sure if I want this:
;; (dirvish-side-follow-mode) ;; (dirvish-side-follow-mode)
@ -2335,13 +2340,21 @@ I’m beginning with dirvish to use the [[https://github.com/alexluigit/dirvish/
'(all-the-icons file-time file-size collapse subtree-state vc-state git-msg)) '(all-the-icons file-time file-size collapse subtree-state vc-state git-msg))
(setq delete-by-moving-to-trash t) (setq delete-by-moving-to-trash t)
(setq insert-directory-program "gls") ;; With `ls' as an alias, and `gls' available on _some_ of my systems, I dont:
;; (setq insert-directory-program "gls")
;; And instead use Emacs' built-in directory lister:
(setq insert-directory-program nil)
(setq ls-lisp-use-insert-directory-program nil)
(require 'ls-lisp)
(setq dired-listing-switches (setq dired-listing-switches
"-l --almost-all --human-readable --group-directories-first --no-group") "-l --almost-all --human-readable --group-directories-first --no-group")
(set-face-attribute 'dirvish-hl-line nil :background "darkmagenta") (set-face-attribute 'dirvish-hl-line nil :background "darkmagenta"))
#+end_src
:bind ; Bind `dirvish|dirvish-side|dirvish-dwim' as you see fit While in =dirvish-mode=, we can rebind some keys:
#+begin_src emacs-lisp
(use-package dirvish
:bind
(:map dirvish-mode-map ; Dirvish inherits `dired-mode-map' (:map dirvish-mode-map ; Dirvish inherits `dired-mode-map'
("a" . dirvish-quick-access) ("a" . dirvish-quick-access)
("f" . dirvish-file-info-menu) ("f" . dirvish-file-info-menu)