32 lines
790 B
EmacsLisp
32 lines
790 B
EmacsLisp
;;; 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.
|