my-dired.el

;;; my-dired --- tweaks for dired
;;
;;; Commentary:
;;
;; This syncs a number of minor tweaks to dired usage.
;;
;;; Code:

(eval-when-compile (require 'use-package))

(require 'my-utils)
(require 'my-hydra)

(defun my-dired-enable-recursive-delete ()
  "Enable easy recursive delete for temporary directories."
  (when (-any?
         (lambda (dir) (string-match dir (expand-file-name default-directory)))
         '("/home/alex/tmp/" "/home/alex/Downloads/" "/home/alex/torrent/"))
    (set (make-local-variable 'dired-recursive-deletes) 'always)))

(use-package dired
  :commands dired
  :hook (dired-mode . my-dired-enable-recursive-delete)
  :config (setq dired-dwim-target t))

(use-package dired-async
  :ensure async)

(use-package dired-quick-sort
  :ensure t
  :config (dired-quick-sort-setup))

;; Enable dired-rsync
(use-package dired-rsync
  :load-path (lambda () (my-return-path-if-ok
                         "~/mysrc/dired-rsync.git"))
  :bind (:map dired-mode-map
         ("C-c C-r" . dired-rsync)
         ("C-x t" . casual-dired-tmenu))
  :hook (dired-mode . (lambda () (setq-local mode-line-process
                                             'dired-rsync-modeline-status))))

(defvar my-last-dired-directory
  nil
  "Return the directory DIRED was last killed in.")

(defun my-dired-frame (directory)
  "Open up a DIRED frame in `DIRECTORY' which closes on exit."
  (interactive)
  (switch-to-buffer (dired directory))
  (local-set-key
   (kbd "C-x C-c")
   (lambda ()
     (interactive)
     (setq my-last-dired-directory (file-truename default-directory))
     (kill-this-buffer)
     (save-buffers-kill-terminal 't))))

;; Hydras
(with-eval-after-load 'dired
  (progn
    ;; Global access to dired
    (global-set-key
     (kbd "C-x d")
     (defhydra my-hydra-directory (:exit t :hint nil :color red :timeout 5)
       "
^Dired Browse^   ^Change default-directory^
----------------------------------------------------------------
_f_rom         _c_urrent default-directory: %`default-directory
_b_rowse      _l_ast set default-directory: %`my-last-set-directory
_h_ome        _r_eset default-directory to: %(file-name-directory (or (buffer-file-name) default-directory))
               _s_et new default-directory
"
       ;; Set
       ("s" my-set-default-directory)
       ("l" (lambda ()
              (interactive)
              (my-set-default-directory my-last-set-directory)))
       ("r" (lambda ()
              (interactive)
              (my-set-default-directory
               (file-name-directory (or (buffer-file-name) default-directory)))))
       ;; Browse
       ("f" (lambda () (interactive) (dired default-directory)))
       ("c" (lambda () (interactive) (dired default-directory)))
       ("b" ido-dired)
       ("h" (lambda () (interactive) (dired "~")))))))

(provide 'my-dired)
;;; my-dired.el ends here