Show nyan-cat in header-line

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