updates
authorJoerg Jaspert <joerg@ganneff.de>
Mon, 12 May 2014 12:49:57 +0000 (14:49 +0200)
committerJoerg Jaspert <joerg@ganneff.de>
Mon, 12 May 2014 12:49:57 +0000 (14:49 +0200)
.emacs.d/config/customized.el
.emacs.d/config/emacs.org
.emacs.d/config/linws03.cms.fra.dlh.de.org
.emacs.d/elisp/local/ganneff.el

index 709109f..caff8d9 100644 (file)
      (xloop . "x-loop")
      (deliveredto . "delivered-to"))))
  '(nnmail-treat-duplicates (quote delete))
- '(notmuch-fcc-dirs nil)
  '(notmuch-saved-searches
    (quote
     (("inbox" . "tag:inbox")
index e6802aa..6bb8f69 100644 (file)
@@ -961,11 +961,20 @@ We want some extra key bindings loaded. In case we haven't loaded dired
 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
index 86b76d8..b9c1042 100644 (file)
@@ -84,7 +84,7 @@ see at home. (Or want different there).
           "* 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
 
index fa3a530..8865d96 100644 (file)
 
 ;;; 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))