spacemacs

;; -*- mode: emacs-lisp; lexical-binding: t -*-
;; 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

   ;; List of additional paths where to look for configuration layers.
   ;; Paths must have a trailing slash (i.e. `~/.mycontribs/')
   dotspacemacs-configuration-layer-path '("~/.emacs.d/private/local/")

   ;; List of configuration layers to load.
   dotspacemacs-configuration-layers
   '(vimscript
     python
;;; Divination
     (ivy :variables
          ivy-extra-directories nil)
     (auto-completion :packages
                      (not ;; helm-company
                       ;; helm-c-yasnippet
                       smartparens))
     (spacemacs-completion :packages
                           default-ivy-config)
     (spell-checking :variables
                     syntax-checking-enable-tooltips nil) ; tooltips move mouse and therefore focus.

     syntax-checking
;;; Illusion
     (colors :packages
             rainbow-mode
             :variables
             rainbow-x-colors nil
             rainbow-html-colors nil)
     (spacemacs-visual :packages
                       (not fill-column-indicator)); Do or do not; don't nag.
;;; Transmutation
     ;; (parinfer :variables
     ;;           parinfer-auto-switch-indent-mode t
     ;;           parinfer-extensions
     ;;           '(defaults
     ;;              evil
     ;;              paredit
     ;;              smart-yank
     ;;              smart-tab))
     multiple-cursors
     (spacemacs-editing :packages
                        (not; Not needed with `parinfer':
                         ;; aggressive-indent
                         ;; smartparens
                         ;; clean-aindent-mode
                         lorem-ipsum)); is not needer ever.
;;; Necromancy
     (version-control :variables
                      git-gutter:modified-sign "±"
                      git-gutter+-modified-sign "±")
     ;; version-control-diff-tool 'git-gutter); needs diff
     (git :packages
          (not helm-gitignore
               orgit); `orgit' installation is buggy.
          :variables
          magit-delete-by-moving-to-trash t
          magit-no-confirm '(trash resurrect rename discard stage-all-changes abort-rebase abort-merge)
          magit-save-some-buffers nil
          magit-ellipsis ?…)
;;; Summoning
     ;; spacemacs-layouts
     (spacemacs-navigation :packages; renamed from `spacemacs-ui'
                           (not golden-ratio))
     spacemacs-purpose
     treemacs ;; neotree
     vinegar; simplified/improved `dired'
;;; Specialization
     ;; c-c++
     erc
     elm
     (emacs-lisp :variables
                 ielm-header ""
                 ielm-prompt ">")
     (haskell :variables
              haskell-completion-backend 'company-ghci
              haskell-enable-hindent t)
     html
     ;; lsp
     markdown
     spacemacs-org ; For whatever reason, the `org' layer spectacularly fails to install.
     org
     rust
     (shell :variables
            shell-default-shell 'eshell
            shell-default-height 30
            shell-default-position 'bottom
            shell-enable-smart-eshell t
            eshell-cmpl-cycle-completions nil
            eshell-history-size 1000
            eshell-save-history-on-exit t
            epe-git-dirty-char "◆")
     yaml)
   ;; eshell-where-to-jump 'begin
   ;; eshell-review-quick-commands nil
   ;; eshell-smart-space-goes-to-end t

   ;; List of additional packages that will be installed without being wrapped
   ;; in a layer (generally the packages are installed only and should still be
   ;; loaded using load/require/use-package in the user-config section below in
   ;; this file). 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
   '(
     f
     names
;;; Illusion
     adaptive-wrap
     paren-face
     )
   ;; `ws-butler' trims new whitespace. (in `spacemacs-editing')
   ;; `winum' numbers windows (panes). (in `spacemacs-navigation')
   ;; `pcre2el' has different regex syntaxes. Not sure what the point is. (in `spacemacs-base')

   ;; 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-but-keep-unused))

(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."
  (setq layouts-enable-local-variables nil) ; seems like this has to be set to avoid errors.
  ;; 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.
   ;;
   ;; WARNING: pdumper does not work with Native Compilation, so it's disabled
   ;; regardless of the following setting when native compilation is in effect.
   ;;
   ;; (default nil)
   dotspacemacs-enable-emacs-pdumper nil

   ;; Name of executable file pointing to emacs 27+. This executable must be
   ;; in your PATH.
   ;; (default "emacs")
   dotspacemacs-emacs-pdumper-executable-file "emacs"

   ;; 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=$HOME/.emacs.d/.cache/dumps/spacemacs-27.1.pdmp
   ;; (default (format "spacemacs-%s.pdmp" emacs-version))
   dotspacemacs-emacs-dumper-dump-file (format "spacemacs-%s.pdmp" emacs-version)

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

   ;; Set `read-process-output-max' when startup finishes.
   ;; This defines how much data is read from a foreign process.
   ;; Setting this >= 1 MB should increase performance for lsp servers
   ;; in emacs 27.
   ;; (default (* 1024 1024))
   dotspacemacs-read-process-output-max (* 1024 1024)

   ;; 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. Spacelpa is currently in
   ;; experimental state please use only for testing purposes.
   ;; (default nil)
   dotspacemacs-use-spacelpa nil

   ;; If non-nil then verify the signature for downloaded Spacelpa archives.
   ;; (default t)
   dotspacemacs-verify-spacelpa-archives t

   ;; 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 show the version string in the Spacemacs buffer. It will
   ;; appear as (spacemacs version)@(emacs version)
   ;; (default t)
   dotspacemacs-startup-buffer-show-version t

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

   ;; Scale factor controls the scaling (size) of the startup banner. Default
   ;; value is `auto' for scaling the logo automatically to fit all buffer
   ;; contents, to a maximum of the full image height and a minimum of 3 line
   ;; heights. If set to a number (int or float) it is used as a constant
   ;; scaling factor for the default logo size.
   dotspacemacs-startup-banner-scale 'auto

   ;; 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' `recents-by-project' `bookmarks' `projects' `agenda' `todos'.
   ;; List sizes may be nil, in which case
   ;; `spacemacs-buffer-startup-lists-length' takes effect.
   ;; The exceptional case is `recents-by-project', where list-type must be a
   ;; pair of numbers, e.g. `(recents-by-project . (7 .  5))', where the first
   ;; number is the project limit and the second the limit on the recent files
   ;; within a project.
   dotspacemacs-startup-lists '((recents . 5)
                                (projects . 7))

   ;; True if the home buffer should respond to resize events. (default t)
   dotspacemacs-startup-buffer-responsive t

   ;; Show numbers before the startup list lines. (default t)
   dotspacemacs-show-startup-list-numbers t

   ;; The minimum delay in seconds between number key presses. (default 0.4)
   dotspacemacs-startup-buffer-multi-digit-delay 0.4

   ;; If non-nil, show file icons for entries and headings on Spacemacs home buffer.
   ;; This has no effect in terminal or if "all-the-icons" package or the font
   ;; is not installed. (default nil)
   dotspacemacs-startup-buffer-show-icons nil

   ;; Default major mode for a new empty buffer. Possible values are mode
   ;; names such as `text-mode'; and `nil' to use Fundamental mode.
   ;; (default `text-mode')
   dotspacemacs-new-empty-buffer-major-mode 'text-mode

   ;; Default major mode of the scratch buffer (default `text-mode')
   dotspacemacs-scratch-mode 'text-mode

   ;; If non-nil, *scratch* buffer will be persistent. Things you write down in
   ;; *scratch* buffer will be saved and restored automatically.
   dotspacemacs-scratch-buffer-persistent nil

   ;; If non-nil, `kill-buffer' on *scratch* buffer
   ;; will bury it instead of killing.
   dotspacemacs-scratch-buffer-unkillable nil

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

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

   ;; 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. The `:size' can be specified as
   ;; a non-negative integer (pixel size), or a floating-point (point size).
   ;; Point size is recommended, because it's device independent. (default 10.0)
   dotspacemacs-default-font `("Source Code Pro"
                               :size ,(if (string= system-type "gnu/linux")
                                          14.0
                                        12.0))

   ;; 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" for terminal mode, "<M-return>" for GUI mode).
   ;; Thus M-RET should work as leader key in both GUI and terminal modes.
   ;; C-M-m also should work in terminal mode, but not in GUI mode.
   dotspacemacs-major-mode-emacs-leader-key (if window-system "<M-return>" "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

   ;; If non-nil `Y' is remapped to `y$' in Evil states. (default nil)
   dotspacemacs-remap-Y-to-y$ t ; deprecated?

   ;; If non-nil, the shift mappings `<' and `>' retain visual state if used
   ;; there. (default t)
   ;; dotspacemacs-retain-visual-state-on-shift t ; deprecated?

   ;; If non-nil, `J' and `K' move lines up and down when in visual mode.
   ;; (default nil)
   dotspacemacs-visual-line-move-text nil ; deprecated?

   ;; If non-nil, inverse the meaning of `g' in `:substitute' Evil ex-command.
   ;; (default nil)
   dotspacemacs-ex-substitute-global nil ; depreciated?

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

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

   ;; If non-nil the frame is undecorated when Emacs starts up. Combine this
   ;; variable with `dotspacemacs-maximized-at-startup' in OSX to obtain
   ;; borderless fullscreen. (default nil)
   dotspacemacs-undecorated-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

   ;; Show the scroll bar while scrolling. The auto hide time can be configured
   ;; by setting this variable to a number. (default t)
   dotspacemacs-scroll-bar-while-scrolling t

   ;; Control line numbers activation.
   ;; If set to `t', `relative' or `visual' then line numbers are enabled in all
   ;; `prog-mode' and `text-mode' derivatives. If set to `relative', line
   ;; numbers are relative. If set to `visual', line numbers are also relative,
   ;; but only visual lines are counted. For example, folded lines will not be
   ;; counted and wrapped lines are counted as multiple lines.
   ;; This variable can also be set to a property list for finer control:
   ;; '(:relative nil
   ;;   :visual nil
   ;;   :disabled-for-modes dired-mode
   ;;                       doc-view-mode
   ;;                       markdown-mode
   ;;                       org-mode
   ;;                       pdf-view-mode
   ;;                       text-mode
   ;;   :size-limit-kb 1000)
   ;; When used in a plist, `visual' takes precedence over `relative'.
   ;; (default nil)
   dotspacemacs-line-numbers nil

   ;; Code folding method. Possible values are `evil', `origami' and `vimish'.
   ;; (default 'evil)
   dotspacemacs-folding-method 'evil

   ;; If non-nil and `dotspacemacs-activate-smartparens-mode' is also non-nil,
   ;; `smartparens-strict-mode' will be enabled in programming modes.
   ;; (default nil)
   dotspacemacs-smartparens-strict-mode nil

   ;; If non-nil smartparens-mode will be enabled in programming modes.
   ;; (default t)
   dotspacemacs-activate-smartparens-mode t

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

   ;; 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
   ;; If nil then Spacemacs uses default `frame-title-format' to avoid
   ;; performance issues, instead of calculating the frame title by
   ;; `spacemacs/title-prepare' all the time.
   ;; (default "%I@%S")
   dotspacemacs-frame-title-format "%a | Spacemacs"

   ;; Format specification for setting the icon title format
   ;; (default nil - same as frame-title-format)
   dotspacemacs-icon-title-format nil

   ;; Show trailing whitespace (default t)
   dotspacemacs-show-trailing-whitespace t

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

   ;; If non-nil activate `clean-aindent-mode' which tries to correct
   ;; virtual indentation of simple modes. This can interfere with mode specific
   ;; indent handling like has been reported for `go-mode'.
   ;; If it does deactivate it here.
   ;; (default t)
   dotspacemacs-use-clean-aindent-mode t

   ;; Accept SPC as y for prompts if non-nil. (default nil)
   dotspacemacs-use-SPC-as-y nil

   ;; If non-nil shift your number row to match the entered keyboard layout
   ;; (only in insert state). Currently supported keyboard layouts are:
   ;; `qwerty-us', `qwertz-de' and `querty-ca-fr'.
   ;; New layouts can be added in `spacemacs-editing' layer.
   ;; (default nil)
   dotspacemacs-swap-number-row 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

   ;; If nil the home buffer shows the full path of agenda items
   ;; and todos. If non-nil only the file name is shown.
   dotspacemacs-home-shorten-agenda-source nil

   ;; If non-nil then byte-compile some of Spacemacs files.
   dotspacemacs-byte-compile 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 ispell-program-name "aspell")
  ;; (require 'parinferlib "~/.emacs.d/private/local/parinfer-elisp/parinferlib"
  (defalias 'eql #'equal "I have yet to find a single advantage of eql. Let's see if this breaks things.")
  ;; (setq debug-on-error t
  ;;       use-dialog-box nil) ; emacs has been erroring out way too much.
  ;; https://github.com/syl20bnr/spacemacs/issues/5435
  ;; This problem may be related to `wid-edit.el' and `mouse-1-click-follows-link'. Now I can avoid automatic yank by putting the following config in spacemacs/user-config.
  (add-hook 'spacemacs-buffer-mode-hook
            (lambda () "'Disable' `mouse-1-click-follows-link' in `*spacemacs*' buffer to avoid phantom middle-click. (One click still follows link...)"
              (set (make-local-variable 'mouse-1-click-follows-link) nil)))
)
(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."
 ;;; Remember to use `setq-default' to set variables that are automatically buffer-local.
  ;; (defun pos-tip-avoid-mouse (&rest ARGS) nil) ; poorly named function; rather than avoiding mouse it moves the move into another frame, losing frame focus and immediately closing popup.

  ;; (add-to-list 'custom-theme-load-path "~/.emacs.d/private/local/print-theme/")
  (defun my/silence (PROCEDURE &rest ARGS)
    "Don't put messages in the echo area."
    (let ((inhibit-message t))
      (apply PROCEDURE ARGS)))

  ;; Squelch update check message.
  (advice-add 'spacemacs/check-for-new-version
              :around
              #'my/silence)
  ;; Squelch scrolling nags
  (advice-add 'mwheel-scroll
              :around
              #'my/silence)

;;; Notes
  ;; If at all possible, avoid using fringes: They don't work in the terminal. With unicode there's rarely a reason to use images as indicators anyway.
;;; Universal
  (setq my/nonalphanumeric-names (make-hash-table :test #'eq))
  (mapc (lambda (pair)
          (puthash (elt pair 0) (elt pair 1) my/nonalphanumeric-names))
        [(?! "bang")
         (?# "hash")
         (?% "percent")
         (?& "and")
         (?* "star")
         (?+ "plus")
         (?@ "at")
         (?^ "hat")
         (?\\ "backslash")
         (?| "bar")])
  (defun my/safer-name (NAME)
    "Spell out common glyphs in NAME."
    (mapconcat (lambda (c)
                 (let ((new (gethash c my/nonalphanumeric-names)))
                   (if new
                       (concat "-" new)
                     (char-to-string c))))
               NAME
               ""))

;;;; In order of dependencies...
  (defun my/require-or-quelpa (package)
    "Use a copy of the package in the private/local/ dir, or if it's not there, get it with `quelpa'."
    (let* ((name (symbol-name package))
           (local-path (concat "~/.emacs.d/private/local/"
                               name "/" name ".el")))
      (if (file-readable-p local-path)
          (require package local-path)
        (quelpa package
                :fetcher 'github
                :repo (concat "wygulmage/" (my/safer-name name) ".el"))
        (message "Fetched %s with quelpa." name))))
  (mapc #'my/require-or-quelpa
        [let+ miscellaneous hook-up primary-pane fac statusbar minor-theme])

  (setq
   mouse-autoselect-window t ; Focus follows mouse.
   kill-do-not-save-duplicates t ; Don't copy identical text twice.
   truncate-string-ellipsis "…"; Use a real ellipsis.
   confirm-nonexistent-file-or-buffer nil ; Don't nag.
   revert-without-query "*") ; Don't nag.

;;; Necromancy
  ;; (global-git-gutter-mode t); Freaks out without diff.
  (setq vc-follow-symlinks t) ; Always follow symlinks to version-controlled files.

;;; Illusion
  ;; Fallback font:
  (when (fontp 'symbola) (set-fontset-font "fontset-default" nil
                                           (font-spec :size 18 :name "Symbola")))

  (global-prettify-symbols-mode t); Make everything pretty. Don't go crazy with this; it can throw things out of alignment. E.g. using it for 'lambda' is good because that will be split or on one line, but using it for '>=' is bad because its arguments will often be aligned vertically.
  (global-hl-line-mode -1) ; Disable current line highlight.
  (global-visual-line-mode 1) ; Always wrap lines to window.
  (setq-default split-height-threshold nil)

  (set-frame-parameter nil 'bottom-divider-width 1)
  ;; (add-to-list 'default-frame-alist '(bottom-divider-width 1))
  ;; (add-to-list 'default-frame-alist '(right-divider-width 1))

  (defun my/theme-tweaks ()
    "Tweak faces to simplify themes."
    ;; Faces of things that that don't do stuff:
    (fac-set-faces-attributes [font-lock-comment-face]
                              :background 'unspecified
                              :slant 'normal)
    (fac-set-faces-attributes [font-lock-doc-face
                               fringe]
                                        ; linum

                              :foreground 'unspecified
                              :background 'unspecified
                              :inherit 'font-lock-comment-face)
    ;; Faces of things that do stuff:
    (fac-set-faces-attributes [font-lock-keyword-face
                               font-lock-function-name-face
                               font-lock-variable-name-face]
                              :foreground 'unspecified
                              :background 'unspecified
                              :inherit 'default)
       ;;; Things that look like other things:
    (fac-set-faces-attributes [font-lock-string-face]
                              :slant 'italic)

    (fac-fade-foreground 'shadow 'default)
    (fac-fade-foreground 'font-lock-comment-delimiter-face 'font-lock-comment-face)

    (let ((c (or (plist-get (face-attribute 'mode-line :box) :color)
                 (face-attribute 'shadow :foreground))))
      (fac-set-faces-attributes [vertical-border border window-divider]
                                :foreground c :background c)))


  (my/theme-tweaks)
  (hook-up [after-load-theme-hook] [my/theme-tweaks])


  ;; ;;;; Try to keep to 80 columns.
  ;;   ;; FIXME: Does not work well with `linum-mode'.
  ;;   (defun my/80-column-display ()
  ;;     "Make the text about 80 columns."
  ;;     (interactive)
  ;;     (let ((new-margins
  ;;            (max 1
  ;;                 (floor (- (window-total-width)
  ;;                           (or left-fringe-width 0)
  ;;                           (or right-fringe-width 0)
  ;;                           81)
  ;;                        2))))
  ;;       (set-window-margins nil new-margins new-margins)))

  ;;   ;; Somehow this isn't an infinite loop:
  ;;   (defun add-local-hook-for-80-column-display ()
  ;;     (hook-up [window-configuration-change-hook]
  ;;              [my/80-column-display] :local))

  ;;   ;; Use 80 columns in normal editing modes:
  ;;   (hook-up [text-mode-hook prog-mode-hook]
  ;;            [add-local-hook-for-80-column-display])

  ;;   ;; Try to convince `split-window' that the window is wide enough to split:
  ;;   (defun my/zero-window-margins ()
  ;;     (set-window-margins nil 0 0))
  ;;   (hook-up-make-hook :before split-window
  ;;     my/zero-window-margins)

  (setq-default mode-line-format statusbar-base-layout)

  (hook-up
   [prog-mode-hook]
   [adaptive-wrap-prefix-mode ; Indent wrapped lines in source code.
    rainbow-mode]) ; Color color strings like "#4971af" in source code.

  ;; Hide the mode-line when not needed useful.
  (hook-up
   [dired-mode-hook
    help-mode-hook
    magit-mode-hook
    ranger-mode-hook
    spacemacs-buffer-mode-hook]
   [statusbar-hide])

  ;;; I'm not going to use `smart-mode-line', but if I were, I'd do this:
  ;; (add-to-list 'sml/replacer-regexp-list '("/Settings/" "⚙") t); or 🔧
  ;; (add-to-list 'sml/replacer-regexp-list '("/Files/Music" "🎵") t)
  ;; (add-to-list 'sml/replacer-regexp-list '("/Files/" "📂") t); or 🗄

;;; Incantations

;;; Evil toggles:
  ;; ;;; Live
  ;; (custom-set-variables
  ;;  '(evil-auto-indent t) ; auto-indent when entering insert state.
  ;;  '(evil-move-beyond-eol t) ; cursor can move past the last character of a line.
  ;;  '(evil-move-cursor-back nil)) ; cursor is moved left when exiting insert state.

  ;; (advice-add 'evil-forward-word-end
  ;;  :after
  ;;  (lambda (&optional COUNT _)
  ;;      (evil-forward-char COUNT t)])

  ;; Ignore mouse-wheel left and right.
  (misc--def-keys global-map
    "<mouse-6>" #'ignore
    "<mouse-7>" #'ignore)

  ;; Navigate help buffers.
  (when (string= system-type "windows-nt")
    (misc--def-keys help-mode-map
      "<mouse-4>" #'help-go-back ; Windows mouse back (Linux mouse wheel up)
      "<mouse-5>" #'help-go-forward)) ; Windows mouse forwards

  ;; Navigate wrapped lines.
  (misc--def-keys evil-normal-state-map
    "j" #'evil-next-visual-line
    "k" #'evil-previous-visual-line)

  ;; Zoom with Ctrl + mouse wheel.
  (apply #'misc--def-keys global-map
         (misc--alternate
          (if (string= system-type "windows-nt")
              '("<wheel-up>" "<wheel-down>" "C-<wheel-up>" "C-<wheel-down>") ; Windows mouse wheel
            '("<mouse-4>" "<mouse-5>" "C-<mouse-4>" "C-<mouse-5>")) ; Linux mouse wheel
          '(scroll-down-line scroll-up-line spacemacs/scale-up-font spacemacs/scale-down-font)))

  ;; Toggle comment with SPC ;.
  (defun my/region-or-line-coordinates ()
    "If the region is active, the pair (`region-beginning' `region-end'); otherwise, the pair (`line-beginning-position' `line-end-position')."
    (if (region-active-p)
        `(,(region-beginning)
          ,(region-end))
      `(,(line-beginning-position)
        ,(line-end-position))))

  (defun my/comment-dwim ()
    "If the region is not active, select the current line. Then, if the region is a comment, uncomment it, and otherwise comment it out."
    (interactive)
    (apply #'comment-or-uncomment-region
           (my/region-or-line-coordinates)))

  (spacemacs/set-leader-keys
    ";" #'my/comment-dwim)

  ;; Insert unicode with CTRL+SHIFT+u. (Ubuntu binding.)
  (misc--def-keys global-map
    "C-S-u" #'insert-char)

;;; Specializations

;;;; Lisps
  (setq-default my/lisp-setup
                [paren-face-mode ; Dim parentheses.
                 ;; parinfer-mode ; Manage parentheses automagically.
                 my/prettify-glyphs])

  (defun my/prettify-glyphs ()
    "Prettify some symbols."
    (seq-doseq (ass [("lambda" . ?λ)])
      (push ass prettify-symbols-alist)))

;;;; Emacs-Lisp
  (hook-up
   [emacs-lisp-mode-hook]
   my/lisp-setup)

;;; Interned Shells
  (setenv "PAGER" "cat")
  (custom-set-variables
   '(comint-scroll-to-bottom-on-input t); Insert at the bottom.
   '(comint-scroll-to-bottom-on-output nil); Add output below.
   '(comint-input-ignoredups t); Clear duplicate entries from history.
   '(comint-completion-addsuffix t); Add space or slash to file completion.
   '(comint-prompt-read-only nil)); Magic

;;;; Shell script editing
  (add-to-list 'auto-mode-alist '("\\.zsh$" . sh-mode)))

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