This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+distribution/spacemacs-base/keybindings.el

594 lines
24 KiB
EmacsLisp
Raw Normal View History

;;; keybindings.el --- Spacemacs Base Layer key-bindings File
;;
;; 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
;; instantly display current keystrokes in mini buffer
2014-08-05 13:49:09 +00:00
(setq echo-keystrokes 0.02)
2014-09-21 03:08:58 +00:00
;; auto-indent on RET
(define-key global-map (kbd "RET") 'newline-and-indent)
;; improve delete-other-windows
(define-key global-map (kbd "C-x 1") 'spacemacs/toggle-maximize-buffer)
;; alternate binding to search next occurrence with isearch without
;; exiting isearch
(define-key isearch-mode-map (kbd "S-<return>") 'isearch-repeat-forward)
(define-key isearch-mode-map (kbd "M-S-<return>") 'isearch-repeat-backward)
;; Escape from isearch-mode("/" and "?" in evil-mode) like vim
(define-key isearch-mode-map (kbd "<escape>") 'isearch-cancel)
;; Make <escape> quit as much as possible
(define-key minibuffer-local-map (kbd "<escape>") 'keyboard-escape-quit)
(define-key minibuffer-local-ns-map (kbd "<escape>") 'keyboard-escape-quit)
(define-key minibuffer-local-completion-map (kbd "<escape>") 'keyboard-escape-quit)
(define-key minibuffer-local-must-match-map (kbd "<escape>") 'keyboard-escape-quit)
(define-key minibuffer-local-isearch-map (kbd "<escape>") 'keyboard-escape-quit)
;; linum margin bindings-------------------------------------------------------
(global-set-key (kbd "<left-margin> <down-mouse-1>") 'spacemacs/md-select-linum)
(global-set-key (kbd "<left-margin> <mouse-1>") 'spacemacs/mu-select-linum)
(global-set-key (kbd "<left-margin> <double-mouse-1>") 'spacemacs/select-current-block)
(global-set-key (kbd "<left-margin> <drag-mouse-1>") 'spacemacs/mu-select-linum)
;; ---------------------------------------------------------------------------
;; spacemacs leader key bindings
;; ---------------------------------------------------------------------------
;; Universal argument ---------------------------------------------------------
(spacemacs/set-leader-keys "u" 'universal-argument)
(when (memq dotspacemacs-editing-style '(vim hybrid))
(define-key universal-argument-map
(kbd (concat dotspacemacs-leader-key " u"))
'universal-argument-more))
;; shell command -------------------------------------------------------------
(spacemacs/set-leader-keys "!" 'shell-command)
;; applications ---------------------------------------------------------------
(spacemacs/set-leader-keys
2014-07-15 03:28:39 +00:00
"ac" 'calc-dispatch
2014-04-14 01:23:54 +00:00
"ad" 'dired
"ap" 'list-processes
"aP" 'proced
"au" 'undo-tree-visualize)
;; buffers --------------------------------------------------------------------
(spacemacs/set-leader-keys
"bd" 'kill-this-buffer
2014-12-25 00:57:13 +00:00
"TAB" 'spacemacs/alternate-buffer
"bh" 'spacemacs/home
"be" 'spacemacs/safe-erase-buffer
"bK" 'spacemacs/kill-other-buffers
2014-04-14 01:23:54 +00:00
"bk" 'ido-kill-buffer
"b C-k" 'spacemacs/kill-matching-buffers-rudely
"bP" 'spacemacs/copy-clipboard-to-whole-buffer
2015-04-13 19:29:46 +00:00
"bn" 'spacemacs/next-useful-buffer
"bp" 'spacemacs/previous-useful-buffer
"bR" 'spacemacs/safe-revert-buffer
"bs" 'spacemacs/switch-to-scratch-buffer
"bY" 'spacemacs/copy-whole-buffer-to-clipboard
"bw" 'read-only-mode)
;; Cycling settings -----------------------------------------------------------
(spacemacs/set-leader-keys "Tn" 'spacemacs/cycle-spacemacs-theme)
2014-10-29 14:02:28 +00:00
;; describe functions ---------------------------------------------------------
(defmacro spacemacs||set-helm-key (keys func)
"Define a key bindings for FUNC using KEYS.
Ensure that helm is required before calling FUNC."
(let ((func-name (intern (format "spacemacs/%s" (symbol-name func)))))
`(progn
(defun ,func-name ()
,(format "Wrapper to ensure that `helm' is loaded before calling %s."
(symbol-name func))
(interactive)
(require 'helm)
(call-interactively ',func))
(spacemacs/set-leader-keys ,keys ',func-name))))
2015-04-26 16:39:06 +00:00
(spacemacs||set-helm-key "hdb" describe-bindings)
(spacemacs||set-helm-key "hdc" describe-char)
(spacemacs||set-helm-key "hdf" describe-function)
(spacemacs||set-helm-key "hdk" describe-key)
(spacemacs||set-helm-key "hdm" describe-mode)
(spacemacs||set-helm-key "hdp" describe-package)
(spacemacs/set-leader-keys "hds" 'spacemacs/describe-system-info)
(spacemacs||set-helm-key "hdt" describe-theme)
(spacemacs||set-helm-key "hdv" describe-variable)
2015-08-16 02:27:06 +00:00
(spacemacs||set-helm-key "hL" helm-locate-library)
;; search functions -----------------------------------------------------------
(spacemacs||set-helm-key "sww" helm-wikipedia-suggest)
(spacemacs||set-helm-key "swg" helm-google-suggest)
2013-02-07 16:36:01 +00:00
;; errors ---------------------------------------------------------------------
(spacemacs/set-leader-keys
"en" 'spacemacs/next-error
"ep" 'spacemacs/previous-error
"eN" 'spacemacs/previous-error)
2013-06-05 11:34:55 +00:00
;; file -----------------------------------------------------------------------
(spacemacs/set-leader-keys
"fc" 'spacemacs/copy-file
"fD" 'spacemacs/delete-current-buffer-file
"fei" 'spacemacs/find-user-init-file
"fed" 'spacemacs/find-dotfile
"feD" 'spacemacs/ediff-dotfile-and-template
"feR" 'dotspacemacs/sync-configuration-layers
"fev" 'spacemacs/display-and-copy-version
"fCd" 'spacemacs/unix2dos
"fCu" 'spacemacs/dos2unix
"fg" 'rgrep
2015-01-14 06:10:13 +00:00
"fj" 'dired-jump
2015-07-23 12:28:34 +00:00
"fl" 'find-file-literally
"fE" 'spacemacs/sudo-edit
"fo" 'spacemacs/open-in-external-app
"fR" 'spacemacs/rename-current-buffer-file
2015-06-16 02:56:55 +00:00
"fS" 'evil-write-all
"fs" 'spacemacs/write-file
"fvd" 'add-dir-local-variable
"fvf" 'add-file-local-variable
"fvp" 'add-file-local-variable-prop-line
"fy" 'spacemacs/show-and-copy-buffer-filename)
;; insert stuff ---------------------------------------------------------------
(spacemacs/set-leader-keys
"iJ" 'spacemacs/insert-line-below-no-indent
"iK" 'spacemacs/insert-line-above-no-indent
"ik" 'spacemacs/evil-insert-line-above
"ij" 'spacemacs/evil-insert-line-below)
;; format ---------------------------------------------------------------------
2014-11-17 01:38:09 +00:00
;; <SPC> j k key binding for a frequent action: go and indent line below the point
;; <SPC> J split the current line at point and indent it
(spacemacs/set-leader-keys
"jo" 'open-line
"j=" 'spacemacs/indent-region-or-buffer
"jJ" 'spacemacs/split-and-new-line
"jk" 'spacemacs/evil-goto-next-line-and-indent)
;; navigation -----------------------------------------------------------------
(spacemacs/set-leader-keys
"jh" 'spacemacs/push-mark-and-goto-beginning-of-line
"jl" 'spacemacs/push-mark-and-goto-end-of-line)
;; Compilation ----------------------------------------------------------------
(spacemacs/set-leader-keys
"cC" 'compile
2015-12-07 21:30:38 +00:00
"ck" 'kill-compilation
"cr" 'recompile
"cq" 'spacemacs/close-compilation-window)
;; narrow & widen -------------------------------------------------------------
(spacemacs/set-leader-keys
"nr" 'narrow-to-region
"np" 'narrow-to-page
"nf" 'narrow-to-defun
"nw" 'widen)
;; toggle ---------------------------------------------------------------------
(spacemacs|add-toggle highlight-current-line-globally
2015-07-25 13:14:53 +00:00
:status global-hl-line-mode
:on (global-hl-line-mode)
:off (global-hl-line-mode -1)
:documentation "Globally highlight the current line."
2015-07-25 13:14:53 +00:00
:evil-leader "thh")
(spacemacs|add-toggle truncate-lines
2015-10-13 11:41:48 +00:00
:status truncate-lines
2015-07-25 13:14:53 +00:00
:on (toggle-truncate-lines)
2015-10-13 11:41:48 +00:00
:off (toggle-truncate-lines -1)
:documentation "Truncate long lines (no wrap)."
2015-07-25 13:14:53 +00:00
:evil-leader "tl")
(spacemacs|add-toggle visual-line-navigation
2015-07-25 13:14:53 +00:00
:status visual-line-mode
:on (progn
(visual-line-mode)
(define-key evil-motion-state-map "j" 'evil-next-visual-line)
(define-key evil-motion-state-map "k" 'evil-previous-visual-line)
(when (bound-and-true-p evil-escape-mode)
(evil-escape-mode -1)
(setq evil-escape-motion-state-shadowed-func nil)
(define-key evil-motion-state-map "j" 'evil-next-visual-line)
(define-key evil-motion-state-map "k" 'evil-previous-visual-line)
(evil-escape-mode)))
:off (progn
(visual-line-mode -1)
(define-key evil-motion-state-map "j" 'evil-next-line)
(define-key evil-motion-state-map "k" 'evil-previous-line)
(when (bound-and-true-p evil-escape-mode)
(evil-escape-mode -1)
(setq evil-escape-motion-state-shadowed-func nil)
(define-key evil-motion-state-map "j" 'evil-next-line)
(define-key evil-motion-state-map "k" 'evil-previous-line)
(evil-escape-mode)))
2015-07-25 13:14:53 +00:00
:documentation "Move point according to visual lines."
:evil-leader "tL")
(spacemacs|add-toggle line-numbers
2015-07-25 13:14:53 +00:00
:status linum-mode
:on (linum-mode)
:off (linum-mode -1)
2015-07-25 13:14:53 +00:00
:documentation "Show the line numbers."
:evil-leader "tn")
(spacemacs|add-toggle auto-fill-mode
2015-07-25 13:14:53 +00:00
:status auto-fill-function
:on (auto-fill-mode)
:off (auto-fill-mode -1)
:documentation "Break line beyond `current-fill-column` while editing."
:evil-leader "tF")
2015-03-08 04:52:03 +00:00
(spacemacs|add-toggle debug-on-error
:status debug-on-error
:on (setq debug-on-error t)
:off (setq debug-on-error nil)
2015-07-25 13:14:53 +00:00
:documentation "Toggle display of backtrace when an error happens."
:evil-leader "tD")
2015-04-10 14:30:46 +00:00
(spacemacs|add-toggle fringe
2015-07-25 13:14:53 +00:00
:status (not (equal fringe-mode 0))
:on (call-interactively 'fringe-mode)
:off (fringe-mode 0)
:documentation "Display the fringe in GUI mode."
:evil-leader "Tf")
2015-04-10 14:30:46 +00:00
(spacemacs|add-toggle fullscreen-frame
2015-07-25 13:14:53 +00:00
:status nil
:on (spacemacs/toggle-frame-fullscreen)
:documentation "Display the current frame in full screen."
:evil-leader "TF")
2015-04-10 14:30:46 +00:00
(spacemacs|add-toggle maximize-frame
2015-07-25 13:14:53 +00:00
:if (version< "24.3.50" emacs-version)
:status nil
:on (toggle-frame-maximized)
:documentation "Maximize the current frame."
:evil-leader "TM")
2015-05-16 18:40:31 +00:00
(spacemacs|add-toggle mode-line
2015-11-16 21:48:01 +00:00
:status (not hidden-mode-line-mode)
:on (hidden-mode-line-mode -1)
:off (hidden-mode-line-mode)
2015-07-25 13:14:53 +00:00
:documentation "Toggle the visibility of modeline."
:evil-leader "tmt")
2015-04-10 14:30:46 +00:00
(spacemacs|add-toggle transparent-frame
2015-07-25 13:14:53 +00:00
:status nil
:on (spacemacs/toggle-transparency)
:documentation "Make the current frame non-opaque."
:evil-leader "TT")
(spacemacs|add-toggle tool-bar
2015-07-25 13:14:53 +00:00
:if window-system
:status tool-bar-mode
:on (tool-bar-mode)
:off (tool-bar-mode -1)
:documentation "Display the tool bar in GUI mode."
:evil-leader "Tt")
(spacemacs|add-toggle menu-bar
2015-07-25 13:14:53 +00:00
:if (or window-system (version<= "24.3.1" emacs-version))
:status menu-bar-mode
:on (menu-bar-mode)
:off (menu-bar-mode -1)
:documentation "Display the menu bar."
:evil-leader "Tm")
(spacemacs|add-toggle semantic-stickyfunc
2015-07-25 13:14:53 +00:00
:status semantic-stickyfunc-mode
:on (semantic-stickyfunc-mode)
:off (semantic-stickyfunc-mode -1)
:documentation "Enable semantic-stickyfunc."
:evil-leader "Ts")
(spacemacs|add-toggle semantic-stickyfunc-globally
2015-07-25 13:14:53 +00:00
:status global-semantic-stickyfunc-mode
:on (global-semantic-stickyfunc-mode)
:off (global-semantic-stickyfunc-mode -1)
:documentation "Enable semantic-stickyfunc globally."
:evil-leader "T C-s")
;; quit -----------------------------------------------------------------------
(spacemacs/set-leader-keys
"qs" 'spacemacs/save-buffers-kill-emacs
"qq" 'spacemacs/prompt-kill-emacs
"qQ" 'spacemacs/kill-emacs
"qz" 'spacemacs/frame-killer)
2013-02-06 15:43:36 +00:00
;; window ---------------------------------------------------------------------
(defun split-window-below-and-focus ()
"Split the window vertically and focus the new window."
(interactive)
(split-window-below)
(windmove-down)
(when (and (boundp 'golden-ratio-mode)
(symbol-value golden-ratio-mode))
(golden-ratio)))
(defun split-window-right-and-focus ()
"Split the window horizontally and focus the new window."
(interactive)
(split-window-right)
(windmove-right)
(when (and (boundp 'golden-ratio-mode)
(symbol-value golden-ratio-mode))
(golden-ratio)))
(spacemacs/set-leader-keys
"w2" 'spacemacs/layout-double-columns
"w3" 'spacemacs/layout-triple-columns
"wb" 'spacemacs/switch-to-minibuffer-window
"wc" 'delete-window
"wd" 'spacemacs/toggle-current-window-dedication
2014-04-14 01:23:54 +00:00
"wH" 'evil-window-move-far-left
"w <S-left>" 'evil-window-move-far-left
2014-04-14 01:23:54 +00:00
"wh" 'evil-window-left
"w <left>" 'evil-window-left
2014-04-14 01:23:54 +00:00
"wJ" 'evil-window-move-very-bottom
"w <S-down>" 'evil-window-move-very-bottom
2014-04-14 01:23:54 +00:00
"wj" 'evil-window-down
"w <down>" 'evil-window-down
2014-04-14 01:23:54 +00:00
"wK" 'evil-window-move-very-top
"w <S-up>" 'evil-window-move-very-top
2014-04-14 01:23:54 +00:00
"wk" 'evil-window-up
"w <up>" 'evil-window-up
2014-04-14 01:23:54 +00:00
"wL" 'evil-window-move-far-right
"w <S-right>" 'evil-window-move-far-right
2014-04-14 01:23:54 +00:00
"wl" 'evil-window-right
"w <right>" 'evil-window-right
"wm" 'spacemacs/toggle-maximize-buffer
"wM" 'spacemacs/toggle-maximize-centered-buffer
2014-12-05 01:54:05 +00:00
"wo" 'other-frame
"wR" 'spacemacs/rotate-windows
"ws" 'split-window-below
"wS" 'split-window-below-and-focus
2014-12-14 14:53:37 +00:00
"w-" 'split-window-below
2014-04-14 01:23:54 +00:00
"wU" 'winner-redo
"wu" 'winner-undo
"wv" 'split-window-right
"wV" 'split-window-right-and-focus
"ww" 'other-window
"w/" 'split-window-right
"w=" 'balance-windows)
;; text -----------------------------------------------------------------------
(defalias 'count-region 'count-words-region)
(spacemacs/set-leader-keys
"xaa" 'align
"xar" 'spacemacs/align-repeat
"xam" 'spacemacs/align-repeat-math-oper
"xa." 'spacemacs/align-repeat-decimal
"xa," 'spacemacs/align-repeat-comma
"xa;" 'spacemacs/align-repeat-semicolon
"xa:" 'spacemacs/align-repeat-colon
"xa=" 'spacemacs/align-repeat-equal
"xa&" 'spacemacs/align-repeat-ampersand
"xa|" 'spacemacs/align-repeat-bar
"xa(" 'spacemacs/align-repeat-left-paren
"xa)" 'spacemacs/align-repeat-right-paren
"xc" 'count-region
2014-04-14 01:23:54 +00:00
"xdw" 'delete-trailing-whitespace
"xls" 'spacemacs/sort-lines
"xlu" 'spacemacs/uniquify-lines
2014-04-14 01:23:54 +00:00
"xtc" 'transpose-chars
"xtl" 'transpose-lines
"xtw" 'transpose-words
"xU" 'upcase-region
"xu" 'downcase-region
"xwc" 'spacemacs/count-words-analysis)
;; google translate -----------------------------------------------------------
(spacemacs/set-leader-keys
"xgl" 'spacemacs/set-google-translate-languages)
;; shell ----------------------------------------------------------------------
(with-eval-after-load 'shell
(evil-define-key 'insert comint-mode-map [up] 'comint-previous-input)
(evil-define-key 'insert comint-mode-map [down] 'comint-next-input))
;; ---------------------------------------------------------------------------
;; Micro-states
;; ---------------------------------------------------------------------------
;; Buffer micro state
2015-03-26 05:15:16 +00:00
(spacemacs|define-micro-state buffer
:doc "[n]ext [p]revious [K]ill [q]uit"
2015-03-26 05:15:16 +00:00
:disable-evil-leader t
:evil-leader "b."
:bindings
("K" kill-this-buffer)
2015-04-13 19:29:46 +00:00
("n" spacemacs/next-useful-buffer)
("N" spacemacs/previous-useful-buffer)
("p" spacemacs/previous-useful-buffer)
("q" nil :exit t))
;; end of Buffer micro state
2015-03-26 05:15:16 +00:00
;; Window Manipulation Micro State
(defun spacemacs/shrink-window-horizontally (delta)
"Wrap `spacemacs/shrink-window-horizontally'."
(interactive "p")
(shrink-window delta t))
(defun spacemacs/shrink-window (delta)
"Wrap `spacemacs/shrink-window'."
(interactive "p")
(shrink-window delta))
(defun spacemacs/enlarge-window (delta)
"Wrap `spacemacs/enlarge-window'."
(interactive "p")
(enlarge-window delta))
(defun spacemacs/enlarge-window-horizontally (delta)
"Wrap `spacemacs/enlarge-window-horizontally'."
(interactive "p")
(enlarge-window delta t))
(defun spacemacs//window-manipulation-full-doc ()
"Full documentation for window manipulation micro-state."
"
[?] display this help
[0,9] go to numbered window
[-] [/] [s] [v] [S] [V] split windows below|right and focus
[c] [C] close current|other windows
[g] toggle golden-ratio
[h] [j] [k] [l] go to left|bottom|top|right
[H] [J] [K] [L] move windows to far/very left|bottom|top|right
[[] []] [{] [}] shrink/enlarge horizontally and vertically respectively
[o] [w] other frame|window
[R] rotate windows
[u] [U] restore previous|next window layout")
(defun spacemacs//window-manipulation-move-doc ()
"Help string for moving between windows"
(concat "[h] [j] [k] [l] to move focus, "
"[H] [J] [K] [L] to move window, "
"[R]otate windows, other [f]rame, other [w]indow"))
(defun spacemacs//window-manipulation-resize-doc ()
"Dynamic help string when resizing windows."
(format
(concat "[%sx%s] Resize window: [[] []] shrink/enlarge horizontally, "
"[{] [}] shrink/enlarge vertically.")
(window-total-width) (window-total-height)))
(defun spacemacs//window-manipulation-split-doc ()
"Help string for moving between windows"
(concat "[-], [s] to split horizontally, [/], [v] to split vertically, "
"[S], [V] to split and focus"))
(defun spacemacs//window-manipulation-number-doc ()
"Help string for selecting window with number."
(format "(selected window #%s) press [0,9] to select the corresponding numbered window."
(window-numbering-get-number-string)))
(defun spacemacs//window-manipulation-layout-doc ()
"Help string for layout manipulation"
(concat "[c]lose window, [C]lose other windows, "
"[u]ndo window layout, [U] redo window layout."))
(defun spacemacs//window-manipulation-gratio-doc ()
"Help string for golden ratio"
(format "(golden-ratio %s) toggle with [g]"
(if (symbol-value golden-ratio-mode) "enabled" "disabled")))
(spacemacs|define-micro-state window-manipulation
:doc "[?] for help"
:evil-leader "w."
:use-minibuffer t
:bindings
("?" nil :doc (spacemacs//window-manipulation-full-doc))
("0" select-window-0 :doc (spacemacs//window-manipulation-number-doc))
("1" select-window-1 :doc (spacemacs//window-manipulation-number-doc))
("2" select-window-2 :doc (spacemacs//window-manipulation-number-doc))
("3" select-window-3 :doc (spacemacs//window-manipulation-number-doc))
("4" select-window-4 :doc (spacemacs//window-manipulation-number-doc))
("5" select-window-5 :doc (spacemacs//window-manipulation-number-doc))
("6" select-window-6 :doc (spacemacs//window-manipulation-number-doc))
("7" select-window-7 :doc (spacemacs//window-manipulation-number-doc))
("8" select-window-8 :doc (spacemacs//window-manipulation-number-doc))
("9" select-window-9 :doc (spacemacs//window-manipulation-number-doc))
("-" split-window-below-and-focus :doc (spacemacs//window-manipulation-split-doc))
("/" split-window-right-and-focus :doc (spacemacs//window-manipulation-split-doc))
("[" spacemacs/shrink-window-horizontally :doc (spacemacs//window-manipulation-resize-doc))
("]" spacemacs/enlarge-window-horizontally :doc (spacemacs//window-manipulation-resize-doc))
("{" spacemacs/shrink-window :doc (spacemacs//window-manipulation-resize-doc))
("}" spacemacs/enlarge-window :doc (spacemacs//window-manipulation-resize-doc))
("c" delete-window :doc (spacemacs//window-manipulation-layout-doc))
("C" delete-other-windows :doc (spacemacs//window-manipulation-layout-doc))
("g" spacemacs/toggle-golden-ratio :doc (spacemacs//window-manipulation-gratio-doc))
("h" evil-window-left :doc (spacemacs//window-manipulation-move-doc))
("<left>" evil-window-left :doc (spacemacs//window-manipulation-move-doc))
("j" evil-window-down :doc (spacemacs//window-manipulation-move-doc))
("<down>" evil-window-down :doc (spacemacs//window-manipulation-move-doc))
("k" evil-window-up :doc (spacemacs//window-manipulation-move-doc))
("<up>" evil-window-up :doc (spacemacs//window-manipulation-move-doc))
("l" evil-window-right :doc (spacemacs//window-manipulation-move-doc))
("<right>" evil-window-right :doc (spacemacs//window-manipulation-move-doc))
("H" evil-window-move-far-left :doc (spacemacs//window-manipulation-move-doc))
("<S-left>" evil-window-move-far-left :doc (spacemacs//window-manipulation-move-doc))
("J" evil-window-move-very-bottom :doc (spacemacs//window-manipulation-move-doc))
("<S-down>" evil-window-move-very-bottom :doc (spacemacs//window-manipulation-move-doc))
("K" evil-window-move-very-top :doc (spacemacs//window-manipulation-move-doc))
("<S-up>" evil-window-move-very-top :doc (spacemacs//window-manipulation-move-doc))
("L" evil-window-move-far-right :doc (spacemacs//window-manipulation-move-doc))
("<S-right>" evil-window-move-far-right :doc (spacemacs//window-manipulation-move-doc))
("o" other-frame :doc (spacemacs//window-manipulation-move-doc))
("R" spacemacs/rotate-windows :doc (spacemacs//window-manipulation-move-doc))
("s" split-window-below :doc (spacemacs//window-manipulation-split-doc))
("S" split-window-below-and-focus :doc (spacemacs//window-manipulation-split-doc))
("u" winner-undo :doc (spacemacs//window-manipulation-layout-doc))
("U" winner-redo :doc (spacemacs//window-manipulation-layout-doc))
("v" split-window-right :doc (spacemacs//window-manipulation-split-doc))
("V" split-window-right-and-focus :doc (spacemacs//window-manipulation-split-doc))
("w" other-window :doc (spacemacs//window-manipulation-move-doc)))
;; end of Window Manipulation Micro State
;; text Manipulation Micro State
(defun spacemacs/scale-up-or-down-font-size (direction)
"Scale the font. If DIRECTION is positive or zero the font is scaled up,
otherwise it is scaled down."
(interactive)
(let ((scale 0.5))
(if (eq direction 0)
(text-scale-set 0)
(if (< direction 0)
(text-scale-decrease scale)
(text-scale-increase scale)))))
(defun spacemacs/scale-up-font ()
"Scale up the font."
(interactive)
(spacemacs/scale-up-or-down-font-size 1))
(defun spacemacs/scale-down-font ()
"Scale up the font."
(interactive)
(spacemacs/scale-up-or-down-font-size -1))
(defun spacemacs/reset-font-size ()
"Reset the font size."
(interactive)
(spacemacs/scale-up-or-down-font-size 0))
(spacemacs|define-micro-state scale-font
:doc "[+/=] scale up [-] scale down [0] reset font [q]uit"
:evil-leader "zx"
:bindings
("+" spacemacs/scale-up-font)
("=" spacemacs/scale-up-font)
("-" spacemacs/scale-down-font)
("0" spacemacs/reset-font-size)
("q" nil :exit t))
;; end of Text Manipulation Micro State
;; Transparency micro-state
(defun spacemacs/toggle-transparency ()
"Toggle between transparent or opaque display."
(interactive)
;; Define alpha if it's nil
(if (eq (frame-parameter (selected-frame) 'alpha) nil)
(set-frame-parameter (selected-frame) 'alpha '(100 100)))
;; Do the actual toggle
(if (/= (cadr (frame-parameter (selected-frame) 'alpha)) 100)
(set-frame-parameter (selected-frame) 'alpha '(100 100))
(set-frame-parameter (selected-frame) 'alpha
(list dotspacemacs-active-transparency
dotspacemacs-inactive-transparency)))
;; Immediately enter the micro-state, but also keep toggle
;; accessible from helm-spacemacs
(spacemacs/scale-transparency-micro-state))
(defun spacemacs/increase-transparency ()
"Increase transparency of current frame."
(interactive)
(let* ((current-alpha (car (frame-parameter (selected-frame) 'alpha)))
(increased-alpha (- current-alpha 5)))
(when (>= increased-alpha frame-alpha-lower-limit)
(set-frame-parameter (selected-frame) 'alpha (list increased-alpha increased-alpha)))))
(defun spacemacs/decrease-transparency ()
"Decrease transparency of current frame."
(interactive)
(let* ((current-alpha (car (frame-parameter (selected-frame) 'alpha)))
(decreased-alpha (+ current-alpha 5)))
(when (<= decreased-alpha 100)
(set-frame-parameter (selected-frame) 'alpha (list decreased-alpha decreased-alpha)))))
(spacemacs|define-micro-state scale-transparency
:doc "[+] increase [-] decrease [T] toggle transparency [q] quit"
:bindings
("+" spacemacs/increase-transparency)
("-" spacemacs/decrease-transparency)
("T" spacemacs/toggle-transparency)
("q" nil :exit t))
;; end of Transparency Micro State