;;; packages.el --- Spacemacs UI Visual Layer packages File ;; ;; Copyright (c) 2012-2016 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;;; License: GPLv3 (setq spacemacs-ui-visual-packages '(fancy-battery fill-column-indicator golden-ratio hl-todo leuven-theme neotree popup popwin (smooth-scrolling :location built-in) spaceline (zoom-frm :location local))) (defun spacemacs-ui-visual/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-ui-visual/init-fill-column-indicator () (use-package fill-column-indicator :defer t :init (progn (setq fci-rule-width 1) (setq fci-rule-color "#D0BF8F") ;; manually register the minor mode since it does not define any ;; lighter (push '(fci-mode "") minor-mode-alist) (spacemacs|add-toggle fill-column-indicator :status fci-mode :on (turn-on-fci-mode) :off (turn-off-fci-mode) :documentation "Display the fill column indicator." :evil-leader "tf")) :config (spacemacs|diminish fci-mode " ⓕ" " f"))) (defun spacemacs-ui-visual/init-golden-ratio () (use-package golden-ratio :defer t :init (spacemacs|add-toggle golden-ratio :status golden-ratio-mode :on (golden-ratio-mode) (golden-ratio) :off (golden-ratio-mode -1) (balance-windows) :documentation "Resize the focused window using the golden ratio." :evil-leader "tg") :config (progn (setq golden-ratio-exclude-modes '("bs-mode" "calc-mode" "ediff-mode" "dired-mode" "gud-mode" "gdb-locals-mode" "gdb-registers-mode" "gdb-breakpoints-mode" "gdb-threads-mode" "gdb-frames-mode" "gdb-inferior-io-mode" "gud-mode" "gdb-inferior-io-mode" "gdb-disassembly-mode" "gdb-memory-mode" "restclient-mode" "speedbar-mode" )) (add-to-list 'golden-ratio-exclude-buffer-regexp "^\\*[hH]elm.*") (setq golden-ratio-extra-commands (append golden-ratio-extra-commands '(ace-window ace-delete-window ace-select-window ace-swap-window ace-maximize-window avy-pop-mark evil-avy-goto-word-or-subword-1 evil-avy-goto-line windmove-left windmove-right windmove-up windmove-down evil-window-delete evil-window-split evil-window-vsplit evil-window-left evil-window-right evil-window-up evil-window-down evil-window-bottom-right evil-window-top-left evil-window-mru evil-window-next evil-window-prev evil-window-new evil-window-vnew evil-window-rotate-upwards evil-window-rotate-downwards evil-window-move-very-top evil-window-move-far-left evil-window-move-far-right evil-window-move-very-bottom select-window-0 select-window-1 select-window-2 select-window-3 select-window-4 select-window-5 select-window-6 select-window-7 select-window-8 select-window-9 buf-move-left buf-move-right buf-move-up buf-move-down ess-eval-buffer-and-go ess-eval-function-and-go ess-eval-line-and-go))) ;; Disable auto-resizing for some buffers (defun spacemacs/no-golden-ratio-for-buffers (bufname) "Disable golden-ratio if BUFNAME is the name of a visible buffer." (and (get-buffer bufname) (get-buffer-window bufname 'visible))) (defun spacemacs/no-golden-ratio-guide-key () "Disable golden-ratio for guide-key popwin buffer." (or (spacemacs/no-golden-ratio-for-buffers " *guide-key*") (spacemacs/no-golden-ratio-for-buffers " *popwin-dummy*"))) (add-to-list 'golden-ratio-inhibit-functions 'spacemacs/no-golden-ratio-guide-key) (add-to-list 'golden-ratio-exclude-buffer-names " *NeoTree*") (add-to-list 'golden-ratio-exclude-buffer-names "*LV*") (add-to-list 'golden-ratio-exclude-buffer-names " *which-key*") (spacemacs|diminish golden-ratio-mode " ⓖ" " g")))) (defun spacemacs-ui-visual/init-hl-todo () (use-package hl-todo :defer t :init (spacemacs/add-to-hooks 'hl-todo-mode '(text-mode-hook prog-mode-hook)))) (defun spacemacs-ui-visual/init-leuven-theme () (use-package leuven-theme :defer t :init (setq org-fontify-whole-heading-line t))) (defun spacemacs-ui-visual/init-neotree () (use-package neotree :defer t :commands neo-global--window-exists-p :init (progn (setq neo-window-width 32 neo-create-file-auto-open t neo-banner-message nil neo-show-updir-line nil neo-mode-line-type 'neotree neo-smart-open t neo-dont-be-alone t neo-persist-show nil neo-show-hidden-files t neo-auto-indent-point t neo-modern-sidebar t neo-vc-integration nil) (defun spacemacs//neotree-key-bindings () "Set the key bindings for a neotree buffer." (evilified-state-evilify-map neotree-mode-map :mode neotree-mode :bindings (kbd "TAB") 'neotree-stretch-toggle (kbd "RET") 'neotree-enter (kbd "|") 'neotree-enter-vertical-split (kbd "-") 'neotree-enter-horizontal-split (kbd "?") 'evil-search-backward (kbd "c") 'neotree-create-node (kbd "d") 'neotree-delete-node (kbd "gr") 'neotree-refresh (kbd "h") 'spacemacs/neotree-collapse-or-up (kbd "H") 'neotree-select-previous-sibling-node (kbd "J") 'neotree-select-down-node (kbd "K") 'neotree-select-up-node (kbd "l") 'spacemacs/neotree-expand-or-open (kbd "L") 'neotree-select-next-sibling-node (kbd "q") 'neotree-hide (kbd "r") 'neotree-rename-node (kbd "R") 'neotree-change-root (kbd "s") 'neotree-hidden-file-toggle)) (spacemacs/set-leader-keys "ft" 'neotree-toggle "pt" 'neotree-find-project-root)) :config (spacemacs//neotree-key-bindings))) (defun spacemacs-ui-visual/init-popup ()) (defun spacemacs-ui-visual/init-popwin () (use-package popwin :config (progn (popwin-mode 1) (spacemacs/set-leader-keys "wpm" 'popwin:messages) (spacemacs/set-leader-keys "wpp" 'popwin:close-popup-window) ;; don't use default value but manage it ourselves (setq popwin:special-display-config nil) ;; buffers that we manage (push '("*Help*" :dedicated t :position bottom :stick t :noselect t :height 0.4) popwin:special-display-config) (push '("*compilation*" :dedicated t :position bottom :stick t :noselect t :height 0.4) popwin:special-display-config) (push '("*Shell Command Output*" :dedicated t :position bottom :stick t :noselect nil ) popwin:special-display-config) (push '("*Async Shell Command*" :dedicated t :position bottom :stick t :noselect nil ) popwin:special-display-config) (push '(" *undo-tree*" :dedicated t :position bottom :stick t :noselect nil :height 0.4) popwin:special-display-config) (push '("*ert*" :dedicated t :position bottom :stick t :noselect nil ) popwin:special-display-config) (push '("*grep*" :dedicated t :position bottom :stick t :noselect nil ) popwin:special-display-config) (push '("*nosetests*" :dedicated t :position bottom :stick t :noselect nil ) popwin:special-display-config) (push '("^\*WoMan.+\*$" :regexp t :position bottom ) popwin:special-display-config) (defun spacemacs/remove-popwin-display-config (str) "Removes the popwin display configurations that matches the passed STR" (setq popwin:special-display-config (-remove (lambda (x) (if (and (listp x) (stringp (car x))) (string-match str (car x)))) popwin:special-display-config)))))) (defun spacemacs-ui-visual/init-smooth-scrolling () (setq scroll-preserve-screen-position t scroll-margin 0 scroll-conservatively (if dotspacemacs-smooth-scrolling 101 0)) (spacemacs|add-toggle smooth-scrolling :status (= 101 scroll-conservatively) :on (spacemacs/enable-smooth-scrolling) :off (spacemacs/disable-smooth-scrolling) :documentation "Smooth scrolling." :evil-leader "tv")) (defun spacemacs-ui-visual/init-spaceline () (use-package spaceline-config :init (progn (add-hook 'spacemacs-post-user-config-hook 'spaceline-compile) (setq-default powerline-default-separator 'utf-8) (spacemacs|do-after-display-system-init (when (and (eq 'utf-8 powerline-default-separator)) (setq-default powerline-default-separator 'wave)) ;; seems to be needed to avoid weird graphical artefacts with the ;; first graphical client (require 'spaceline) (spaceline-compile))) :config (progn (defun spacemacs/customize-powerline-faces () "Alter powerline face to make them work with more themes." (set-face-attribute 'powerline-inactive2 nil :inherit 'font-lock-comment-face)) (spacemacs/customize-powerline-faces) (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 spaceline-org-clock-p nil) (defun spacemacs//evil-state-face () (let ((state (if (eq 'operator evil-state) evil-previous-state evil-state))) (intern (format "spacemacs-%S-face" state)))) (setq spaceline-highlight-face-func 'spacemacs//evil-state-face) (let ((unicodep (dotspacemacs|symbol-value dotspacemacs-mode-line-unicode-symbols))) (setq spaceline-window-numbers-unicode unicodep) (setq spaceline-workspace-numbers-unicode unicodep)) (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)))) (spaceline-spacemacs-theme '(new-version :when active)) (spaceline-helm-mode t) (when (configuration-layer/package-usedp 'info+) (spaceline-info-mode t)) (defun spacemacs//restore-powerline (buffer) "Restore the powerline in buffer" (with-current-buffer buffer (setq-local mode-line-format (default-value 'mode-line-format)) (powerline-set-selected-window) (powerline-reset))) (defun spacemacs//set-powerline-for-startup-buffers () "Set the powerline for buffers created when Emacs starts." (dolist (buffer '("*Messages*" "*spacemacs*" "*Compile-Log*")) (when (and (get-buffer buffer) (configuration-layer/package-usedp 'spaceline)) (spacemacs//restore-powerline buffer)))) (defun spacemacs//prepare-diminish () (when spaceline-minor-modes-p (let ((unicodep (dotspacemacs|symbol-value dotspacemacs-mode-line-unicode-symbols))) (setq spaceline-minor-modes-separator (if unicodep (if (display-graphic-p) "" " ") "|")) (dolist (mm spacemacs--diminished-minor-modes) (let ((mode (car mm))) (when (and (boundp mode) (symbol-value mode)) (let* ((unicode (cadr mm)) (ascii (caddr mm)) (dim (if unicodep unicode (if ascii ascii unicode)))) (diminish mode dim)))))))) (add-hook 'spaceline-pre-hook 'spacemacs//prepare-diminish) (spacemacs//set-powerline-for-startup-buffers)))) (defun spacemacs-ui-visual/init-zoom-frm () (use-package zoom-frm :commands (zoom-frm-unzoom zoom-frm-out zoom-frm-in) :init (progn (spacemacs|define-transient-state zoom-frm :title "Zoom Frame Transient State" :doc " [_+_/_=_] zoom frame in [_-_] zoom frame out [_0_] reset zoom [_q_] quit" :bindings ("+" spacemacs/zoom-frm-in) ("=" spacemacs/zoom-frm-in) ("-" spacemacs/zoom-frm-out) ("0" spacemacs/zoom-frm-unzoom) ("q" nil :exit t)) (spacemacs/set-leader-keys "zf" 'spacemacs/zoom-frm-transient-state/body) (defun spacemacs//zoom-frm-powerline-reset () (when (fboundp 'powerline-reset) (setq-default powerline-height (spacemacs/compute-powerline-height)) (powerline-reset))) (defun spacemacs//zoom-frm-do (arg) "Perform a zoom action depending on ARG value." (let ((zoom-action (cond ((eq arg 0) 'zoom-frm-unzoom) ((< arg 0) 'zoom-frm-out) ((> arg 0) 'zoom-frm-in))) (fm (cdr (assoc 'fullscreen (frame-parameters)))) (fwp (* (frame-char-width) (frame-width))) (fhp (* (frame-char-height) (frame-height)))) (when (equal fm 'maximized) (toggle-frame-maximized)) (funcall zoom-action) (set-frame-size nil fwp fhp t) (when (equal fm 'maximized) (toggle-frame-maximized)))) (defun spacemacs/zoom-frm-in () "zoom in frame, but keep the same pixel size" (interactive) (spacemacs//zoom-frm-do 1) (spacemacs//zoom-frm-powerline-reset)) (defun spacemacs/zoom-frm-out () "zoom out frame, but keep the same pixel size" (interactive) (spacemacs//zoom-frm-do -1) (spacemacs//zoom-frm-powerline-reset)) (defun spacemacs/zoom-frm-unzoom () "Unzoom current frame, keeping the same pixel size" (interactive) (spacemacs//zoom-frm-do 0) (spacemacs//zoom-frm-powerline-reset)) ;; Font size, either with ctrl + mouse wheel (global-set-key (kbd "") 'spacemacs/zoom-frm-in) (global-set-key (kbd "") 'spacemacs/zoom-frm-out))))