From f0b28b171ebde5aec6bb74905ff80c91bb634bb4 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 12 Oct 2018 18:53:38 +0900
Subject: [PATCH] Colorrize

---
 emacs.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index 19c2831..b5df50a 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-12 17:46:24 JST 10sr>
+;; Time-stamp: <2018-10-12 18:52:50 JST 10sr>
 
 ;;; Code:
 
@@ -2267,6 +2267,7 @@ use for the buffer. It defaults to \"*recetf-show*\"."
                                       commitish)))
   (get-buffer-create (format "%s:%s" (or commitish "") name)))
 
+(require 'ansi-color)
 (defun git-walktree--open-treeish (commitish path treeish)
   "Open git tree buffer of TREEISH."
   (let (point
@@ -2288,8 +2289,11 @@ use for the buffer. It defaults to \"*recetf-show*\"."
             (git-walktree--call-process nil
                                         "show"
                                         "--no-patch"
+                                        "--color"
                                         "--pretty=short"
                                         commitish)
+            (ansi-color-apply-on-region (point-min)
+                                        (point))
             (insert "\n"))
           (setq point-tree-start (point))
           (insert "Contents of treeish object '")
@@ -2540,7 +2544,7 @@ If not given, value of current buffer will be used."
     )
   "Syntax highlighting for git-walktree mode.")
 
-(define-derived-mode git-walktree-mode special-mode "git-walktree"
+(define-derived-mode git-walktree-mode special-mode "GitWalktree"
   "Major-mode for `git-walktree-open'."
   (set (make-local-variable 'font-lock-defaults)
        '(git-walktree-mode-font-lock-keywords