441 lines
18 KiB
EmacsLisp
441 lines
18 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
|
|
golden-ratio
|
|
leuven-theme
|
|
neotree
|
|
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-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-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-expand-or-open ()
|
|
"Collapse a neotree node."
|
|
(interactive)
|
|
(let ((node (neo-buffer--get-filename-current-line)))
|
|
(when node
|
|
(if (file-directory-p node)
|
|
(progn
|
|
(neo-buffer--set-expand node t)
|
|
(neo-buffer--refresh t)
|
|
(when neo-auto-indent-point
|
|
(next-line)
|
|
(neo-point-auto-indent)))
|
|
(call-interactively 'neotree-enter)))))
|
|
|
|
(defun spacemacs/neotree-collapse ()
|
|
"Collapse a neotree node."
|
|
(interactive)
|
|
(let ((node (neo-buffer--get-filename-current-line)))
|
|
(when node
|
|
(when (file-directory-p node)
|
|
(neo-buffer--set-expand node nil)
|
|
(neo-buffer--refresh t))
|
|
(when neo-auto-indent-point
|
|
(neo-point-auto-indent)))))
|
|
|
|
(defun spacemacs/neotree-collapse-or-up ()
|
|
"Collapse an expanded directory node or go to the parent node."
|
|
(interactive)
|
|
(let ((node (neo-buffer--get-filename-current-line)))
|
|
(when node
|
|
(if (file-directory-p node)
|
|
(if (neo-buffer--expanded-node-p node)
|
|
(spacemacs/neotree-collapse)
|
|
(neotree-select-up-node))
|
|
(neotree-select-up-node)))))
|
|
|
|
(defun neotree-find-project-root ()
|
|
(interactive)
|
|
(if (neo-global--window-exists-p)
|
|
(neotree-hide)
|
|
(let ((origin-buffer-file-name (buffer-file-name)))
|
|
(neotree-find (projectile-project-root))
|
|
(neotree-find origin-buffer-file-name))))
|
|
|
|
(defun spacemacs//neotree-maybe-attach-window ()
|
|
(when (get-buffer-window (neo-global--get-buffer))
|
|
(neo-global--attach)))
|
|
|
|
(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
|
|
(progn
|
|
(spacemacs//neotree-key-bindings)
|
|
(add-hook 'persp-activated-hook #'spacemacs//neotree-maybe-attach-window)
|
|
(add-hook 'eyebrowse-post-window-switch-hook #'spacemacs//neotree-maybe-attach-window))))
|
|
|
|
(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))))
|