;;; module-dired.el --- dired stuff
;;;
;;; Commentary:
;;;
;;; Configure settings and extensions for Dired.
;;;
;;; Code:

(require 'module-pkg)
(require 'dired)

(pkg/require 'dired-sidebar)

(defun my/dired-duplicate-file (file)
  "Duplicate the current FILE in Dired."
  (interactive "p")
  (let ((filename (dired-get-filename))
				(target '()))
    (setq target (concat (file-name-sans-extension filename)
												 "-old"
												 (if (> file 1) (number-to-string file))
												 (file-name-extension filename t)))
    (if (file-directory-p filename)
				(copy-file filename target))))

(global-set-key (kbd "<f12>") 'dired-sidebar-toggle-sidebar)
(define-key dired-mode-map (kbd "C-c d") 'my/dired-duplicate-file)

(provide 'module-dired)

;;; module-dired.el ends here.