398 lines
17 KiB
EmacsLisp
398 lines
17 KiB
EmacsLisp
;;; packages.el --- Spacemacs UI Visual Layer packages File
|
|
;;
|
|
;; Copyright (c) 2012-2016 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 spacemacs-ui-visual-packages
|
|
'(fancy-battery
|
|
fill-column-indicator
|
|
golden-ratio
|
|
hl-todo
|
|
leuven-theme
|
|
popup
|
|
popwin
|
|
smooth-scrolling
|
|
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
|
|
:status fancy-battery-mode
|
|
:on (fancy-battery-mode)
|
|
:off (fancy-battery-mode -1)
|
|
: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|hide-lighter fci-mode)))
|
|
|
|
(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-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 ()
|
|
(use-package smooth-scrolling
|
|
:init
|
|
(progn
|
|
(setq smooth-scroll-margin 5)
|
|
(spacemacs|add-toggle smooth-scrolling
|
|
:status smooth-scrolling-mode
|
|
:on (progn
|
|
(smooth-scrolling-mode)
|
|
(enable-smooth-scroll-for-function previous-line)
|
|
(enable-smooth-scroll-for-function next-line)
|
|
(enable-smooth-scroll-for-function isearch-repeat))
|
|
:off (progn
|
|
(smooth-scrolling-mode -1)
|
|
(disable-smooth-scroll-for-function previous-line)
|
|
(disable-smooth-scroll-for-function next-line)
|
|
(disable-smooth-scroll-for-function isearch-repeat))
|
|
:documentation "Smooth scrolling."
|
|
:evil-leader "tv")
|
|
(when dotspacemacs-smooth-scrolling
|
|
(spacemacs/toggle-smooth-scrolling-on))
|
|
;; add hooks here only for emacs built-in packages that are not owned
|
|
;; by a layer.
|
|
(defun spacemacs//unset-scroll-margin ()
|
|
"Set scroll-margin to zero."
|
|
(setq-local scroll-margin 0))
|
|
(spacemacs/add-to-hooks 'spacemacs//unset-scroll-margin
|
|
'(messages-buffer-mode-hook)))))
|
|
|
|
(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 "<C-wheel-up>") 'spacemacs/zoom-frm-in)
|
|
(global-set-key (kbd "<C-wheel-down>") 'spacemacs/zoom-frm-out))))
|