Make chicken more ergonomic and remove dired previews
This commit is contained in:
parent
a75f9188f6
commit
ebbe94030f
2 changed files with 104 additions and 35 deletions
|
|
@ -89,36 +89,36 @@
|
|||
|
||||
|
||||
;; Preview files
|
||||
(defun dired-preview-to-the-right ()
|
||||
"My preferred `dired-preview-display-action-alist-function'."
|
||||
'((display-buffer-in-side-window)
|
||||
(side . right)
|
||||
(slot . 0)
|
||||
(window-width . 0.3)))
|
||||
;; (defun dired-preview-to-the-right ()
|
||||
;; "My preferred `dired-preview-display-action-alist-function'."
|
||||
;; '((display-buffer-in-side-window)
|
||||
;; (side . right)
|
||||
;; (slot . 0)
|
||||
;; (window-width . 0.3)))
|
||||
|
||||
(use-package dired-preview
|
||||
:after (ready-player)
|
||||
:config
|
||||
(setq dired-preview-display-action-alist #'dired-preview-to-the-right)
|
||||
(setq dired-preview-buffer-name-indicator "[Preview]")
|
||||
(setq dired-preview-ignored-extensions-regexp
|
||||
(concat "\\."
|
||||
"\\(gz\\|"
|
||||
"zst\\|"
|
||||
"tar\\|"
|
||||
"xz\\|"
|
||||
"rar\\|"
|
||||
"zip\\|"
|
||||
"iso\\|"
|
||||
"epub"
|
||||
"\\)"))
|
||||
(unless (equal system-type 'android) (dired-preview-global-mode 1)))
|
||||
;; (use-package dired-preview
|
||||
;; :after (ready-player)
|
||||
;; :config
|
||||
;; (setq dired-preview-display-action-alist #'dired-preview-to-the-right)
|
||||
;; (setq dired-preview-buffer-name-indicator "[Preview]")
|
||||
;; (setq dired-preview-ignored-extensions-regexp
|
||||
;; (concat "\\."
|
||||
;; "\\(gz\\|"
|
||||
;; "zst\\|"
|
||||
;; "tar\\|"
|
||||
;; "xz\\|"
|
||||
;; "rar\\|"
|
||||
;; "zip\\|"
|
||||
;; "iso\\|"
|
||||
;; "epub"
|
||||
;; "\\)"))
|
||||
;; (unless (equal system-type 'android) (dired-preview-global-mode 1)))
|
||||
|
||||
;; Automatically kill preview buffers when opening a file
|
||||
(add-hook 'find-file-hook (lambda ()
|
||||
(dolist (buf (buffer-list))
|
||||
(when (string-match-p "\\[Preview\\]" (buffer-name buf))
|
||||
(kill-buffer buf)))))
|
||||
;; ;; Automatically kill preview buffers when opening a file
|
||||
;; (add-hook 'find-file-hook (lambda ()
|
||||
;; (dolist (buf (buffer-list))
|
||||
;; (when (string-match-p "\\[Preview\\]" (buffer-name buf))
|
||||
;; (kill-buffer buf)))))
|
||||
|
||||
(use-package neotree
|
||||
:config
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue