From ad72151a4e757b2acba7584b5e904731f07a2451 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Mon, 8 Apr 2019 19:21:59 +0900
Subject: [PATCH] Configure header-line-format

---
 emacs.el | 24 ++++++++++++++++++++----
 1 file changed, 20 insertions(+), 4 deletions(-)

diff --git a/emacs.el b/emacs.el
index 61b83f4..7280c4b 100644
--- a/emacs.el
+++ b/emacs.el
@@ -572,6 +572,12 @@ found, otherwise returns nil."
   (defvar helm-map)
   (define-key helm-map (kbd "C-h") (kbd "DEL")))
 
+(setq-default header-line-format
+              '(:eval (let ((f (or (buffer-file-name)
+                                   default-directory)))
+                        (when f
+                          (abbreviate-file-name f)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; letters, font-lock mode and fonts
 
@@ -1910,6 +1916,11 @@ and search from projectile root (if projectile is available)."
 (defalias 'make 'compile)
 (define-key ctl-x-map "c" 'compile)
 
+
+(define-key ctl-x-map (kbd "C-r") 'recently-show)
+(define-key ctl-x-map "T" 'git-worktree)
+(define-key ctl-x-map "W" 'git-walktree)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; editorconfig-auto-apply
 
@@ -1949,10 +1960,6 @@ and search from projectile root (if projectile is available)."
 
 
 
-(define-key ctl-x-map (kbd "C-r") 'recently-show)
-(define-key ctl-x-map "T" 'git-worktree)
-(define-key ctl-x-map "W" 'git-walktree)
-
 ;;;;;;;;;;;;;;;;
 ;; flychcek-black
 
@@ -2058,6 +2065,15 @@ and search from projectile root (if projectile is available)."
 (set-variable 'flycheck-python-mypy-ini
               ".mypy.ini")
 
+
+;;;;;;;;;;;;;;;;;;;
+;; peek-file-mode
+
+(defun peek-file (file)
+  "Peek FILE."
+  (interactive)
+  (message "%s" file))
+
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
 ;; flycheck-checker: emacs-lisp