spacemacs/layers/colors/extensions.el

;;; extensions.el --- Colors Layer Extensions File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(setq colors-post-extensions '(nyan-mode))

(defun colors/init-nyan-mode ()
  (use-package nyan-mode
    :if colors-enable-nyan-cat-progress-bar
    :config
    (progn
      (setq nyan-wavy-trail t)
      (setq nyan-animate-nyancat t)
      (nyan-mode)

      (spacemacs|add-toggle nyan-cat-progress-bar
        :status nyan-mode
        :on (nyan-mode)
        :off (nyan-mode -1)
        :documentation "Show a nyan cat progress bar in the mode-line."
        :evil-leader "tmn")

      (defun spacemacs/powerline-nyan-cat ()
        "Construct a powerline segment for nyan cat."
        (let* ((active (powerline-selected-window-active))
               (l (1+ (truncate (powerline-width lhs))))
               (r (1+ (truncate (powerline-width rhs))))
               (face1 (if active 'powerline-active1 'powerline-inactive1))
               (face2 (if active 'powerline-active2 'powerline-inactive2))
               (separator-left
                (intern (format "powerline-%s-%s"
                                powerline-default-separator
                                (car powerline-default-separator-dir))))
               (separator-right
                (intern (format "powerline-%s-%s"
                                powerline-default-separator
                                (cdr powerline-default-separator-dir)))))
          (setq nyan-bar-length (min 32 (/ (- (window-total-width) l r) 2)))
          (list
           (funcall separator-right face2 face1)
           (powerline-raw (nyan-create) face1)
           (funcall separator-left face1 face2)))))))