yet, there won't be a keymap to add to, so add our setup function to the
load hook only. Otherwise just bind the keys.
#+BEGIN_SRC emacs-lisp :tangle yes
-(if (boundp 'dired-mode-map)
- ;; we're good to go; just add our bindings
- (my-dired-init)
- ;; it's not loaded yet, so add our bindings to the load-hook
- (add-hook 'dired-load-hook 'my-dired-init))
+(autoload 'wdired-change-to-wdired-mode "wdired")
+(eval-after-load "dired"
+ '(lambda ()
+ (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
+ (define-key dired-mode-map
+ [menu-bar immediate wdired-change-to-wdired-mode]
+ '("Edit File Names" . wdired-change-to-wdired-mode))
+ (define-key dired-mode-map [return] 'dired-single-buffer)
+ (define-key dired-mode-map [mouse-1] 'dired-single-buffer-mouse)
+ (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
+ (define-key dired-mode-map "^"
+ (function
+ (lambda nil (interactive) (dired-single-buffer ".."))))))
+
#+END_SRC
A few settings
"* TODO %?\nAdded: %U\n\n \n"
:clock-in t :clock-resume t :jump-to-captured t :prepend t)
("u" "Puppet Todo" entry (file "~/git/puppet/TODO.org")
- "* TODO %?\nAdded: %U\n\n \n")
+ "* %?\nAdded: %U\n\n \n")
))
#+END_SRC
;;; Code:
-;;;###autoload
-(defun my-dired-init ()
- "Bunch of stuff to run for dired when it's loaded."
- (define-key dired-mode-map [return] 'dired-single-buffer)
- (define-key dired-mode-map [mouse-1] 'dired-single-buffer-mouse)
- (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
- (define-key dired-mode-map "^"
- (function
- (lambda nil (interactive) (dired-single-buffer "..")))))
-
;;;###autoload
(defun ido-disable-line-trucation () (set (make-local-variable 'truncate-lines) nil))