From 88d8ae93d3ef28373f5b0c9687f3237530b3df7c Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Mon, 27 Jan 2020 03:16:42 +0900
Subject: [PATCH] Fix nyan-mode set length

---
 emacs.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/emacs.el b/emacs.el
index 8be748e..8171038 100644
--- a/emacs.el
+++ b/emacs.el
@@ -800,11 +800,16 @@ THEM are function and its args."
                   ;;          (when f
                   ;;            (abbreviate-file-name f))))
                   ))
+  (defun my-nyan-set-length (&rest _)
+    "Set `nyan-mode' length to window width."
+    (set-variable 'nyan-bar-length
+                  (- (window-size nil t) 4)
+                  t))
   (add-hook 'window-configuration-change-hook
-            (lambda ()
-              (set-variable 'nyan-bar-length
-                            (- (window-size nil t) 4)
-                            t))))
+            'my-nyan-set-length)
+  (add-hook 'switch-buffer-functions
+            'my-nyan-set-length)
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; letters, font-lock mode and fonts