Set major mode

emacs.el

@@ -1,6 +1,6 @@
 ;;; emacs.el --- 10sr emacs initialization
 
-;; Time-stamp: <2018-10-12 12:45:32 JST 10sr>
+;; Time-stamp: <2018-10-12 13:14:35 JST 10sr>
 
 ;;; Code:
 
@@ -2254,6 +2254,10 @@ use for the buffer. It defaults to \"*recetf-show*\"."
   "Path name currently visiting without leading slash.")
 (make-variable-buffer-local 'git-revision-current-path)
 
+;; (defvar git-revision-repository-path nil
+;;   "Path of current git repository root.")
+;; (make-variable-buffer-local 'git-revision-repository-path)
+
 (defun git-revision--create-buffer (commitish name)
   "Create and return buffer for NAME."
   (get-buffer-create (format "*GitRevision<%s:%s>*" (or commitish "") name)))
@@ -2285,8 +2289,9 @@ use for the buffer. It defaults to \"*recetf-show*\"."
                                     ;; "-r"
                                     "--abbrev"
                                     treeish))
-      (goto-char point)
       (git-revision-mode)
+      (goto-char point)
+
       (setq git-revision-current-commitish commitish)
       (setq git-revision-current-path path)
       )
@@ -2308,24 +2313,36 @@ Result will be inserted into current buffer."
              args))))
 
 (defun git-revision--open-blob (commitish path blob)
-  "Open blob OBJECT which has NAME."
-  (let ((type (git-revision--git-plumbing "cat-file"
+  "Open BLOB object."
+  (let (point
+        (type (git-revision--git-plumbing "cat-file"
                                           "-t"
                                           blob))
         (buf (git-revision--create-buffer commitish path)))
     (cl-assert (string= type "blob"))
     (with-current-buffer buf
-      (erase-buffer)
-      (git-revision--call-process nil
-                                  "cat-file"
-                                  "-p"
-                                  blob)
+      (let ((inhibit-read-only t))
+        (setq point (point))
+        (erase-buffer)
+        (git-revision--call-process nil
+                                    "cat-file"
+                                    "-p"
+                                    blob))
       ;; after-find-file?
       ;; set-major-mode?
+      (setq buffer-file-name
+            (concat (git-revision--git-plumbing "rev-parse"
+                                                "--show-toplevel")
+                    "/git@"
+                    commitish
+                    ":"
+                    path))
+      (normal-mode t)
 
       (setq git-revision-current-commitish commitish)
       (setq git-revision-current-path path)
-      (goto-char (point-min))
+      (setq buffer-read-only t)
+      (goto-char point)
       )
     buf))