|
| 1 | +;;; me-dirvish.el --- Dirvish integration -*- lexical-binding: t; -*- |
| 2 | + |
| 3 | +;; Copyright (C) 2022-2024 Abdelhak Bougouffa |
| 4 | + |
| 5 | +;; Author: Abdelhak Bougouffa (rot13 "nobhtbhssn@srqbencebwrpg.bet") |
| 6 | + |
| 7 | +;;; Commentary: |
| 8 | + |
| 9 | +;; Causing some errors (detected on Emacs 30.0.60), printing contineously to the messages buffer |
| 10 | +;; |
| 11 | +;; Error during redisplay: (eval (dirvish-sort-ml dv) t) signaled (void-variable dv) |
| 12 | +;; Error during redisplay: (eval (dirvish-file-time-ml dv) t) signaled (void-variable dv) |
| 13 | +;; Error during redisplay: (eval (dirvish-symlink-ml dv) t) signaled (void-variable dv) |
| 14 | +;; Error during redisplay: (eval (dirvish-omit-ml dv) t) signaled (void-variable dv) |
| 15 | +;; Error during redisplay: (eval (dirvish-yank-ml dv) t) signaled (void-variable dv) |
| 16 | +;; Error during redisplay: (eval (dirvish-index-ml dv) t) signaled (void-variable dv) |
| 17 | +;; Error during redisplay: (eval (dirvish-path-ml dv) t) signaled (void-variable dv) |
| 18 | + |
| 19 | +;;; Code: |
| 20 | + |
| 21 | +(use-package dirvish |
| 22 | + :straight t |
| 23 | + :after dired |
| 24 | + :demand |
| 25 | + :custom |
| 26 | + (dirvish-attributes '(subtree-state nerd-icons file-size)) |
| 27 | + (dirvish-mode-line-format '(:left (sort file-time symlink) :right (omit yank index))) |
| 28 | + (dirvish-side-width 30) |
| 29 | + (dirvish-fd-default-dir "~/") |
| 30 | + (dirvish-use-header-line t) ; 'global make header line span all panes |
| 31 | + (dirvish-use-mode-line t) |
| 32 | + (dirvish-subtree-state-style 'nerd) |
| 33 | + :config |
| 34 | + ;; Cscope generate *.po files which that makes dirvish preview freeze |
| 35 | + (push "po" dirvish-preview-disabled-exts) |
| 36 | + ;; Use `nerd-icons' for path separators (from https://github.com/rainstormstudio/nerd-icons.el) |
| 37 | + (with-eval-after-load 'nerd-icons |
| 38 | + (setq dirvish-path-separators (list (format " %s " (nerd-icons-codicon "nf-cod-home")) |
| 39 | + (format " %s " (nerd-icons-codicon "nf-cod-root_folder")) |
| 40 | + (format " %s " (nerd-icons-faicon "nf-fa-angle_right"))))) |
| 41 | + (dirvish-override-dired-mode 1)) |
| 42 | + |
| 43 | + |
| 44 | +(provide 'obsolete/me-dirvish) |
| 45 | +;;; me-dirvish.el ends here |
0 commit comments