Emacs u-nya-mode

u-nya.el

(defgroup u-nya nil
  "Showing u-nya on mode-line."
  :prefix "u-nya-"
  :group 'frames)

(defface u-nya:face
  nil
  "Face for modeline"
  :group 'u-nya)

(provide 'nyan-mode)

(defvar u-nya:pattern
  '(
    "(」・ω・)」うー！　"
    "(／・ω・)／にゃー！"
    "(」・ω・)」うー！　"
    "(／・ω・)／にゃー！"
    "(」・ω・)」うー！　"
    "(／・ω・)／にゃー！"
    "Let's＼(・ω・)／にゃー！"
    ))

(defvar u-nya:index 0)

(defun u-nya:update ()
  (setq global-mode-string (propertize (nth u-nya:index u-nya:pattern) 'face 'u-nya:face))
  (setq u-nya:index (if (= u-nya:index (1- (length u-nya:pattern)))
                        0
                      (1+ u-nya:index))))

;;;###autoload
(define-minor-mode u-nya-mode
  ""
  :global t :group 'u-nya
  (if u-nya-mode
      (progn
        (add-hook 'post-command-hook 'u-nya:update))
    (progn
      (setq global-mode-string "")
      (remove-hook 'post-command-hook 'u-nya:update))))

(provide 'u-nya-mode)