50 lines
1.9 KiB
EmacsLisp
50 lines
1.9 KiB
EmacsLisp
;;; 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)))))))
|