From f3dd21d0a5c6a523047f407069b4b8208e8ba1a0 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 17 Oct 2018 18:45:11 +0900
Subject: [PATCH] Change wdired and wgrep keybind

---
 emacs.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/emacs.el b/emacs.el
index 405f371..ff2d86e 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-17 17:56:45 JST 10sr>
+;; Time-stamp: <2018-10-17 18:45:09 JST 10sr>
 
 ;;; Code:
 
@@ -818,7 +818,7 @@ found, otherwise returns nil."
 (when (safe-require-or-eval 'wgrep)
   (defvar grep-mode-map)
   (define-key grep-mode-map
-    "w"
+    "e"
     'wgrep-change-to-wgrep-mode))
 
 (with-eval-after-load 'remember
@@ -1497,7 +1497,7 @@ ARG is num to show, or defaults to 7."
   (defvar dired-mode-map (make-sparse-keymap))
   ;; dired-do-chgrp sometimes cause system hung
   (define-key dired-mode-map "G" 'ignore)
-  (define-key dired-mode-map "w" 'wdired-change-to-wdired-mode)
+  (define-key dired-mode-map "e" 'wdired-change-to-wdired-mode)
   (define-key dired-mode-map "i" 'dired-get-file-info)
   (define-key dired-mode-map "f" 'find-file)
   (define-key dired-mode-map "!" 'shell-command)
@@ -2345,10 +2345,15 @@ TYPE is target object type."
         (let ((inhibit-read-only t))
           (with-temp-buffer
             (if commitish
+                ;; TODO: Somehow color will be diasbled
+                ;; TODO: branch info after commit sha1 (like (HEAD -> master))
+                ;; not appear
                 (progn (git-walktree--call-process nil
+                                                   "-c"
+                                                   "color.ui=always"
                                                    "show"
                                                    "--no-patch"
-                                                   "--color"
+                                                   "--color=always"
                                                    "--pretty=short"
                                                    commitish)
                        (ansi-color-apply-on-region (point-min)
@@ -2357,8 +2362,8 @@ TYPE is target object type."
                        (insert (format "Contents of '%s:%s':\n"
                                        (git-walktree--commitish-fordisplay commitish)
                                        path)))
-              (insert (format "Contents of treeish object '%s:\n"
-                              treeish)))
+                (insert (format "Contents of treeish object '%s:\n"
+                                treeish)))
             (setq point-tree-start (point))
             (git-walktree--call-process nil
                                         "ls-tree"