;;; dired-custom.el --- Custom dired config -*- lexical-binding: t -*-

;; This file is not part of GNU Emacs

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.


;;; Commentary:

;; commentary

;;; Code:

(require 'dired)
(require 'dired-x)
(require 'dired-aux)

(setq dired-recursive-deletes t)
(setq dired-recursive-copies t)

(defun dired-init ()
  "Theurgy Dired config."
  ;; Hide file permissions
  (dired-hide-details-mode 1)
  ;; Enable omit mode by default
  (dired-omit-mode 1)
  ;; Enable async mode by default
  (dired-async-mode 1)
  ;; Kill new buffers
  (when (>= emacs-major-version 28)
    (setq dired-kill-when-opening-new-dired-buffer t))
  (when (< emacs-major-version 28)
    (progn
      (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file)
      (define-key dired-mode-map (kbd "^") (lambda () (interactive) (find-alternate-file "..")))))
  ;; Toggle hidden files
  (setq dired-omit-files
	(concat dired-omit-files "\\|^\\..+$"))
  (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
  ;; Human readable file size
  (setq dired-listing-switches "-lah")
  ;; Create directories when copying
  (setq dired-create-destination-dirs t)
  (setq dired-create-destination-dirs-on-trailing-dirsep t))

(add-hook 'dired-mode-hook 'dired-init)
(add-hook 'dired-mode-hook 'auto-revert-mode)

;; Icons in dired
(use-package all-the-icons-dired
  :config
  (add-hook 'dired-mode-hook 'all-the-icons-dired-mode))

(defcustom theurgy-enable-pdf-tools (equal system-type 'gnu/linux)
  "Whether `pdf-tools' should be enabled on Windows sytems."
  :type 'boolean
  :group 'theurgy
  :group 'theurgy-compat)

(defcustom theurgy-enable-ready-player (equal system-type 'gnu/linux)
  "Whether `ready-player' should be enabled on Windows sytems."
  :type 'boolean
  :group 'theurgy
  :group 'theurgy-compat)

;; Multimedia and PDF viewing
(when theurgy-enable-ready-player
  (use-package ready-player
    :ensure t
    :config
    (setq ready-player-autoplay nil)
    (ready-player-mode 1)))

(when theurgy-enable-pdf-tools
  (use-package pdf-tools
    :config (pdf-loader-install)))


;; 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)))

;; (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)))))

(use-package neotree
  :config
  (define-key global-map (kbd "<f8>") 'neotree-toggle)
  (when (equal system-type 'android)
    (define-key global-map (kbd "<XF86Back>") 'neotree-toggle))
  (setq neo-theme (if (display-graphic-p) 'icons 'arrow)))

(provide 'dired-custom)

;;; dired-custom.el ends here