74fdbb6795
Enabling a company backend for a specific mode was a tedious tasks with code scattered at different locations, one for local variable definitions, one for company hook function definitions and another where the backends were pushed to the local variables (which was problematic, since we ended up pushing the same backends over and over again with `SPC f e R`, pushes have been replaced by add-to-list calls in the new macro). All these steps are now put together at one place with the new macro spacemacs|add-company-backends, check its docstring for more info on its arguments. This macro also allows to define arbitrary buffer local variables to tune company for specific modes (similar to layer variables via a keyword :variables) The code related to company backends management has been moved to the auto-completion layer in the funcs.el file. A nice side effect of this move is that it enforces correct encapsulation of company backends related code. We can now easily detect if there is some configuration leakage when the auto-completion layer is not used. But we loose macro expansion at file loading time (not sue it is a big concern though). The function spacemacs|enable-auto-complete was never used so it has been deleted which led to the deletion of the now empty file core-auto-completion.el. The example in LAYERS.org regarding auto-completion is now out of date and has been deleted. An example to setup auto-completion is provided in the README.org file of the auto-completion layer.
209 lines
8.9 KiB
EmacsLisp
209 lines
8.9 KiB
EmacsLisp
;;; core-spacemacs.el --- Spacemacs Core 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 message-log-max 16384)
|
|
(defconst emacs-start-time (current-time))
|
|
|
|
(require 'subr-x nil 'noerror)
|
|
(require 'page-break-lines)
|
|
(require 'core-debug)
|
|
(require 'core-command-line)
|
|
(require 'core-dotspacemacs)
|
|
(require 'core-custom-settings)
|
|
(require 'core-release-management)
|
|
(require 'core-jump)
|
|
(require 'core-display-init)
|
|
(require 'core-themes-support)
|
|
(require 'core-fonts-support)
|
|
(require 'core-spacemacs-buffer)
|
|
(require 'core-keybindings)
|
|
(require 'core-toggle)
|
|
(require 'core-funcs)
|
|
(require 'core-micro-state)
|
|
(require 'core-transient-state)
|
|
(require 'core-use-package-ext)
|
|
|
|
(defgroup spacemacs nil
|
|
"Spacemacs customizations."
|
|
:group 'starter-kit
|
|
:prefix 'spacemacs-)
|
|
|
|
;; loading progress bar variables
|
|
(defvar spacemacs-loading-char ?█)
|
|
(defvar spacemacs-loading-string "")
|
|
(defvar spacemacs-loading-counter 0)
|
|
(defvar spacemacs-loading-value 0)
|
|
;; (defvar spacemacs-loading-text "Loading")
|
|
;; (defvar spacemacs-loading-done-text "Ready!")
|
|
(defvar spacemacs-loading-dots-chunk-count 3)
|
|
(defvar spacemacs-loading-dots-count (window-total-size nil 'width))
|
|
(defvar spacemacs-loading-dots-chunk-size
|
|
(/ spacemacs-loading-dots-count spacemacs-loading-dots-chunk-count))
|
|
(defvar spacemacs-loading-dots-chunk-threshold 0)
|
|
|
|
(defvar spacemacs-post-user-config-hook nil
|
|
"Hook run after dotspacemacs/user-config")
|
|
(defvar spacemacs-post-user-config-hook-run nil
|
|
"Whether `spacemacs-post-user-config-hook' has been run")
|
|
|
|
(defvar spacemacs--default-mode-line mode-line-format
|
|
"Backup of default mode line format.")
|
|
(defvar spacemacs-initialized nil
|
|
"Whether or not spacemacs has finished initializing by completing
|
|
the final step of executing code in `emacs-startup-hook'.")
|
|
|
|
(defun spacemacs/init ()
|
|
"Perform startup initialization."
|
|
(when spacemacs-debugp (spacemacs/init-debug))
|
|
;; silence ad-handle-definition about advised functions getting redefined
|
|
(setq ad-redefinition-action 'accept)
|
|
;; this is for a smoother UX at startup (i.e. less graphical glitches)
|
|
(hidden-mode-line-mode)
|
|
(spacemacs//removes-gui-elements)
|
|
;; explicitly set the prefered coding systems to avoid annoying prompt
|
|
;; from emacs (especially on Microsoft Windows)
|
|
(prefer-coding-system 'utf-8)
|
|
;; TODO move these variables when evil is removed from the bootstrapped
|
|
;; packages.
|
|
(setq-default evil-want-C-u-scroll t
|
|
;; `evil-want-C-i-jump' is set to nil to avoid `TAB' being
|
|
;; overlapped in terminal mode. The GUI specific `<C-i>' is used
|
|
;; instead.
|
|
evil-want-C-i-jump nil)
|
|
(dotspacemacs/load-file)
|
|
(require 'core-configuration-layer)
|
|
(dotspacemacs|call-func dotspacemacs/init "Calling dotfile init...")
|
|
(when dotspacemacs-maximized-at-startup
|
|
(unless (frame-parameter nil 'fullscreen)
|
|
(toggle-frame-maximized))
|
|
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
|
|
(dotspacemacs|call-func dotspacemacs/user-init "Calling dotfile user init...")
|
|
;; Given the loading process of Spacemacs we have no choice but to set the
|
|
;; custom settings twice:
|
|
;; - once at the very beginning of startup (here)
|
|
;; - once at the very end of loading (in `spacemacs/setup-startup-hook')
|
|
;; The first application of custom settings is to be sure that Emacs knows all
|
|
;; the defined settings before saving them to a file (otherwise we loose all
|
|
;; the settings that Emacs does not know of).
|
|
;; The second application is to override any setting set in dotfile functions
|
|
;; like `dotspacemacs/user-config`, users expect the custom settings to be the
|
|
;; effective ones.
|
|
;; Note: Loading custom-settings twice is not ideal since they can have side
|
|
;; effects! Maybe an inhibit variable in Emacs can supress these side effects?
|
|
(dotspacemacs|call-func dotspacemacs/emacs-custom-settings
|
|
"Calling dotfile Emacs custom settings...")
|
|
(setq dotspacemacs-editing-style (dotspacemacs//read-editing-style-config
|
|
dotspacemacs-editing-style))
|
|
(configuration-layer/initialize)
|
|
;; default theme
|
|
(let ((default-theme (car dotspacemacs-themes)))
|
|
(spacemacs/load-theme default-theme)
|
|
;; protect used themes from deletion as orphans
|
|
(setq configuration-layer--protected-packages
|
|
(append
|
|
(delq nil (mapcar 'spacemacs//get-theme-package
|
|
dotspacemacs-themes))
|
|
configuration-layer--protected-packages))
|
|
(setq-default spacemacs--cur-theme default-theme)
|
|
(setq-default spacemacs--cycle-themes (cdr dotspacemacs-themes)))
|
|
;; font
|
|
(spacemacs|do-after-display-system-init
|
|
;; If you are thinking to remove this call to `message', think twice. You'll
|
|
;; break the life of several Spacemacser using Emacs in daemon mode. Without
|
|
;; this, their chosen font will not be set on the *first* instance of
|
|
;; emacsclient, at least if different than their system font. You don't
|
|
;; believe me? Go ahead, try it. After you'll have notice that this was true,
|
|
;; increase the counter bellow so next people will give it more confidence.
|
|
;; Counter = 1
|
|
(message "Setting the font...")
|
|
(unless (spacemacs/set-default-font dotspacemacs-default-font)
|
|
(spacemacs-buffer/warning
|
|
"Cannot find any of the specified fonts (%s)! Font settings may not be correct."
|
|
(if (listp (car dotspacemacs-default-font))
|
|
(mapconcat 'car dotspacemacs-default-font ", ")
|
|
(car dotspacemacs-default-font)))))
|
|
;; spacemacs init
|
|
(setq inhibit-startup-screen t)
|
|
(spacemacs-buffer/goto-buffer)
|
|
(unless (display-graphic-p)
|
|
;; explicitly recreate the home buffer for the first GUI client
|
|
;; in order to correctly display the logo
|
|
(spacemacs|do-after-display-system-init
|
|
(kill-buffer (get-buffer spacemacs-buffer-name))
|
|
(spacemacs-buffer/goto-buffer)))
|
|
;; This is set to nil during startup to allow Spacemacs to show buffers opened
|
|
;; as command line arguments.
|
|
(setq initial-buffer-choice nil)
|
|
(setq inhibit-startup-screen t)
|
|
(require 'core-keybindings)
|
|
;; for convenience and user support
|
|
(unless (fboundp 'tool-bar-mode)
|
|
(spacemacs-buffer/message (concat "No graphical support detected, "
|
|
"you won't be able to launch a "
|
|
"graphical instance of Emacs"
|
|
"with this build.")))
|
|
;; check for new version
|
|
(if dotspacemacs-mode-line-unicode-symbols
|
|
(setq-default spacemacs-version-check-lighter "[⇪]"))
|
|
;; install the dotfile if required
|
|
(dotspacemacs/maybe-install-dotfile))
|
|
|
|
(defun spacemacs//removes-gui-elements ()
|
|
"Remove the menu bar, tool bar and scroll bars."
|
|
;; removes the GUI elements
|
|
(unless (spacemacs/window-system-is-mac)
|
|
(when (and (fboundp 'menu-bar-mode) (not (eq menu-bar-mode -1)))
|
|
(menu-bar-mode -1)))
|
|
(when (and (fboundp 'scroll-bar-mode) (not (eq scroll-bar-mode -1)))
|
|
(scroll-bar-mode -1))
|
|
(when (and (fboundp 'tool-bar-mode) (not (eq tool-bar-mode -1)))
|
|
(tool-bar-mode -1))
|
|
;; tooltips in echo-aera
|
|
(when (and (fboundp 'tooltip-mode) (not (eq tooltip-mode -1)))
|
|
(tooltip-mode -1)))
|
|
|
|
(defun display-startup-echo-area-message ()
|
|
"Change the default welcome message of minibuffer to another one."
|
|
(message "Spacemacs is ready."))
|
|
|
|
(defun spacemacs/defer-until-after-user-config (func)
|
|
"Call FUNC if dotspacemacs/user-config has been called. Otherwise,
|
|
defer call using `spacemacs-post-user-config-hook'."
|
|
(if spacemacs-post-user-config-hook-run
|
|
(funcall func)
|
|
(add-hook 'spacemacs-post-user-config-hook func)))
|
|
|
|
(defun spacemacs/setup-startup-hook ()
|
|
"Add post init processing."
|
|
(add-hook
|
|
'emacs-startup-hook
|
|
(lambda ()
|
|
;; This is set here so that emacsclient will show the startup buffer (and
|
|
;; so that it can be changed in user-config if necessary). It was set to
|
|
;; nil earlier in the startup process to properly handle command line
|
|
;; arguments.
|
|
(setq initial-buffer-choice (lambda () (get-buffer spacemacs-buffer-name)))
|
|
;; Ultimate configuration decisions are given to the user who can defined
|
|
;; them in his/her ~/.spacemacs file
|
|
(dotspacemacs|call-func dotspacemacs/user-config
|
|
"Calling dotfile user config...")
|
|
(dotspacemacs|call-func dotspacemacs/emacs-custom-settings
|
|
"Calling dotfile Emacs custom settings...")
|
|
(run-hooks 'spacemacs-post-user-config-hook)
|
|
(setq spacemacs-post-user-config-hook-run t)
|
|
(when (fboundp dotspacemacs-scratch-mode)
|
|
(with-current-buffer "*scratch*"
|
|
(funcall dotspacemacs-scratch-mode)))
|
|
(configuration-layer/display-summary emacs-start-time)
|
|
(spacemacs/check-for-new-version nil spacemacs-version-check-interval)
|
|
(setq spacemacs-initialized t))))
|
|
|
|
(provide 'core-spacemacs)
|