Rename dotspacemacs-zone-when-idle-for to dotspacemacs-zone-out-when-idle

Set key binding to SPC T Z
Improve the configuration a bit by selecting only the most interesting pgm
This commit is contained in:
syl20bnr 2017-04-09 23:55:00 -04:00
parent 96be9c9aeb
commit 2d0c3ae92c
3 changed files with 37 additions and 11 deletions

View File

@ -328,16 +328,17 @@ restricts line-number to the specified list of major-mode.")
(defvar dotspacemacs-smart-closing-parenthesis nil
"If non-nil pressing the closing parenthesis `)' key in insert mode passes
over any automatically added closing parenthesis, bracket, quote, etc
This can be temporary disabled by pressing `C-q' before `)'. (default nil)")
over any automatically added closing parenthesis, bracket, quote, etc
This can be temporary disabled by pressing `C-q' before `)'. (default nil)")
(defvar dotspacemacs-zone-when-idle-for nil
"If non-nil zone out after being idle for VALUE seconds.")
(defvar dotspacemacs-zone-out-when-idle nil
"Either nil or a number of seconds. If non-nil zone out after the specified
number of seconds.")
(defvar dotspacemacs-highlight-delimiters 'all
"Select a scope to highlight delimiters. Possible values are `any',
`current', `all' or `nil'. Default is `all' (highlight any scope and
emphasis the current one.")
emphasis the current one.")
(defvar dotspacemacs-whitespace-cleanup nil
"delete whitespace while saving buffer. possible values are `all'

View File

@ -276,8 +276,6 @@ values."
;; over any automatically added closing parenthesis, bracket, quote, etc…
;; This can be temporary disabled by pressing `C-q' before `)'. (default nil)
dotspacemacs-smart-closing-parenthesis nil
;; If non-nil zone out after being idle for VALUE seconds.
dotspacemacs-zone-when-idle-for nil
;; Select a scope to highlight delimiters. Possible values are `any',
;; `current', `all' or `nil'. Default is `all' (highlight any scope and
;; emphasis the current one). (default 'all)
@ -299,6 +297,9 @@ values."
;; delete only whitespace for changed lines or `nil' to disable cleanup.
;; (default nil)
dotspacemacs-whitespace-cleanup nil
;; Either nil or a number of seconds. If non-nil zone out after the specified
;; number of seconds. (default nil)
dotspacemacs-zone-out-when-idle nil
))
(defun dotspacemacs/user-init ()

View File

@ -56,7 +56,7 @@
(visual-line-mode :location built-in)
(whitespace :location built-in)
(winner :location built-in)
zone
(zone :location built-in)
))
;; Initialization of packages
@ -540,8 +540,32 @@
(winner-mode t))))
(defun spacemacs-base/init-zone ()
(when dotspacemacs-zone-when-idle-for
(zone-when-idle dotspacemacs-zone-when-idle-for))
(spacemacs/set-leader-keys "Z" 'zone))
(require 'zone)
(when (and dotspacemacs-zone-out-when-idle
(numberp dotspacemacs-zone-out-when-idle))
(zone-when-idle dotspacemacs-zone-out-when-idle))
;; remove not interesting programs
(setq zone-programs [
;; zone-pgm-jitter
zone-pgm-putz-with-case
zone-pgm-dissolve
;; zone-pgm-explode
zone-pgm-whack-chars
zone-pgm-rotate
zone-pgm-rotate-LR-lockstep
zone-pgm-rotate-RL-lockstep
zone-pgm-rotate-LR-variable
zone-pgm-rotate-RL-variable
zone-pgm-drip
;; zone-pgm-drip-fretfully
;; zone-pgm-five-oclock-swan-dive
;; zone-pgm-martini-swan-dive
zone-pgm-rat-race
zone-pgm-paragraph-spaz
;; zone-pgm-stress
;; zone-pgm-stress-destress
;; zone-pgm-random-life
])
(spacemacs/set-leader-keys "TZ" 'zone))
(defun spacemacs-base/init-centered-buffer-mode ())