;;; packages.el --- Spacemacs Mode-line Visual Layer packages File ;; ;; Copyright (c) 2012-2018 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;;; License: GPLv3 (setq spacemacs-modeline-packages '( anzu fancy-battery ;; dependency of spaceline-all-the-icons which came from ;; the emacs wiki, we fetch it from Emacs Mirror for now. ;; TODO eventually remove this if font-lock+ is available ;; in an ELPA repository. (font-lock+ :step pre :location (recipe :fetcher github :repo emacsmirror/font-lock-plus)) neotree spaceline spaceline-all-the-icons symon (vim-powerline :location local) )) (defun spacemacs-modeline/post-init-anzu () (when (eq 'all-the-icons (spacemacs/get-mode-line-theme-name)) (spaceline-all-the-icons--setup-anzu))) (defun spacemacs-modeline/init-fancy-battery () (use-package fancy-battery :defer t :init (progn (spacemacs|add-toggle mode-line-battery :mode fancy-battery-mode :documentation "Display battery info in mode-line." :evil-leader "tmb") (setq-default fancy-battery-show-percentage t)))) (defun spacemacs-modeline/init-font-lock+ ()) (defun spacemacs-modeline/post-init-neotree () (when (eq 'all-the-icons (spacemacs/get-mode-line-theme-name)) (spaceline-all-the-icons--setup-neotree))) (defun spacemacs-modeline/init-spaceline () (use-package spaceline-config :if (memq (spacemacs/get-mode-line-theme-name) '(spacemacs all-the-icons custom)) :init (add-hook 'emacs-startup-hook (lambda () (spacemacs|add-transient-hook window-configuration-change-hook (lambda () (setq spaceline-byte-compile t) (spaceline-compile)) lazy-load-spaceline))) (progn (add-hook 'spacemacs-post-theme-change-hook 'spacemacs/customize-powerline-faces) (add-hook 'spacemacs-post-theme-change-hook 'powerline-reset) (spacemacs|add-toggle mode-line-responsive :status spaceline-responsive :on (progn (setq spaceline-responsive t) (powerline-reset)) :off (progn (setq spaceline-responsive nil) ;; seems necessary to recompile when turning off (spaceline-compile)) :documentation "Make the mode-line responsive." :evil-leader "tmr") ;; Segment toggles (dolist (spec '((minor-modes "tmm") (major-mode "tmM") (version-control "tmv") (new-version "tmV") (point-position "tmp") (org-clock "tmc"))) (let* ((segment (car spec)) (status-var (intern (format "spaceline-%S-p" segment)))) (eval `(spacemacs|add-toggle ,(intern (format "mode-line-%S" segment)) :status ,status-var :on (setq ,status-var t) :off (setq ,status-var nil) :documentation ,(format "Show %s in the mode-line." (replace-regexp-in-string "-" " " (format "%S" segment))) :evil-leader ,(cadr spec))))) (setq powerline-default-separator (cond ((spacemacs-is-dumping-p) 'utf-8) ((memq (spacemacs/get-mode-line-theme-name) '(spacemacs custom)) (spacemacs/mode-line-separator)) (t 'wave)) powerline-image-apple-rgb (eq window-system 'ns) powerline-scale (or (spacemacs/mode-line-separator-scale) 1.5) powerline-height (spacemacs/compute-mode-line-height) spaceline-byte-compile nil)) :config (progn (spacemacs/customize-powerline-faces) (setq spaceline-org-clock-p nil spaceline-highlight-face-func 'spacemacs//evil-state-face) ;; unicode (let ((unicodep (dotspacemacs|symbol-value dotspacemacs-mode-line-unicode-symbols))) (setq spaceline-window-numbers-unicode unicodep spaceline-workspace-numbers-unicode unicodep)) (add-hook 'spaceline-pre-hook 'spacemacs//prepare-diminish) ;; New spacemacs version segment (defpowerline spacemacs-powerline-new-version (propertize spacemacs-version-check-lighter 'mouse-face 'mode-line-highlight 'help-echo (format "New version %s | Click with mouse-1 to update" spacemacs-new-version) 'local-map (let ((map (make-sparse-keymap))) (define-key map [mode-line down-mouse-1] (lambda (event) (interactive "@e") (if (yes-or-no-p (format (concat "Do you want to update to the newest " "version %s ?") spacemacs-new-version)) (progn (spacemacs/switch-to-version spacemacs-new-version)) (message "Update aborted.")))) map))) (spaceline-define-segment new-version (when spacemacs-new-version (spacemacs-powerline-new-version (spacemacs/get-new-version-lighter-face spacemacs-version spacemacs-new-version)))) (let ((theme (intern (format "spaceline-%S-theme" (spacemacs/get-mode-line-theme-name))))) (apply theme spacemacs-spaceline-additional-segments)) ;; Additional spacelines (when (package-installed-p 'helm) (spaceline-helm-mode t)) (when (configuration-layer/package-used-p 'info+) (spaceline-info-mode t)) ;; Enable spaceline for buffers created before the configuration of ;; spaceline (spacemacs//restore-buffers-powerline)))) (defun spacemacs-modeline/pre-init-spaceline-all-the-icons () (when (eq 'all-the-icons (spacemacs/get-mode-line-theme-name)) (spacemacs|use-package-add-hook spaceline-config :pre-config (progn (require 'spaceline-all-the-icons) ;; responsivness does not play well with all-the-icons theme ;; let's disable it for now ;; https://github.com/domtronn/spaceline-all-the-icons.el/issues/51#issuecomment-316686790 (setq spaceline-responsive nil) (spaceline-all-the-icons--setup-git-ahead))))) (defun spacemacs-modeline/init-spaceline-all-the-icons () (use-package spaceline-all-the-icons :defer t :init (progn (setq spaceline-all-the-icons-separator-type (or (spacemacs/mode-line-separator) 'wave) spaceline-all-the-icons-separator-scale (or (spacemacs/mode-line-separator-scale) 1.6))))) (defun spacemacs-modeline/init-symon () (use-package symon :defer t :init (progn (setq symon-delay 0 symon-refresh-rate 2) (spacemacs|add-toggle minibuffer-system-monitor :mode symon-mode :evil-leader "tms")))) (defun spacemacs-modeline/init-vim-powerline () (when (eq 'vim-powerline (spacemacs/get-mode-line-theme-name)) (require 'powerline) (if (display-graphic-p) (setq powerline-default-separator 'arrow) (setq powerline-default-separator 'utf-8)) (defun powerline-raw (str &optional face pad) "Render STR as mode-line data using FACE and optionally PAD import on left (l) or right (r) or left-right (lr)." (when str (let* ((rendered-str (format-mode-line str)) (padded-str (concat (when (and (> (length rendered-str) 0) (or (eq pad 'l) (eq pad 'lr))) " ") (if (listp str) rendered-str str) (when (and (> (length rendered-str) 0) (or (eq pad 'r) (eq pad 'lr))) " ")))) (if face (pl/add-text-property padded-str 'face face) padded-str)))) (require 'vim-powerline-theme) (powerline-vimish-theme) (add-hook 'emacs-startup-hook 'spacemacs//set-vimish-powerline-for-startup-buffers)))