From 0f979d3cea9d09760bab1354056674078657ca8f Mon Sep 17 00:00:00 2001 From: Eivind Fonn Date: Sat, 25 Jul 2015 15:14:53 +0200 Subject: [PATCH] Better indentation for add-toggle --- contrib/!vim/vim-empty-lines/extensions.el | 14 +- contrib/auto-completion/funcs.el | 46 ++-- contrib/auto-completion/packages.el | 10 +- contrib/colors/extensions.el | 10 +- contrib/colors/packages.el | 10 +- contrib/syntax-checking/packages.el | 22 +- core/core-toggle.el | 1 + spacemacs/extensions.el | 34 +-- spacemacs/keybindings.el | 146 ++++++------ spacemacs/packages.el | 256 ++++++++++----------- 10 files changed, 275 insertions(+), 274 deletions(-) diff --git a/contrib/!vim/vim-empty-lines/extensions.el b/contrib/!vim/vim-empty-lines/extensions.el index 1d2a3ab77..107badc9d 100644 --- a/contrib/!vim/vim-empty-lines/extensions.el +++ b/contrib/!vim/vim-empty-lines/extensions.el @@ -25,13 +25,13 @@ (progn (global-vim-empty-lines-mode) (spacemacs|add-toggle vim-empty-lines-mode - :status vim-empty-lines-mode - :on (global-vim-empty-lines-mode) - :off (global-vim-empty-lines-mode -1) - :documentation - (concat "Display an overlay of ~ on " - "empty lines.") - :evil-leader "t~") + :status vim-empty-lines-mode + :on (global-vim-empty-lines-mode) + :off (global-vim-empty-lines-mode -1) + :documentation + (concat "Display an overlay of ~ on " + "empty lines.") + :evil-leader "t~") ;; don't enable it on spacemacs home buffer (with-current-buffer "*spacemacs*" (vim-empty-lines-mode -1)) diff --git a/contrib/auto-completion/funcs.el b/contrib/auto-completion/funcs.el index 240e76678..844f82b40 100644 --- a/contrib/auto-completion/funcs.el +++ b/contrib/auto-completion/funcs.el @@ -11,29 +11,29 @@ ;;; License: GPLv3 (spacemacs|add-toggle auto-completion - :status - (if (boundp 'auto-completion-front-end) - (if (eq 'company auto-completion-front-end) - company-mode - auto-complete-mode) - ;; default completion hardcoded to be company for now - (setq auto-completion-front-end 'company) - nil) - :on - (progn - (if (eq 'company auto-completion-front-end) - (company-mode) - (auto-complete-mode)) - (message "Enabled auto-completion (using %S)." - auto-completion-front-end)) - :off - (progn - (if (eq 'company auto-completion-front-end) - (company-mode -1) - (auto-complete-mode -1)) - (message "Disabled auto-completion.")) - :documentation "Activate auto-completion." - :evil-leader "ta") + :status + (if (boundp 'auto-completion-front-end) + (if (eq 'company auto-completion-front-end) + company-mode + auto-complete-mode) + ;; default completion hardcoded to be company for now + (setq auto-completion-front-end 'company) + nil) + :on + (progn + (if (eq 'company auto-completion-front-end) + (company-mode) + (auto-complete-mode)) + (message "Enabled auto-completion (using %S)." + auto-completion-front-end)) + :off + (progn + (if (eq 'company auto-completion-front-end) + (company-mode -1) + (auto-complete-mode -1)) + (message "Disabled auto-completion.")) + :documentation "Activate auto-completion." + :evil-leader "ta") ;; auto-completion key bindings functions diff --git a/contrib/auto-completion/packages.el b/contrib/auto-completion/packages.el index d373d58c9..f90619798 100644 --- a/contrib/auto-completion/packages.el +++ b/contrib/auto-completion/packages.el @@ -231,11 +231,11 @@ markdown-mode-hook org-mode-hook)) (spacemacs|add-toggle yasnippet - :status yas-minor-mode - :on (yas-minor-mode) - :off (yas-minor-mode -1) - :documentation "Enable yasnippet." - :evil-leader "ty") + :status yas-minor-mode + :on (yas-minor-mode) + :off (yas-minor-mode -1) + :documentation "Enable yasnippet." + :evil-leader "ty") (defun spacemacs/force-yasnippet-off () (yas-minor-mode -1) diff --git a/contrib/colors/extensions.el b/contrib/colors/extensions.el index 7ef602351..8ac67abe4 100644 --- a/contrib/colors/extensions.el +++ b/contrib/colors/extensions.el @@ -22,11 +22,11 @@ (nyan-mode) (spacemacs|add-toggle nyan-cat-progress-bar - :status nyan-mode - :on (nyan-mode) - :off (nyan-mode -1) - :documentation "Show a nyan cat progress bar in the mode-line." - :evil-leader "tmn") + :status nyan-mode + :on (nyan-mode) + :off (nyan-mode -1) + :documentation "Show a nyan cat progress bar in the mode-line." + :evil-leader "tmn") (defun spacemacs/powerline-nyan-cat () "Construct a powerline segment for nyan cat." diff --git a/contrib/colors/packages.el b/contrib/colors/packages.el index e78d29ea9..4770021b1 100644 --- a/contrib/colors/packages.el +++ b/contrib/colors/packages.el @@ -39,11 +39,11 @@ font-lock-variable-name-face)) (spacemacs|add-toggle rainbow-identifier-globally - :status rainbow-identifiers-mode - :on (rainbow-identifiers-mode) - :off (rainbow-identifiers-mode -1) - :documentation "Colorize identifiers globally." - :evil-leader "tCi") + :status rainbow-identifiers-mode + :on (rainbow-identifiers-mode) + :off (rainbow-identifiers-mode -1) + :documentation "Colorize identifiers globally." + :evil-leader "tCi") (add-hook 'prog-mode-hook 'rainbow-identifiers-mode) diff --git a/contrib/syntax-checking/packages.el b/contrib/syntax-checking/packages.el index 8431d6ad8..ee03f6d92 100644 --- a/contrib/syntax-checking/packages.el +++ b/contrib/syntax-checking/packages.el @@ -26,11 +26,11 @@ (progn (setq flycheck-standard-error-navigation nil) (spacemacs|add-toggle syntax-checking - :status flycheck-mode - :on (flycheck-mode) - :off (flycheck-mode -1) - :documentation "Enable error and syntax checking." - :evil-leader "ts")) + :status flycheck-mode + :on (flycheck-mode) + :off (flycheck-mode -1) + :documentation "Enable error and syntax checking." + :evil-leader "ts")) :config (progn (spacemacs|diminish flycheck-mode " ⓢ" " s") @@ -123,12 +123,12 @@ (add-hook 'markdown-mode-hook '(lambda () (flyspell-mode 1))) (add-hook 'text-mode-hook '(lambda () (flyspell-mode 1))) (spacemacs|add-toggle spelling-checking - :status flyspell-mode - :on (flyspell-mode) - :off (flyspell-mode -1) - :documentation - "Enable flyspell for automatic spelling checking." - :evil-leader "tS")) + :status flyspell-mode + :on (flyspell-mode) + :off (flyspell-mode -1) + :documentation + "Enable flyspell for automatic spelling checking." + :evil-leader "tS")) :config (progn (flyspell-prog-mode) diff --git a/core/core-toggle.el b/core/core-toggle.el index 01d8ee360..7bc44ad18 100644 --- a/core/core-toggle.el +++ b/core/core-toggle.el @@ -38,6 +38,7 @@ Avaiblabe PROPS: All properties supported by `spacemacs//create-key-binding-form' can be used." + (declare (indent 1)) (let* ((wrapper-func (intern (format "spacemacs/toggle-%s" (symbol-name name)))) (status (plist-get props :status)) diff --git a/spacemacs/extensions.el b/spacemacs/extensions.el index 41d88e0fb..31e804823 100644 --- a/spacemacs/extensions.el +++ b/spacemacs/extensions.el @@ -51,19 +51,19 @@ :init (progn (spacemacs|add-toggle centered-point - :status centered-cursor-mode - :on (centered-cursor-mode) - :off (centered-cursor-mode -1) - :documentation - "Keep point always at the center of the window." - :evil-leader "t-") + :status centered-cursor-mode + :on (centered-cursor-mode) + :off (centered-cursor-mode -1) + :documentation + "Keep point always at the center of the window." + :evil-leader "t-") (spacemacs|add-toggle centered-point-globally - :status centered-cursor-mode - :on (global-centered-cursor-mode) - :off (global-centered-cursor-mode -1) - :documentation - "Globally keep point always at the center of the window." - :evil-leader "t C--")) + :status centered-cursor-mode + :on (global-centered-cursor-mode) + :off (global-centered-cursor-mode -1) + :documentation + "Globally keep point always at the center of the window." + :evil-leader "t C--")) :config (progn (custom-set-variables @@ -83,11 +83,11 @@ (when (eq 'emacs dotspacemacs-editing-style) (holy-mode)) (spacemacs|add-toggle holy-mode - :status holy-mode - :on (holy-mode) - :off (holy-mode -1) - :documentation "Globally toggle the holy mode." - :evil-leader "P " "P C-i")))) + :status holy-mode + :on (holy-mode) + :off (holy-mode -1) + :documentation "Globally toggle the holy mode." + :evil-leader "P " "P C-i")))) (defun spacemacs/init-helm-spacemacs () (use-package helm-spacemacs diff --git a/spacemacs/keybindings.el b/spacemacs/keybindings.el index 66ba19cd8..cfecc9953 100644 --- a/spacemacs/keybindings.el +++ b/spacemacs/keybindings.el @@ -163,93 +163,93 @@ Ensure that helm is required before calling FUNC." "Sn" 'flyspell-goto-next-error) ;; toggle --------------------------------------------------------------------- (spacemacs|add-toggle highlight-current-line-globally - :status global-hl-line-mode - :on (global-hl-line-mode) - :off (global-hl-line-mode -1) - :documentation "Globally Highlight the current line." - :evil-leader "thh") + :status global-hl-line-mode + :on (global-hl-line-mode) + :off (global-hl-line-mode -1) + :documentation "Globally Highlight the current line." + :evil-leader "thh") (spacemacs|add-toggle truncate-lines - :status nil - :on (toggle-truncate-lines) - :documentation "Truncate the long lines (no wrap)." - :evil-leader "tl") + :status nil + :on (toggle-truncate-lines) + :documentation "Truncate the long lines (no wrap)." + :evil-leader "tl") (spacemacs|add-toggle visual-line-navigation - :status visual-line-mode - :on (visual-line-mode) - :off (visual-line-mode -1) - :documentation "Move point according to visual lines." - :evil-leader "tL") + :status visual-line-mode + :on (visual-line-mode) + :off (visual-line-mode -1) + :documentation "Move point according to visual lines." + :evil-leader "tL") (spacemacs|add-toggle line-numbers - :status linum-mode - :on (global-linum-mode) - :off (global-linum-mode -1) - :documentation "Show the line numbers." - :evil-leader "tn") + :status linum-mode + :on (global-linum-mode) + :off (global-linum-mode -1) + :documentation "Show the line numbers." + :evil-leader "tn") (spacemacs|add-toggle auto-fill-mode - :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") + :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") (spacemacs|add-toggle debug-on-error - :status nil - :on (toggle-debug-on-error) - :documentation "Toggle display of backtrace when an error happens." - :evil-leader "tD") + :status nil + :on (toggle-debug-on-error) + :documentation "Toggle display of backtrace when an error happens." + :evil-leader "tD") (spacemacs|add-toggle fringe - :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") + :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") (spacemacs|add-toggle fullscreen-frame - :status nil - :on (spacemacs/toggle-frame-fullscreen) - :documentation "Display the current frame in full screen." - :evil-leader "TF") + :status nil + :on (spacemacs/toggle-frame-fullscreen) + :documentation "Display the current frame in full screen." + :evil-leader "TF") (spacemacs|add-toggle maximize-frame - :if (version< "24.3.50" emacs-version) - :status nil - :on (toggle-frame-maximized) - :documentation "Maximize the current frame." - :evil-leader "TM") + :if (version< "24.3.50" emacs-version) + :status nil + :on (toggle-frame-maximized) + :documentation "Maximize the current frame." + :evil-leader "TM") (spacemacs|add-toggle mode-line - :status hidden-mode-line-mode - :on (hidden-mode-line-mode) - :off (hidden-mode-line-mode -1) - :documentation "Toggle the visibility of modeline." - :evil-leader "tmt") + :status hidden-mode-line-mode + :on (hidden-mode-line-mode) + :off (hidden-mode-line-mode -1) + :documentation "Toggle the visibility of modeline." + :evil-leader "tmt") (spacemacs|add-toggle transparent-frame - :status nil - :on (spacemacs/toggle-transparency) - :documentation "Make the current frame non-opaque." - :evil-leader "TT") + :status nil + :on (spacemacs/toggle-transparency) + :documentation "Make the current frame non-opaque." + :evil-leader "TT") (spacemacs|add-toggle tool-bar - :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") + :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 - :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") + :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 - :status semantic-stickyfunc-mode - :on (semantic-stickyfunc-mode) - :off (semantic-stickyfunc-mode -1) - :documentation "Enable semantic-stickyfunc." - :evil-leader "Ts") + :status semantic-stickyfunc-mode + :on (semantic-stickyfunc-mode) + :off (semantic-stickyfunc-mode -1) + :documentation "Enable semantic-stickyfunc." + :evil-leader "Ts") (spacemacs|add-toggle semantic-stickfunc-globally - :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") + :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 ----------------------------------------------------------------------- (evil-leader/set-key "qs" 'spacemacs/save-buffers-kill-emacs diff --git a/spacemacs/packages.el b/spacemacs/packages.el index 03a83395f..bd3473b56 100644 --- a/spacemacs/packages.el +++ b/spacemacs/packages.el @@ -203,17 +203,17 @@ (global-aggressive-indent-mode))) (spacemacs|add-toggle aggressive-indent - :status aggressive-indent-mode - :on (aggressive-indent-mode) - :off (aggressive-indent-mode -1) - :documentation "Keep code always indented." - :evil-leader "tI") + :status aggressive-indent-mode + :on (aggressive-indent-mode) + :off (aggressive-indent-mode -1) + :documentation "Keep code always indented." + :evil-leader "tI") (spacemacs|add-toggle aggressive-indent-globally - :status aggressive-indent-mode - :on (global-aggressive-indent-mode) - :off (global-aggressive-indent-mode -1) - :documentation "Globally keep code always indented." - :evil-leader "t C-I")) + :status aggressive-indent-mode + :on (global-aggressive-indent-mode) + :off (global-aggressive-indent-mode -1) + :documentation "Globally keep code always indented." + :evil-leader "t C-I")) :config (progn (defun spacemacs/disable-aggressive-indent () @@ -1156,11 +1156,11 @@ Example: (evil-map visual \"<\" \"