rshen/emacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: rshen:cd13fbaa7f3965a59369e87a5e5ce28af2426db9
Branches Tags
rshen:master
...
compare: rshen:696e8526e2007f14e7e77a52a2c95dbce521a234
Branches Tags
rshen:master

10 Commits
cd13fbaa7f ... 696e8526e2

Author SHA1 Message Date
Rongsong Shen
696e8526e2 Merge branch 'master' of shenrs.eu:rshen/emacs into HEAD 2020-05-12 15:25:46 +08:00
Rongsong Shen
c799f90e39 improve for doom-emacs 2020-05-12 15:24:49 +08:00
Rongsong Shen
0e2d84d360 update 2019-12-20 21:59:43 +08:00
Rongsong Shen
2cea1233ec update 2019-12-20 21:57:43 +08:00
Rongsong Shen
3fcfae94b7 update 2019-12-20 18:09:17 +08:00
Rongsong Shen
27b9c7525c update 2019-12-20 16:52:24 +08:00
Rongsong Shen
ca469d3259 update 2019-12-20 16:05:42 +08:00
Rongsong Shen
63d9eb192c improve 2019-04-26 18:38:08 +08:00
Rongsong Shen
64369fe430 remove gtags 2019-04-19 10:57:52 +08:00
Rongsong Shen
c975991bf4 add spacemacs(develop) 2019-04-16 16:33:13 +08:00
3 changed files with 141 additions and 616 deletions
Show Stats Expand all files Collapse all files

528
init/init.spacemacs.develop.el
View File

@ -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.

219
init/multi-emacs-config.el
View File

@ -3,7 +3,7 @@
;; Author: Rongsong Shen<rshen@shenrs.eu>
;;
;;; Commentary:
;;
;; This package will enable us to use multiple EMACS startup
;; configuration(startkit in this package) and switch between
;; these configuration just by change a single environment
@ -23,113 +23,162 @@
(require 'cl-lib)
(require 'comint)
(defvar emacs-start-kit "The name of emacs startkit we will use")
(defvar emacs-config-name "The directory name of emacs startkit")
(defvar emacs-config-directory "The based directory of emacs start configuration")
(defvar emacs-init-file "The full path of emacs start file")
(defvar startkit-info "Information to install emacs startkit")
(defvar emacs-start-kit
(split-string
(let ((start-kit (getenv "EMACS_STARTKIT")))
(if start-kit
start-kit
"easy-emacs"))
":")
"The name of emacs startkit we will use")
(setq emacs-start-kit
(let ((start-kit (getenv "EMACS_STARTKIT")))
(if start-kit
start-kit
"spacemacs")))
(defvar startkit-name
(car emacs-start-kit)
"The name of Emacs startkit")
(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)
(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)
(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
(setq package-user-dir
(concat user-emacs-directory "/elpa"))
(concat emacs-config-directory "/elpa"))
;; setup directory of spacemacs customization
(when (or (string= emacs-start-kit "spacemacs")
(string= emacs-start-kit "spacemacs.develop"))
(when (string= startkit-name "spacemacs")
(let ((spacemacs-dir (concat emacs-config-directory "/.local/etc")))
(progn
(setenv "SPACEMACSDIR" spacemacs-dir))))
(setq startkit-info
'((doom-emacs .
(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 my-doom-dir (config-dir)
(concat config-dir "/doom"))
(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.
LOCATION is the target directory which startkit will be installed."
(progn (let* ((shell-buffer (make-comint-in-buffer "installer" nil "/bin/sh"))
(shell-process (get-buffer-process shell-buffer)))
(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)
(display-buffer shell-buffer)
(cl-loop for cmd in (funcall (cdr (assoc (intern name) startkit-info))
location)
(cl-loop for cmd in
(funcall (get-startkit-installer-gen-fn (intern name)
startkit-info)
branch location config-dir)
do (comint-simple-send shell-process
(concat cmd "\n")))
(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))
(progn
(install-emacs-startkit emacs-start-kit
(install-emacs-startkit startkit-name
startkit-branch
emacs-base-directory
emacs-config-directory))
(load-file emacs-init-file))
(load-emacs))
(provide 'multi-emacs-config)
;;; multi-emacs-config.el ends here

10
spacemacs/init.spacemacs.develop.el
View File

@ -64,7 +64,7 @@ This function should only modify configuration layer settings."
;; `M-m f e R' (Emacs style) to install them.
;; ----------------------------------------------------------------
;;helm
;;auto-completion
auto-completion
ivy
better-defaults
emacs-lisp
@ -77,8 +77,9 @@ This function should only modify configuration layer settings."
shell-default-height 30
shell-default-position 'bottom)
(c-c++ :variables
c-c++backend 'lsp-cquery
c-c++-adopt-subjects t
c-c++-backend 'lsp-cquery
c-c++-lsp-executable "/usr/local/bin/cquery"
c-c++-adopt-subprojects t
c-c++lsp-sem-highlight-rainbow t)
common-lisp
emacs-lisp
@ -90,7 +91,8 @@ This function should only modify configuration layer settings."
pdf
epub
github
gtags
;gtags
dap
pandoc
(colors :variables
colors-colorize-identifiers 'all