init.el

;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(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-base

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

     ;; --- Spacemacs layers ---
     (spacemacs-completion
      :packages
      default-helm-config)
     spacemacs-defaults
     (spacemacs-editing
      :packages
      aggressive-indent avy editorconfig expand-region hungry-delete link-hint
      move-text spacemacs-whitespace-cleanup string-inflection undo-tree ws-butler)
     (spacemacs-editing-visual
      :packages
      column-enforce-mode hide-comnt highlight-numbers highlight-parentheses indent-guide)
     (spacemacs-evil
      :packages
      evil-anzu evil-ediff evil-lion evil-nerd-commenter evil-matchit evil-numbers
      evil-search-highlight-persist evil-surround evil-visual-mark-mode hs-minor-mode)
     (spacemacs-language
      :packages
      define-word)
     (spacemacs-layouts
      :packages
      eyebrowse helm persp-mode spaceline)
     spacemacs-misc
     (spacemacs-modeline
      :packages
      anzu spaceline spaceline-all-the-icons)
     (spacemacs-navigation
      :packages
      restart-emacs winum)
     (spacemacs-org
      :packages
      default-org-config org-plus-contrib space-doc toc-org)
     spacemacs-project
     spacemacs-purpose
     spacemacs-visual

     ;; --- General layers ---
     (better-defaults :variables
                      better-defaults-move-to-end-of-code-first t)
     (colors :variables
             colors-colorize-identifiers 'variables
             colors-enable-nyan-cat-progress-bar t)
     (ibuffer :variables
              ibuffer-group-buffers-by 'projects)
     ;; (spell-checking :variables
     ;;                 ispell-program-name "aspell"
     ;;                 ispell-dictionary "american"
     ;;                 spell-checking-enable-by-default nil)
     (treemacs :variables
               treemacs-use-collapsed-directories 3
               treemacs-use-filewatch-mode t
               treemacs-use-follow-mode t)

     ;; --- Auto Complete layers ---
     ;; <<helm与ivy简单对比>>: http://honmaple.me/articles/2018/01/helm%E4%B8%8Eivy%E7%AE%80%E5%8D%95%E5%AF%B9%E6%AF%94.html
     helm
     (auto-completion :variables
                      auto-completion-complete-with-key-sequence nil
                      auto-completion-complete-with-key-sequence-delay 0.1
                      auto-completion-enable-help-tooltip 'manual
                      ;; Support yas-snippets in commpany
                      auto-completion-enable-snippets-in-popup t
                      auto-completion-enable-sort-by-usage t
                      auto-completion-private-snippets-directory nil
                      ; auto-completion-return-key-behavior nil
                      auto-completion-tab-key-behavior 'complete
                      :disabled-for erc git github markdown)
     ;; auto-complete layer 在 org-mode 中会引发很多问题，所以最好在 org-mode 中禁用补全

     ;; --- Programming and markup languages layers ---
     lsp
     ;; scheme
     emacs-lisp
     ;; java
     plantuml ; uml
     (python :packages
             company eldoc flycheck helm-pydoc importmagic live-py-mode org pip-requirements pipenv py-isort ; pylookup
             python semantic stickyfunc-enhance yapfify lsp-python
             :variables
             python-backend 'lsp
             python-enable-yapf-format-on-save nil ; bug
             python-sort-imports-on-save t)
     semantic ; python层是依赖semantic层
     (shell :packages (company esh-help eshell eshell-prompt-extras eshell-z))
     shell-scripts
     yaml
     markdown
     org

     ;; --- Source control ---
     (git :variables
          git-magit-status-fullscreen t
          magit-push-always-verify nil
          magit-save-repository-buffers 'dontask
          magit-revert-buffers 'silent
          magit-refs-show-commit-count 'all
          magit-revision-show-gravatars nil)
     github
     (version-control :variables
                      version-control-diff-side 'left)

     ;; --- Programming tool layers ---
     ansible
     (dash :variables helm-dash-docset-newpath "~/.docsets/")
     (docker :packages (docker dockerfile-mode))
     ;; gtags
     imenu-list ;; To get the outline for the current file
     ;; ipython-notebook
     (restclient :variables restclient-use-org nil)
     (syntax-checking :variables
                      syntax-checking-enable-by-default t
                      syntax-checking-enable-tooltips t
                      syntax-checking-use-original-bitmaps t)

     ;; --- Tools ---
     ;; deft  ;; Quick Note Taking
     ;; finance
     ;; pandoc
     pass
     prodigy  ;; 使用 Prodigy 在 Emacs 中管理外部服务
     ;; search-engine
     ;spacemacs-layouts
     systemd
     ;; themes-megapack ; http://themegallery.robdor.com/

     ;; --- Vim layers ---
     evil-commentary ;; comment
     ;; enable 2-char find.
     (evil-snipe :variables evil-snipe-enable-alternate-f-and-t-behaviors t)
     (vinegar :variables vinegar-reuse-dired-buffer t)
     vim-empty-lines

     ;; --- Private layers ---
     appleshan
     )

   ;; 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 '(ac-ispell
                                    ace-jump-helm-line
                                    ;; Ace-jump-mode Is Dead, Long Live Avy :
                                    ;; http://emacsredux.com/blog/2015/07/19/ace-jump-mode-is-dead-long-live-avy/
                                    ace-jump-mode
                                    ace-pinyin
                                    anaconda-mode
                                    auto-complete
                                    auto-dictionary
                                    clean-aindent-mode
                                    company-anaconda
                                    ; company-quickhelp
                                    coffee-mode
                                    counsel-projectile
                                    define-word
                                    doc-view
                                    evil-args
                                    evil-ediff
                                    ;; disable it for lispy-mode
                                    ;; https://github.com/abo-abo/lispy/issues/137
                                    ; evil-escape
                                    evil-exchange
                                    evil-indent-plus
                                    evil-lisp-state
                                    evil-mc
                                    evil-tutor
                                    evil-unimpaired
                                    fancy-battery
                                    find-by-pinyin-dired
                                    fish-mode
                                    flx-ido
                                    flyspell-correct-helm
                                    gh-md
                                    google-translate
                                    helm-company
                                    helm-c-yasnippet
                                    helm-css-scss
                                    helm-flyspell
                                    helm-make
                                    helm-mode-manager
                                    helm-pydoc
                                    helm-themes
                                    highlight-indentation
                                    highlight-symbol
                                    hl-anything
                                    holy-mode
                                    leuven-theme
                                    linum-relative
                                    livid-mode
                                    lorem-ipsum
                                    neotree
                                    open-junk-file
                                    orgit
                                    orglue
                                    org-bullets
                                    org-download
                                    org-present
                                    org-projectile
                                    org-repo-todo
                                    org-timer
                                    org-tree-slide
                                    paradox
                                    rainbow-delimiters ;; Highlight brackets according to their depth
                                    rainbow-identifiers
                                    skewer-mode
                                    smartparens ;; 有一些性能问题
                                    smeargle ;; Highlighting regions by last updated time
                                    smex
                                    smooth-scrolling
                                    spinner
                                    spray
                                    srefactor
                                    symon
                                    vi-tilde-fringe
                                    volatile-highlights ;; Highlight some operations
                                    )

   ;; 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

   ;; If non-nil then Spacemacs will import your PATH and environment variables
   ;; from your default shell on startup. This is enabled by default for macOS
   ;; users and X11 users.
   dotspacemacs-import-env-vars-from-shell (and (display-graphic-p)
                                                (or (eq system-type 'darwin)
                                                    (eq system-type 'gnu/linux)
                                                    (eq window-system 'x)))

   ;; If nil then use the default shell is used to fetch the environment
   ;; variables. Set this variable to a different shell executable path to
   ;; import the environment variables from this shell. Note that
   ;; `file-shell-name' is preserved and always points to the default shell. For
   ;; instance to use your fish shell environment variables set this variable to
   ;; `/usr/local/bin/fish'.
   ;; (default nil)
   dotspacemacs-import-env-vars-shell-file-name 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 . 10)
                                (projects . 50))

   ;; 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', `vim-powerline' and `vanilla'. The first three
   ;; are spaceline themes. `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 '("Hack"
                               :size 15
                               :weight normal
                               :width normal)

   ;; 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, pressing
   ;; `p' 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 'right-then-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 t

   ;; 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 'changed

   ;; 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-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."
  ;; activate debugging
  (setq debug-on-error t
        debug-on-quit nil
        ;; debug-on-signal nil
   )
  ; (defvar stack-trace-on-error t)

  (setq byte-compile-warnings nil)
  (setq spaceline-buffer-size-p nil)
  (setq use-package-verbose nil)  ;; Set to t to debug package loading or nil to disable

  ;; ELPA: refer to https://elpa.emacs-china.org/
  ;;
  ;; ELPA                   镜像地址
  ;; GNU ELPA               http://elpa.emacs-china.com/gnu/
  ;; MELPA                  http://elpa.emacs-china.com/melpa/
  ;; MELPA Stable           http://elpa.emacs-china.com/melpa-stable/
  ;; Marmalade              http://elpa.emacs-china.com/marmalade/
  ;; Org                    http://elpa.emacs-china.com/org/
  ;; Sunrise Commander ELPA http://elpa.emacs-china.com/sunrise-commander/
  ;; user42 ELPA            http://elpa.emacs-china.com/user42/
  ;;
  (setq configuration-layer-elpa-archives
        '(
          ;; Emacs-China 开源软件镜像站
          ("melpa-cn"  . "https://elpa.emacs-china.org/melpa/")
          ("gnu-cn"    . "https://elpa.emacs-china.org/gnu/")
          ("org-cn"    . "https://elpa.emacs-china.org/org/")
        ; ("user42-cn" . "https://elpa.emacs-china.org/user42/")

          ;; 清华大学 TUNA 协会开源软件镜像站
        ; ("melpa-cn" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")
        ; ("gnu-cn"   . "https://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
        ; ("org-cn"   . "https://mirrors.tuna.tsinghua.edu.cn/elpa/org/")

          ;; source elpa
        ; ("melpa" . "melpa.org/packages/")
        ; ("gnu"   . "elpa.gnu.org/packages/")
        ; ("org"   . "orgmode.org/elpa/")

          ;; Elpy Package Archive
        ; ("elpy"      . "https://jorgenschaefer.github.io/packages/")
          ))

  ;; Pin some of the packages that go wonky if I use the bleeding edge.
  ; (when (boundp 'package-pinned-packages)
  ;   (setq package-pinned-packages
  ;         '((org-plus-contrib . "org")
  ;           )))

  ;; Dropbox directory
  (defconst user-dropbox-directory
    (expand-file-name (concat user-home-directory "Dropbox/"))
    "Dropbox directory.")
  (unless (file-exists-p user-dropbox-directory)
    (make-directory user-dropbox-directory))

  ;; projects directory
  (defconst user-projects-directory
    (expand-file-name (concat user-home-directory "projects-private/"))
    "projects directory.")
  (unless (file-exists-p user-projects-directory)
    (make-directory user-projects-directory))

  ;; custom logo
  ;; error in emacs 26
  (setq spacemacs-banner-official-png
    (expand-file-name
      (concat dotspacemacs-directory "local/banner/007-banner-emacs.png")))

  ;; BUG : https://github.com/syl20bnr/spacemacs/issues/2705
  (setq tramp-ssh-controlmaster-options
    "-o ControlMaster=auto -o ControlPath='tramp.%%C' -o ControlPersist=no")
  (setq tramp-use-ssh-controlmaster-options nil)

  (setq yas-snippet-dirs nil)

  (defun package--save-selected-packages (&rest opt) nil)
  )

(defun dotspacemacs/user-load ()
  "Library to load while dumping.
This function is called 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."

  ;(setq url-proxy-services
  ;      '(("no_proxy" . "^\\(localhost\\|10.10.*\\|192.168.*\\|elpa.emacs-china.org\\|mirrors.tuna.tsinghua.edu.cn\\)")
  ;        ("http" . "127.0.0.1:18080")
  ;        ("https" . "127.0.0.1:18080")
  ;        ("socks5" . "127.0.0.1:18080")))

  (setq url-gateway-method 'socks)
  (setq url-gateway-local-host-regexp
      (concat "\\`" (regexp-opt '(
        "localhost"
        "127.0.0.1"
        "10.10.*"
        "192.168.*"
        "elpa.emacs-china.org"
        "mirrors.tuna.tsinghua.edu.cn")) "\\'"))
  (setq socks-server '("SS server" "127.0.0.1" 18080 5))

  ;;{{ 解决 org 表格里面中英文对齐的问题
  ;; 可选字体组合及字体大小：
  ;; Hack | Source Han Sans CN  : [ 12 14 ], [ 14 16 ], [ 15 18 ]
  ;; Hack | Microsoft YaHei Mono : [ 12 14 ], [ 14 16 ], [ 15 18 ]
  (when (configuration-layer/layer-usedp 'appleshan-chinese)
    (when (and (spacemacs/system-is-linux) (eq window-system 'x))
      (spacemacs//set-monospaced-font
       "Hack" "Source Han Sans CN" 15 18))
    (when (spacemacs/system-is-mswindows)
      (spacemacs//set-monospaced-font
       "Hack" "Microsoft YaHei Mono" 14 16)))
  ;;}}

  ;; Change cursor color depending on mode
  (setq evil-emacs-state-cursor `("red" hbar))     ; _
  (setq evil-normal-state-cursor `("green" box))   ; █
  (setq evil-visual-state-cursor `("orange" box))  ; █
  (setq evil-insert-state-cursor `("red" bar))     ; ⎸
  (setq evil-replace-state-cursor `("red" bar))
  (setq evil-operator-state-cursor `("red" hollow))
  (setq evil-motion-state-cursor `("orange" box))  ; █

  )

;; Do not write anything past this comment. This is where Emacs will
;; auto-generate custom variable definitions.

(setq custom-file (expand-file-name "local/custom.el" dotspacemacs-directory))
(load custom-file 'no-error 'no-message)

;; Local Variables:
;; coding: utf-8
;; no-byte-compile: nil
;; End:

;;; init.el ends here