From 6420fee7ca4df8abf3d58deda77934ebf3fa6921 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Mon, 27 Jan 2020 01:41:22 +0900
Subject: [PATCH] Show nyan-cat in header-line

---
 emacs.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/emacs.el b/emacs.el
index a4fe726..1bf46e1 100644
--- a/emacs.el
+++ b/emacs.el
@@ -785,6 +785,24 @@ THEM are function and its args."
                         (when f
                           (abbreviate-file-name f)))))
 
+(when (eval-and-compile (require 'nyan-mode nil t))
+  (setq-default header-line-format
+                '(
+                  ;; (:eval (file-name-nondirectory(directory-file-name (or buffer-file-name
+                  ;;                                                        default-directory))))
+                  ;; "["
+                  (:eval (progn
+                           (set-variable 'nyan-bar-length
+                                         (- (window-size nil t) 4)
+                                         t)
+                           (list (nyan-create))))
+                  ;; "]"
+                  ;; (:eval (let ((f (or (buffer-file-name)
+                  ;;                     default-directory)))
+                  ;;          (when f
+                  ;;            (abbreviate-file-name f))))
+                  )))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; letters, font-lock mode and fonts