Compare commits
10 Commits
cd13fbaa7f
...
696e8526e2
| Author | SHA1 | Date | |
|---|---|---|---|
|
696e8526e2 | ||
|
|
c799f90e39 | ||
|
|
0e2d84d360 | ||
|
|
2cea1233ec | ||
|
|
3fcfae94b7 | ||
|
|
27b9c7525c | ||
|
|
ca469d3259 | ||
|
|
63d9eb192c | ||
|
|
64369fe430 | ||
|
|
c975991bf4 |
@ -1,528 +0,0 @@
|
|||||||
;; -*- mode: emacs-lisp; lexical-binding: t -*-
|
|
||||||
;; This file is loaded by Spacemacs at startup.
|
|
||||||
;; It must be stored in your home directory.
|
|
||||||
|
|
||||||
;; find java command for different platforms
|
|
||||||
(defun find-java ()
|
|
||||||
(cond ((eq system-type 'darwin)
|
|
||||||
;; we need to escape SPC charater to avoid execution fail
|
|
||||||
"/Library/Internet\\ Plug-Ins/JavaAppletPlugin.plugin/Contents/Home/bin/java")
|
|
||||||
((eq system-type 'berkeley-unix)
|
|
||||||
"/usr/local/bin/java")
|
|
||||||
(t "/usr/bin/java")))
|
|
||||||
|
|
||||||
;; load configuration for local host
|
|
||||||
(defun load-local-config (config)
|
|
||||||
(let ((file (concat "~/" config "." system-name ".el")))
|
|
||||||
;; load config
|
|
||||||
(message "loading %s..." file)
|
|
||||||
(when (file-exists-p file)
|
|
||||||
(load-file file))))
|
|
||||||
|
|
||||||
(defun do-foreach (tag action)
|
|
||||||
(save-excursion
|
|
||||||
(progn (goto-char (point-min))
|
|
||||||
(while (re-search-forward tag nil t)
|
|
||||||
(progn (funcall action)
|
|
||||||
(forward-line 1))))))
|
|
||||||
|
|
||||||
(defun dotspacemacs/layers ()
|
|
||||||
"Layer configuration:
|
|
||||||
This function should only modify configuration layer settings."
|
|
||||||
(setq-default
|
|
||||||
;; Base distribution to use. This is a layer contained in the directory
|
|
||||||
;; `+distribution'. For now available distributions are `spacemacs-base'
|
|
||||||
;; or `spacemacs'. (default 'spacemacs)
|
|
||||||
dotspacemacs-distribution 'spacemacs
|
|
||||||
|
|
||||||
;; Lazy installation of layers (i.e. layers are installed only when a file
|
|
||||||
;; with a supported type is opened). Possible values are `all', `unused'
|
|
||||||
;; and `nil'. `unused' will lazy install only unused layers (i.e. layers
|
|
||||||
;; not listed in variable `dotspacemacs-configuration-layers'), `all' will
|
|
||||||
;; lazy install any layer that support lazy installation even the layers
|
|
||||||
;; listed in `dotspacemacs-configuration-layers'. `nil' disable the lazy
|
|
||||||
;; installation feature and you have to explicitly list a layer in the
|
|
||||||
;; variable `dotspacemacs-configuration-layers' to install it.
|
|
||||||
;; (default 'unused)
|
|
||||||
dotspacemacs-enable-lazy-installation 'unused
|
|
||||||
|
|
||||||
;; If non-nil then Spacemacs will ask for confirmation before installing
|
|
||||||
;; a layer lazily. (default t)
|
|
||||||
dotspacemacs-ask-for-lazy-installation t
|
|
||||||
|
|
||||||
;; If non-nil layers with lazy install support are lazy installed.
|
|
||||||
;; List of additional paths where to look for configuration layers.
|
|
||||||
;; Paths must have a trailing slash (i.e. `~/.mycontribs/')
|
|
||||||
dotspacemacs-configuration-layer-path '()
|
|
||||||
|
|
||||||
;; List of configuration layers to load.
|
|
||||||
dotspacemacs-configuration-layers
|
|
||||||
'(
|
|
||||||
;; ----------------------------------------------------------------
|
|
||||||
;; Example of useful layers you may want to use right away.
|
|
||||||
;; Uncomment some layer names and press `SPC f e R' (Vim style) or
|
|
||||||
;; `M-m f e R' (Emacs style) to install them.
|
|
||||||
;; ----------------------------------------------------------------
|
|
||||||
;;helm
|
|
||||||
;;auto-completion
|
|
||||||
ivy
|
|
||||||
better-defaults
|
|
||||||
emacs-lisp
|
|
||||||
git
|
|
||||||
markdown
|
|
||||||
multiple-cursors
|
|
||||||
treemacs
|
|
||||||
org
|
|
||||||
(shell :variables
|
|
||||||
shell-default-height 30
|
|
||||||
shell-default-position 'bottom)
|
|
||||||
(c-c++ :variables
|
|
||||||
c-c++-backend 'lsp-cquery
|
|
||||||
c-c++-lsp-executable "/usr/local/bin/cquery"
|
|
||||||
c-c++-adopt-subjects t
|
|
||||||
c-c++lsp-sem-highlight-rainbow t)
|
|
||||||
common-lisp
|
|
||||||
emacs-lisp
|
|
||||||
graphviz
|
|
||||||
latex
|
|
||||||
plantuml
|
|
||||||
python
|
|
||||||
lsp
|
|
||||||
pdf
|
|
||||||
epub
|
|
||||||
github
|
|
||||||
gtags
|
|
||||||
pandoc
|
|
||||||
(colors :variables
|
|
||||||
colors-colorize-identifiers 'all
|
|
||||||
colors-default-rainbow-identifiers-sat 42
|
|
||||||
colors-default-rainbow-identifiers-light 86)
|
|
||||||
themes-megapack
|
|
||||||
theming
|
|
||||||
spell-checking
|
|
||||||
syntax-checking
|
|
||||||
version-control
|
|
||||||
ibuffer
|
|
||||||
unicode-fonts
|
|
||||||
)
|
|
||||||
|
|
||||||
;; List of additional packages that will be installed without being
|
|
||||||
;; wrapped in a layer. If you need some configuration for these
|
|
||||||
;; packages, then consider creating a layer. You can also put the
|
|
||||||
;; configuration in `dotspacemacs/user-config'.
|
|
||||||
;; To use a local version of a package, use the `:location' property:
|
|
||||||
;; '(your-package :location "~/path/to/your-package/")
|
|
||||||
;; Also include the dependencies as they will not be resolved automatically.
|
|
||||||
dotspacemacs-additional-packages '()
|
|
||||||
|
|
||||||
;; A list of packages that cannot be updated.
|
|
||||||
dotspacemacs-frozen-packages '()
|
|
||||||
|
|
||||||
;; A list of packages that will not be installed and loaded.
|
|
||||||
dotspacemacs-excluded-packages '()
|
|
||||||
|
|
||||||
;; Defines the behaviour of Spacemacs when installing packages.
|
|
||||||
;; Possible values are `used-only', `used-but-keep-unused' and `all'.
|
|
||||||
;; `used-only' installs only explicitly used packages and deletes any unused
|
|
||||||
;; packages as well as their unused dependencies. `used-but-keep-unused'
|
|
||||||
;; installs only the used packages but won't delete unused ones. `all'
|
|
||||||
;; installs *all* packages supported by Spacemacs and never uninstalls them.
|
|
||||||
;; (default is `used-only')
|
|
||||||
dotspacemacs-install-packages 'used-only))
|
|
||||||
|
|
||||||
(defun dotspacemacs/init ()
|
|
||||||
"Initialization:
|
|
||||||
This function is called at the very beginning of Spacemacs startup,
|
|
||||||
before layer configuration.
|
|
||||||
It should only modify the values of Spacemacs settings."
|
|
||||||
;; This setq-default sexp is an exhaustive list of all the supported
|
|
||||||
;; spacemacs settings.
|
|
||||||
(setq-default
|
|
||||||
;; If non-nil then enable support for the portable dumper. You'll need
|
|
||||||
;; to compile Emacs 27 from source following the instructions in file
|
|
||||||
;; EXPERIMENTAL.org at to root of the git repository.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-enable-emacs-pdumper nil
|
|
||||||
|
|
||||||
;; File path pointing to emacs 27.1 executable compiled with support
|
|
||||||
;; for the portable dumper (this is currently the branch pdumper).
|
|
||||||
;; (default "emacs-27.0.50")
|
|
||||||
dotspacemacs-emacs-pdumper-executable-file "emacs-27.0.50"
|
|
||||||
|
|
||||||
;; Name of the Spacemacs dump file. This is the file will be created by the
|
|
||||||
;; portable dumper in the cache directory under dumps sub-directory.
|
|
||||||
;; To load it when starting Emacs add the parameter `--dump-file'
|
|
||||||
;; when invoking Emacs 27.1 executable on the command line, for instance:
|
|
||||||
;; ./emacs --dump-file=~/.emacs.d/.cache/dumps/spacemacs.pdmp
|
|
||||||
;; (default spacemacs.pdmp)
|
|
||||||
dotspacemacs-emacs-dumper-dump-file "spacemacs.pdmp"
|
|
||||||
|
|
||||||
;; If non-nil ELPA repositories are contacted via HTTPS whenever it's
|
|
||||||
;; possible. Set it to nil if you have no way to use HTTPS in your
|
|
||||||
;; environment, otherwise it is strongly recommended to let it set to t.
|
|
||||||
;; This variable has no effect if Emacs is launched with the parameter
|
|
||||||
;; `--insecure' which forces the value of this variable to nil.
|
|
||||||
;; (default t)
|
|
||||||
dotspacemacs-elpa-https t
|
|
||||||
|
|
||||||
;; Maximum allowed time in seconds to contact an ELPA repository.
|
|
||||||
;; (default 5)
|
|
||||||
dotspacemacs-elpa-timeout 5
|
|
||||||
|
|
||||||
;; Set `gc-cons-threshold' and `gc-cons-percentage' when startup finishes.
|
|
||||||
;; This is an advanced option and should not be changed unless you suspect
|
|
||||||
;; performance issues due to garbage collection operations.
|
|
||||||
;; (default '(100000000 0.1))
|
|
||||||
dotspacemacs-gc-cons '(100000000 0.1)
|
|
||||||
|
|
||||||
;; If non-nil then Spacelpa repository is the primary source to install
|
|
||||||
;; a locked version of packages. If nil then Spacemacs will install the
|
|
||||||
;; latest version of packages from MELPA. (default nil)
|
|
||||||
dotspacemacs-use-spacelpa nil
|
|
||||||
|
|
||||||
;; If non-nil then verify the signature for downloaded Spacelpa archives.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-verify-spacelpa-archives nil
|
|
||||||
|
|
||||||
;; If non-nil then spacemacs will check for updates at startup
|
|
||||||
;; when the current branch is not `develop'. Note that checking for
|
|
||||||
;; new versions works via git commands, thus it calls GitHub services
|
|
||||||
;; whenever you start Emacs. (default nil)
|
|
||||||
dotspacemacs-check-for-update nil
|
|
||||||
|
|
||||||
;; If non-nil, a form that evaluates to a package directory. For example, to
|
|
||||||
;; use different package directories for different Emacs versions, set this
|
|
||||||
;; to `emacs-version'. (default 'emacs-version)
|
|
||||||
dotspacemacs-elpa-subdirectory 'emacs-version
|
|
||||||
|
|
||||||
;; One of `vim', `emacs' or `hybrid'.
|
|
||||||
;; `hybrid' is like `vim' except that `insert state' is replaced by the
|
|
||||||
;; `hybrid state' with `emacs' key bindings. The value can also be a list
|
|
||||||
;; with `:variables' keyword (similar to layers). Check the editing styles
|
|
||||||
;; section of the documentation for details on available variables.
|
|
||||||
;; (default 'vim)
|
|
||||||
dotspacemacs-editing-style 'vim
|
|
||||||
|
|
||||||
;; If non-nil output loading progress in `*Messages*' buffer. (default nil)
|
|
||||||
dotspacemacs-verbose-loading nil
|
|
||||||
|
|
||||||
;; Specify the startup banner. Default value is `official', it displays
|
|
||||||
;; the official spacemacs logo. An integer value is the index of text
|
|
||||||
;; banner, `random' chooses a random text banner in `core/banners'
|
|
||||||
;; directory. A string value must be a path to an image format supported
|
|
||||||
;; by your Emacs build.
|
|
||||||
;; If the value is nil then no banner is displayed. (default 'official)
|
|
||||||
dotspacemacs-startup-banner 'official
|
|
||||||
|
|
||||||
;; List of items to show in startup buffer or an association list of
|
|
||||||
;; the form `(list-type . list-size)`. If nil then it is disabled.
|
|
||||||
;; Possible values for list-type are:
|
|
||||||
;; `recents' `bookmarks' `projects' `agenda' `todos'.
|
|
||||||
;; List sizes may be nil, in which case
|
|
||||||
;; `spacemacs-buffer-startup-lists-length' takes effect.
|
|
||||||
dotspacemacs-startup-lists '((recents . 5)
|
|
||||||
(projects . 7))
|
|
||||||
|
|
||||||
;; True if the home buffer should respond to resize events. (default t)
|
|
||||||
dotspacemacs-startup-buffer-responsive t
|
|
||||||
|
|
||||||
;; Default major mode of the scratch buffer (default `text-mode')
|
|
||||||
dotspacemacs-scratch-mode 'text-mode
|
|
||||||
|
|
||||||
;; Initial message in the scratch buffer, such as "Welcome to Spacemacs!"
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-initial-scratch-message nil
|
|
||||||
|
|
||||||
;; List of themes, the first of the list is loaded when spacemacs starts.
|
|
||||||
;; Press `SPC T n' to cycle to the next theme in the list (works great
|
|
||||||
;; with 2 themes variants, one dark and one light)
|
|
||||||
dotspacemacs-themes '(spacemacs-dark
|
|
||||||
spacemacs-light)
|
|
||||||
|
|
||||||
;; Set the theme for the Spaceline. Supported themes are `spacemacs',
|
|
||||||
;; `all-the-icons', `custom', `doom', `vim-powerline' and `vanilla'. The
|
|
||||||
;; first three are spaceline themes. `doom' is the doom-emacs mode-line.
|
|
||||||
;; `vanilla' is default Emacs mode-line. `custom' is a user defined themes,
|
|
||||||
;; refer to the DOCUMENTATION.org for more info on how to create your own
|
|
||||||
;; spaceline theme. Value can be a symbol or list with additional properties.
|
|
||||||
;; (default '(spacemacs :separator wave :separator-scale 1.5))
|
|
||||||
dotspacemacs-mode-line-theme '(spacemacs :separator wave :separator-scale 1.5)
|
|
||||||
|
|
||||||
;; If non-nil the cursor color matches the state color in GUI Emacs.
|
|
||||||
;; (default t)
|
|
||||||
dotspacemacs-colorize-cursor-according-to-state t
|
|
||||||
|
|
||||||
;; Default font, or prioritized list of fonts. `powerline-scale' allows to
|
|
||||||
;; quickly tweak the mode-line size to make separators look not too crappy.
|
|
||||||
dotspacemacs-default-font '("Inconsolata LGC"
|
|
||||||
:size 14
|
|
||||||
:weight normal
|
|
||||||
:width normal
|
|
||||||
:powerline-scale 1.1)
|
|
||||||
|
|
||||||
;; The leader key (default "SPC")
|
|
||||||
dotspacemacs-leader-key "SPC"
|
|
||||||
|
|
||||||
;; The key used for Emacs commands `M-x' (after pressing on the leader key).
|
|
||||||
;; (default "SPC")
|
|
||||||
dotspacemacs-emacs-command-key "SPC"
|
|
||||||
|
|
||||||
;; The key used for Vim Ex commands (default ":")
|
|
||||||
dotspacemacs-ex-command-key ":"
|
|
||||||
|
|
||||||
;; The leader key accessible in `emacs state' and `insert state'
|
|
||||||
;; (default "M-m")
|
|
||||||
dotspacemacs-emacs-leader-key "M-m"
|
|
||||||
|
|
||||||
;; Major mode leader key is a shortcut key which is the equivalent of
|
|
||||||
;; pressing `<leader> m`. Set it to `nil` to disable it. (default ",")
|
|
||||||
dotspacemacs-major-mode-leader-key ","
|
|
||||||
|
|
||||||
;; Major mode leader key accessible in `emacs state' and `insert state'.
|
|
||||||
;; (default "C-M-m")
|
|
||||||
dotspacemacs-major-mode-emacs-leader-key "C-M-m"
|
|
||||||
|
|
||||||
;; These variables control whether separate commands are bound in the GUI to
|
|
||||||
;; the key pairs `C-i', `TAB' and `C-m', `RET'.
|
|
||||||
;; Setting it to a non-nil value, allows for separate commands under `C-i'
|
|
||||||
;; and TAB or `C-m' and `RET'.
|
|
||||||
;; In the terminal, these pairs are generally indistinguishable, so this only
|
|
||||||
;; works in the GUI. (default nil)
|
|
||||||
dotspacemacs-distinguish-gui-tab nil
|
|
||||||
|
|
||||||
;; Name of the default layout (default "Default")
|
|
||||||
dotspacemacs-default-layout-name "Default"
|
|
||||||
|
|
||||||
;; If non-nil the default layout name is displayed in the mode-line.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-display-default-layout nil
|
|
||||||
|
|
||||||
;; If non-nil then the last auto saved layouts are resumed automatically upon
|
|
||||||
;; start. (default nil)
|
|
||||||
dotspacemacs-auto-resume-layouts nil
|
|
||||||
|
|
||||||
;; If non-nil, auto-generate layout name when creating new layouts. Only has
|
|
||||||
;; effect when using the "jump to layout by number" commands. (default nil)
|
|
||||||
dotspacemacs-auto-generate-layout-names nil
|
|
||||||
|
|
||||||
;; Size (in MB) above which spacemacs will prompt to open the large file
|
|
||||||
;; literally to avoid performance issues. Opening a file literally means that
|
|
||||||
;; no major mode or minor modes are active. (default is 1)
|
|
||||||
dotspacemacs-large-file-size 1
|
|
||||||
|
|
||||||
;; Location where to auto-save files. Possible values are `original' to
|
|
||||||
;; auto-save the file in-place, `cache' to auto-save the file to another
|
|
||||||
;; file stored in the cache directory and `nil' to disable auto-saving.
|
|
||||||
;; (default 'cache)
|
|
||||||
dotspacemacs-auto-save-file-location 'cache
|
|
||||||
|
|
||||||
;; Maximum number of rollback slots to keep in the cache. (default 5)
|
|
||||||
dotspacemacs-max-rollback-slots 5
|
|
||||||
|
|
||||||
;; If non-nil, the paste transient-state is enabled. While enabled, after you
|
|
||||||
;; paste something, pressing `C-j' and `C-k' several times cycles through the
|
|
||||||
;; elements in the `kill-ring'. (default nil)
|
|
||||||
dotspacemacs-enable-paste-transient-state nil
|
|
||||||
|
|
||||||
;; Which-key delay in seconds. The which-key buffer is the popup listing
|
|
||||||
;; the commands bound to the current keystroke sequence. (default 0.4)
|
|
||||||
dotspacemacs-which-key-delay 0.4
|
|
||||||
|
|
||||||
;; Which-key frame position. Possible values are `right', `bottom' and
|
|
||||||
;; `right-then-bottom'. right-then-bottom tries to display the frame to the
|
|
||||||
;; right; if there is insufficient space it displays it at the bottom.
|
|
||||||
;; (default 'bottom)
|
|
||||||
dotspacemacs-which-key-position 'bottom
|
|
||||||
|
|
||||||
;; Control where `switch-to-buffer' displays the buffer. If nil,
|
|
||||||
;; `switch-to-buffer' displays the buffer in the current window even if
|
|
||||||
;; another same-purpose window is available. If non-nil, `switch-to-buffer'
|
|
||||||
;; displays the buffer in a same-purpose window even if the buffer can be
|
|
||||||
;; displayed in the current window. (default nil)
|
|
||||||
dotspacemacs-switch-to-buffer-prefers-purpose nil
|
|
||||||
|
|
||||||
;; If non-nil a progress bar is displayed when spacemacs is loading. This
|
|
||||||
;; may increase the boot time on some systems and emacs builds, set it to
|
|
||||||
;; nil to boost the loading time. (default t)
|
|
||||||
dotspacemacs-loading-progress-bar t
|
|
||||||
|
|
||||||
;; If non-nil the frame is fullscreen when Emacs starts up. (default nil)
|
|
||||||
;; (Emacs 24.4+ only)
|
|
||||||
dotspacemacs-fullscreen-at-startup nil
|
|
||||||
|
|
||||||
;; If non-nil `spacemacs/toggle-fullscreen' will not use native fullscreen.
|
|
||||||
;; Use to disable fullscreen animations in OSX. (default nil)
|
|
||||||
dotspacemacs-fullscreen-use-non-native nil
|
|
||||||
|
|
||||||
;; If non-nil the frame is maximized when Emacs starts up.
|
|
||||||
;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
|
|
||||||
;; (default nil) (Emacs 24.4+ only)
|
|
||||||
dotspacemacs-maximized-at-startup nil
|
|
||||||
|
|
||||||
;; A value from the range (0..100), in increasing opacity, which describes
|
|
||||||
;; the transparency level of a frame when it's active or selected.
|
|
||||||
;; Transparency can be toggled through `toggle-transparency'. (default 90)
|
|
||||||
dotspacemacs-active-transparency 90
|
|
||||||
|
|
||||||
;; A value from the range (0..100), in increasing opacity, which describes
|
|
||||||
;; the transparency level of a frame when it's inactive or deselected.
|
|
||||||
;; Transparency can be toggled through `toggle-transparency'. (default 90)
|
|
||||||
dotspacemacs-inactive-transparency 90
|
|
||||||
|
|
||||||
;; If non-nil show the titles of transient states. (default t)
|
|
||||||
dotspacemacs-show-transient-state-title t
|
|
||||||
|
|
||||||
;; If non-nil show the color guide hint for transient state keys. (default t)
|
|
||||||
dotspacemacs-show-transient-state-color-guide t
|
|
||||||
|
|
||||||
;; If non-nil unicode symbols are displayed in the mode line.
|
|
||||||
;; If you use Emacs as a daemon and wants unicode characters only in GUI set
|
|
||||||
;; the value to quoted `display-graphic-p'. (default t)
|
|
||||||
dotspacemacs-mode-line-unicode-symbols t
|
|
||||||
|
|
||||||
;; If non-nil smooth scrolling (native-scrolling) is enabled. Smooth
|
|
||||||
;; scrolling overrides the default behavior of Emacs which recenters point
|
|
||||||
;; when it reaches the top or bottom of the screen. (default t)
|
|
||||||
dotspacemacs-smooth-scrolling t
|
|
||||||
|
|
||||||
;; Control line numbers activation.
|
|
||||||
;; If set to `t' or `relative' line numbers are turned on in all `prog-mode' and
|
|
||||||
;; `text-mode' derivatives. If set to `relative', line numbers are relative.
|
|
||||||
;; This variable can also be set to a property list for finer control:
|
|
||||||
;; '(:relative nil
|
|
||||||
;; :disabled-for-modes dired-mode
|
|
||||||
;; doc-view-mode
|
|
||||||
;; markdown-mode
|
|
||||||
;; org-mode
|
|
||||||
;; pdf-view-mode
|
|
||||||
;; text-mode
|
|
||||||
;; :size-limit-kb 1000)
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-line-numbers nil
|
|
||||||
|
|
||||||
;; Code folding method. Possible values are `evil' and `origami'.
|
|
||||||
;; (default 'evil)
|
|
||||||
dotspacemacs-folding-method 'evil
|
|
||||||
|
|
||||||
;; If non-nil `smartparens-strict-mode' will be enabled in programming modes.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-smartparens-strict-mode 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)
|
|
||||||
dotspacemacs-smart-closing-parenthesis 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)
|
|
||||||
dotspacemacs-highlight-delimiters 'all
|
|
||||||
|
|
||||||
;; If non-nil, start an Emacs server if one is not already running.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-enable-server nil
|
|
||||||
|
|
||||||
;; Set the emacs server socket location.
|
|
||||||
;; If nil, uses whatever the Emacs default is, otherwise a directory path
|
|
||||||
;; like \"~/.emacs.d/server\". It has no effect if
|
|
||||||
;; `dotspacemacs-enable-server' is nil.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-server-socket-dir nil
|
|
||||||
|
|
||||||
;; If non-nil, advise quit functions to keep server open when quitting.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-persistent-server nil
|
|
||||||
|
|
||||||
;; List of search tool executable names. Spacemacs uses the first installed
|
|
||||||
;; tool of the list. Supported tools are `rg', `ag', `pt', `ack' and `grep'.
|
|
||||||
;; (default '("rg" "ag" "pt" "ack" "grep"))
|
|
||||||
dotspacemacs-search-tools '("rg" "ag" "pt" "ack" "grep")
|
|
||||||
|
|
||||||
;; Format specification for setting the frame title.
|
|
||||||
;; %a - the `abbreviated-file-name', or `buffer-name'
|
|
||||||
;; %t - `projectile-project-name'
|
|
||||||
;; %I - `invocation-name'
|
|
||||||
;; %S - `system-name'
|
|
||||||
;; %U - contents of $USER
|
|
||||||
;; %b - buffer name
|
|
||||||
;; %f - visited file name
|
|
||||||
;; %F - frame name
|
|
||||||
;; %s - process status
|
|
||||||
;; %p - percent of buffer above top of window, or Top, Bot or All
|
|
||||||
;; %P - percent of buffer above bottom of window, perhaps plus Top, or Bot or All
|
|
||||||
;; %m - mode name
|
|
||||||
;; %n - Narrow if appropriate
|
|
||||||
;; %z - mnemonics of buffer, terminal, and keyboard coding systems
|
|
||||||
;; %Z - like %z, but including the end-of-line format
|
|
||||||
;; (default "%I@%S")
|
|
||||||
dotspacemacs-frame-title-format "%I@%S"
|
|
||||||
|
|
||||||
;; Format specification for setting the icon title format
|
|
||||||
;; (default nil - same as frame-title-format)
|
|
||||||
dotspacemacs-icon-title-format nil
|
|
||||||
|
|
||||||
;; Delete whitespace while saving buffer. Possible values are `all'
|
|
||||||
;; to aggressively delete empty line and long sequences of whitespace,
|
|
||||||
;; `trailing' to delete only the whitespace at end of lines, `changed' to
|
|
||||||
;; 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
|
|
||||||
|
|
||||||
;; Run `spacemacs/prettify-org-buffer' when
|
|
||||||
;; visiting README.org files of Spacemacs.
|
|
||||||
;; (default nil)
|
|
||||||
dotspacemacs-pretty-docs nil))
|
|
||||||
|
|
||||||
(defun dotspacemacs/user-env ()
|
|
||||||
"Environment variables setup.
|
|
||||||
This function defines the environment variables for your Emacs session. By
|
|
||||||
default it calls `spacemacs/load-spacemacs-env' which loads the environment
|
|
||||||
variables declared in `~/.spacemacs.env' or `~/.spacemacs.d/.spacemacs.env'.
|
|
||||||
See the header of this file for more information."
|
|
||||||
(spacemacs/load-spacemacs-env))
|
|
||||||
|
|
||||||
(defun dotspacemacs/user-init ()
|
|
||||||
"Initialization for user code:
|
|
||||||
This function is called immediately after `dotspacemacs/init', before layer
|
|
||||||
configuration.
|
|
||||||
It is mostly for variables that should be set before packages are loaded.
|
|
||||||
If you are unsure, try setting them in `dotspacemacs/user-config' first."
|
|
||||||
(setq configuration-layer-elpa-archives
|
|
||||||
'(("gnu-cn" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
|
|
||||||
("org-cn" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/org/")
|
|
||||||
("melpa-cn" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")))
|
|
||||||
;; load slime helper ffor quicklisp
|
|
||||||
(let ((quicklisp-slime-helper (expand-file-name "~/quicklisp/slime-helper.el")))
|
|
||||||
(when (file-exists-p quicklisp-slime-helper)
|
|
||||||
(load quicklisp-slime-helper)))
|
|
||||||
(setq slime-lisp-implementations
|
|
||||||
'((cmucl ("cmucl" "-quiet"))
|
|
||||||
(sbcl ("sbcl" "--dynamic-space-size" "2560")
|
|
||||||
:coding-system utf-8-unix)))
|
|
||||||
(setq slime-default-lisp 'sbcl)
|
|
||||||
(load-local-config ".user-init")
|
|
||||||
(add-hook 'org-mode-hook
|
|
||||||
#'(lambda ()
|
|
||||||
(auto-fill-mode))))
|
|
||||||
|
|
||||||
(defun dotspacemacs/user-load ()
|
|
||||||
"Library to load while dumping.
|
|
||||||
This function is called only while dumping Spacemacs configuration. You can
|
|
||||||
`require' or `load' the libraries of your choice that will be included in the
|
|
||||||
dump."
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun dotspacemacs/user-config ()
|
|
||||||
"Configuration for user code:
|
|
||||||
This function is called at the very end of Spacemacs startup, after layer
|
|
||||||
configuration.
|
|
||||||
Put your configuration code here, except for variables that should be set
|
|
||||||
before packages are loaded."
|
|
||||||
)
|
|
||||||
|
|
||||||
;; Do not write anything past this comment. This is where Emacs will
|
|
||||||
;; auto-generate custom variable definitions.
|
|
||||||
@ -3,7 +3,7 @@
|
|||||||
;; Author: Rongsong Shen<rshen@shenrs.eu>
|
;; Author: Rongsong Shen<rshen@shenrs.eu>
|
||||||
;;
|
;;
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
;;
|
||||||
;; This package will enable us to use multiple EMACS startup
|
;; This package will enable us to use multiple EMACS startup
|
||||||
;; configuration(startkit in this package) and switch between
|
;; configuration(startkit in this package) and switch between
|
||||||
;; these configuration just by change a single environment
|
;; these configuration just by change a single environment
|
||||||
@ -23,113 +23,162 @@
|
|||||||
(require 'cl-lib)
|
(require 'cl-lib)
|
||||||
(require 'comint)
|
(require 'comint)
|
||||||
|
|
||||||
(defvar emacs-start-kit "The name of emacs startkit we will use")
|
(defvar emacs-start-kit
|
||||||
(defvar emacs-config-name "The directory name of emacs startkit")
|
(split-string
|
||||||
(defvar emacs-config-directory "The based directory of emacs start configuration")
|
(let ((start-kit (getenv "EMACS_STARTKIT")))
|
||||||
(defvar emacs-init-file "The full path of emacs start file")
|
(if start-kit
|
||||||
(defvar startkit-info "Information to install emacs startkit")
|
start-kit
|
||||||
|
"easy-emacs"))
|
||||||
|
":")
|
||||||
|
"The name of emacs startkit we will use")
|
||||||
|
|
||||||
(setq emacs-start-kit
|
(defvar startkit-name
|
||||||
(let ((start-kit (getenv "EMACS_STARTKIT")))
|
(car emacs-start-kit)
|
||||||
(if start-kit
|
"The name of Emacs startkit")
|
||||||
start-kit
|
|
||||||
"spacemacs")))
|
|
||||||
|
|
||||||
(setq emacs-config-name emacs-start-kit)
|
(defvar startkit-branch
|
||||||
|
(let ((branch (cadr emacs-start-kit)))
|
||||||
|
(if branch
|
||||||
|
branch
|
||||||
|
"master"))
|
||||||
|
"The branch of emacs startkit")
|
||||||
|
|
||||||
|
(defvar emacs-config-name
|
||||||
|
startkit-name
|
||||||
|
"The directory name of emacs startkit")
|
||||||
|
|
||||||
|
(defvar emacs-config-directory
|
||||||
|
(let ((config-dir (getenv "EMACS_CONFIG_DIR")))
|
||||||
|
(if config-dir
|
||||||
|
(format "%s/%s.%s"
|
||||||
|
config-dir
|
||||||
|
startkit-name
|
||||||
|
startkit-branch)
|
||||||
|
(format "%s/.config/emacs/%s.%s"
|
||||||
|
(getenv "HOME")
|
||||||
|
startkit-name
|
||||||
|
startkit-branch)))
|
||||||
|
"The based directory of emacs start configuration")
|
||||||
|
|
||||||
|
(defvar startkit-info nil
|
||||||
|
"Information to install emacs startkit")
|
||||||
|
|
||||||
|
(defvar emacs-base-directory
|
||||||
|
(format "%s/Emacs/%s.%s"
|
||||||
|
(getenv "HOME")
|
||||||
|
startkit-name
|
||||||
|
startkit-branch)
|
||||||
|
"The base directory which Emacs startkit will be put")
|
||||||
|
|
||||||
|
(defvar emacs-init-file
|
||||||
|
(concat emacs-base-directory "/"
|
||||||
|
"/init.el")
|
||||||
|
"The full path of emacs start file")
|
||||||
|
|
||||||
(setq emacs-config-directory
|
|
||||||
(let ((config-dir (getenv "EMACS_CONFIG_DIR")))
|
|
||||||
(if config-dir
|
|
||||||
(concat config-dir "/"
|
|
||||||
emacs-config-name "/")
|
|
||||||
(concat (substitute-in-file-name "~/.config/emacs/")
|
|
||||||
emacs-config-name "/"))))
|
|
||||||
|
|
||||||
(unless (file-exists-p emacs-config-directory)
|
(unless (file-exists-p emacs-config-directory)
|
||||||
(make-directory emacs-config-directory t))
|
(make-directory emacs-config-directory t))
|
||||||
|
|
||||||
(setq user-emacs-directory emacs-config-directory)
|
|
||||||
|
|
||||||
(setq emacs-init-file
|
|
||||||
(expand-file-name "init.el" user-emacs-directory))
|
|
||||||
|
|
||||||
;; setup customization directory for emacs (custom.el)
|
;; setup customization directory for emacs (custom.el)
|
||||||
(unless custom-file
|
(unless custom-file
|
||||||
(setq custom-file (expand-file-name "custom.el" user-emacs-directory)))
|
(setq custom-file (expand-file-name "custom.el" emacs-config-directory)))
|
||||||
|
|
||||||
;; Setup default directory which package will be installed
|
;; Setup default directory which package will be installed
|
||||||
(setq package-user-dir
|
(setq package-user-dir
|
||||||
(concat user-emacs-directory "/elpa"))
|
(concat emacs-config-directory "/elpa"))
|
||||||
|
|
||||||
;; setup directory of spacemacs customization
|
;; setup directory of spacemacs customization
|
||||||
(when (or (string= emacs-start-kit "spacemacs")
|
(when (string= startkit-name "spacemacs")
|
||||||
(string= emacs-start-kit "spacemacs.develop"))
|
|
||||||
(let ((spacemacs-dir (concat emacs-config-directory "/.local/etc")))
|
(let ((spacemacs-dir (concat emacs-config-directory "/.local/etc")))
|
||||||
(progn
|
(progn
|
||||||
(setenv "SPACEMACSDIR" spacemacs-dir))))
|
(setenv "SPACEMACSDIR" spacemacs-dir))))
|
||||||
|
|
||||||
(setq startkit-info
|
(defun my-doom-dir (config-dir)
|
||||||
'((doom-emacs .
|
(concat config-dir "/doom"))
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone git@github.com:shen390s/doom-emacs.git " dir)
|
|
||||||
(concat "cd " dir)
|
|
||||||
"cp init.example.el init.el"
|
|
||||||
"make install"
|
|
||||||
"y")))
|
|
||||||
(frontmacs .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "mkdir -p " dir )
|
|
||||||
(concat "cd " dir)
|
|
||||||
"wget https://raw.githubusercontent.com/shen390s/frontmacs/master/scripts/init-frontmacs.el"
|
|
||||||
"echo \"(load (expand-file-name \\\"init-frontmacs.el\\\" user-emacs-directory))\" >>init.el")))
|
|
||||||
(graphene .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone git@github.com:shen390s/dotfiles-emacs.git " dir))))
|
|
||||||
(ohai-emacs .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone git@github.com:shen390s/ohai-emacs.git " dir))))
|
|
||||||
(prelude .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone git@github.com:shen390s/prelude.git " dir))))
|
|
||||||
(spacemacs .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone https://github.com/syl20bnr/spacemacs.git " dir))))
|
|
||||||
(spacemacs.develop .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone -b develop https://github.com/syl20bnr/spacemacs.git " dir))))
|
|
||||||
(radian-emacs .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone -b radian https://github.com/shen390s/straight-emacs.git " dir))))
|
|
||||||
(hell-emacs .
|
|
||||||
(lambda (dir)
|
|
||||||
(list
|
|
||||||
(concat "git clone -b doom-emacs https://github.com/shen390s/straight-emacs.git " dir))))))
|
|
||||||
|
|
||||||
(defun install-emacs-startkit (name location)
|
(defun my-doom-local-dir (config-dir)
|
||||||
|
(concat config-dir "/local"))
|
||||||
|
|
||||||
|
(defun gen-doom-install-script (branch install-dir config-dir)
|
||||||
|
(if (string= branch "master")
|
||||||
|
(list
|
||||||
|
(format
|
||||||
|
"git clone https://github.com/hlissner/doom-emacs.git %s"
|
||||||
|
install-dir)
|
||||||
|
(format "cd %s" install-dir)
|
||||||
|
(format "./bin/doom -y --doomdir %s --localdir %s install"
|
||||||
|
(my-doom-dir config-dir)
|
||||||
|
(my-doom-local-dir config-dir)))
|
||||||
|
(list
|
||||||
|
(format
|
||||||
|
"git clone -b %s https://github.com/hlissner/doom-emacs.git %s"
|
||||||
|
branch install-dir)
|
||||||
|
(format "cd %s" install-dir)
|
||||||
|
(format "./bin/doom -y --doomdir %s --localdir %s install"
|
||||||
|
(my-doom-dir config-dir)
|
||||||
|
(my-doom-local-dir config-dir)))))
|
||||||
|
|
||||||
|
(defun doom-load (install-dir config-dir)
|
||||||
|
(progn
|
||||||
|
(setenv "DOOMDIR" (my-doom-dir config-dir))
|
||||||
|
(setenv "DOOMLOCALDIR" (my-doom-local-dir config-dir))
|
||||||
|
(load-file emacs-init-file)))
|
||||||
|
|
||||||
|
(defun gen-easy-install-script (branch install-dir config-dir)
|
||||||
|
(if (string= branch "master")
|
||||||
|
(list
|
||||||
|
(format
|
||||||
|
"git clone git@shenrs.eu:rshen/easy-emacs.git %s"
|
||||||
|
install-dir))
|
||||||
|
(list
|
||||||
|
(format
|
||||||
|
"git clone -b %s git@shenrs.eu:rshen/easy-emacs.git %s"
|
||||||
|
branch install-dir))))
|
||||||
|
|
||||||
|
(defun easy-emacs-load (install-dir config-dir)
|
||||||
|
(progn
|
||||||
|
(setenv "EASYEMACSDATA" config-dir)
|
||||||
|
(setenv "EASYEMACSDIR" install-dir)
|
||||||
|
(load-file emacs-init-file)))
|
||||||
|
|
||||||
|
(setq startkit-info
|
||||||
|
'((doom-emacs . (gen-doom-install-script . doom-load))
|
||||||
|
(easy-emacs . (gen-easy-install-script . easy-emacs-load))))
|
||||||
|
|
||||||
|
(defun get-startkit-installer-gen-fn (name startkit-info)
|
||||||
|
(car (cdr (assoc name startkit-info))))
|
||||||
|
|
||||||
|
(defun get-startkit-loader (name startkit-info)
|
||||||
|
(cdr (cdr (assoc name startkit-info))))
|
||||||
|
|
||||||
|
(defun load-emacs ()
|
||||||
|
;; use emacs config directory as user-emacs-directory
|
||||||
|
(setq user-emacs-directory emacs-config-directory)
|
||||||
|
(funcall (get-startkit-loader (intern startkit-name)
|
||||||
|
startkit-info)
|
||||||
|
emacs-base-directory
|
||||||
|
emacs-config-directory))
|
||||||
|
|
||||||
|
(defun on-installer-finished (process event)
|
||||||
|
"Callback function when uinstaller process has finished.
|
||||||
|
We use this function to load startkit initialization file"
|
||||||
|
(cond
|
||||||
|
((string= event "finished\n") (load-emacs))
|
||||||
|
(t (message "Event %s has been ignored" event))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun install-emacs-startkit (name branch location config-dir)
|
||||||
"Function to install EMACS startkit. NAME is the name of EMACS startkit.
|
"Function to install EMACS startkit. NAME is the name of EMACS startkit.
|
||||||
LOCATION is the target directory which startkit will be installed."
|
LOCATION is the target directory which startkit will be installed."
|
||||||
(progn (let* ((shell-buffer (make-comint-in-buffer "installer" nil "/bin/sh"))
|
(progn (let* ((shell-buffer (make-comint-in-buffer "installer" nil "/bin/sh"))
|
||||||
(shell-process (get-buffer-process shell-buffer)))
|
(shell-process (get-buffer-process shell-buffer)))
|
||||||
(progn
|
(progn
|
||||||
(defun on-installer-finished (process event)
|
|
||||||
"Callback function when uinstaller process has finished.
|
|
||||||
We use this function to load startkit initialization file"
|
|
||||||
(cond
|
|
||||||
((string= event "finished\n") (load-file emacs-init-file))
|
|
||||||
(t (message "Event %s has been ignored" event))))
|
|
||||||
|
|
||||||
(set-process-sentinel shell-process 'on-installer-finished)
|
(set-process-sentinel shell-process 'on-installer-finished)
|
||||||
(display-buffer shell-buffer)
|
(display-buffer shell-buffer)
|
||||||
(cl-loop for cmd in (funcall (cdr (assoc (intern name) startkit-info))
|
(cl-loop for cmd in
|
||||||
location)
|
(funcall (get-startkit-installer-gen-fn (intern name)
|
||||||
|
startkit-info)
|
||||||
|
branch location config-dir)
|
||||||
do (comint-simple-send shell-process
|
do (comint-simple-send shell-process
|
||||||
(concat cmd "\n")))
|
(concat cmd "\n")))
|
||||||
(comint-simple-send shell-process
|
(comint-simple-send shell-process
|
||||||
@ -137,9 +186,11 @@ We use this function to load startkit initialization file"
|
|||||||
|
|
||||||
(if (not (file-exists-p emacs-init-file))
|
(if (not (file-exists-p emacs-init-file))
|
||||||
(progn
|
(progn
|
||||||
(install-emacs-startkit emacs-start-kit
|
(install-emacs-startkit startkit-name
|
||||||
|
startkit-branch
|
||||||
|
emacs-base-directory
|
||||||
emacs-config-directory))
|
emacs-config-directory))
|
||||||
(load-file emacs-init-file))
|
(load-emacs))
|
||||||
|
|
||||||
(provide 'multi-emacs-config)
|
(provide 'multi-emacs-config)
|
||||||
;;; multi-emacs-config.el ends here
|
;;; multi-emacs-config.el ends here
|
||||||
|
|||||||
@ -64,7 +64,7 @@ This function should only modify configuration layer settings."
|
|||||||
;; `M-m f e R' (Emacs style) to install them.
|
;; `M-m f e R' (Emacs style) to install them.
|
||||||
;; ----------------------------------------------------------------
|
;; ----------------------------------------------------------------
|
||||||
;;helm
|
;;helm
|
||||||
;;auto-completion
|
auto-completion
|
||||||
ivy
|
ivy
|
||||||
better-defaults
|
better-defaults
|
||||||
emacs-lisp
|
emacs-lisp
|
||||||
@ -77,8 +77,9 @@ This function should only modify configuration layer settings."
|
|||||||
shell-default-height 30
|
shell-default-height 30
|
||||||
shell-default-position 'bottom)
|
shell-default-position 'bottom)
|
||||||
(c-c++ :variables
|
(c-c++ :variables
|
||||||
c-c++backend 'lsp-cquery
|
c-c++-backend 'lsp-cquery
|
||||||
c-c++-adopt-subjects t
|
c-c++-lsp-executable "/usr/local/bin/cquery"
|
||||||
|
c-c++-adopt-subprojects t
|
||||||
c-c++lsp-sem-highlight-rainbow t)
|
c-c++lsp-sem-highlight-rainbow t)
|
||||||
common-lisp
|
common-lisp
|
||||||
emacs-lisp
|
emacs-lisp
|
||||||
@ -90,7 +91,8 @@ This function should only modify configuration layer settings."
|
|||||||
pdf
|
pdf
|
||||||
epub
|
epub
|
||||||
github
|
github
|
||||||
gtags
|
;gtags
|
||||||
|
dap
|
||||||
pandoc
|
pandoc
|
||||||
(colors :variables
|
(colors :variables
|
||||||
colors-colorize-identifiers 'all
|
colors-colorize-identifiers 'all
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user