Browse Source

Colorrize

master
10sr 6 years ago
parent
commit
f0b28b171e
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 6 additions and 2 deletions
  1. +6
    -2
      emacs.el

+ 6
- 2
emacs.el View File

@@ -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


Loading…
Cancel
Save