From 5d65d6913fe81a18039b1dd13a354cc03a51eeb1 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 12 Oct 2018 13:51:34 +0900
Subject: [PATCH] Add face

---
 emacs.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index d21818c..7aed965 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-12 13:34:46 JST 10sr>
+;; Time-stamp: <2018-10-12 13:49:59 JST 10sr>
 
 ;;; Code:
 
@@ -2337,8 +2337,7 @@ Result will be inserted into current buffer."
                                     "cat-file"
                                     "-p"
                                     blob))
-      ;; after-find-file?
-      ;; set-major-mode?
+      ;; FIXME: Ask for file name when C-xC-s is given
       (setq buffer-file-name
             (concat (git-revision--git-plumbing "rev-parse"
                                                 "--show-toplevel")
@@ -2503,6 +2502,18 @@ If not given, value of current buffer will be used."
                                                        nil))
       (message "Cannot find parent for current buffer."))))
 
+(defgroup git-revision-faces nil
+  "Faces used by git-revision."
+  :group 'git-revision
+  :group 'faces)
+
+(defface git-revision-tree
+  '((t (:inherit font-lock-function-name-face)))
+  "Face used for tree objects."
+  :group 'git-revision-faces)
+(defvar git-revision-tree-face 'git-revision-tree
+  "Face used for tree objects.")
+
 (defvar git-revision-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "n" 'next-line)