(defun dotspacemacs/layers ()

"Layer configuration:

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

;; ----------------------------------------------------------------

csv

debug

html

yaml

markdown

docker

helm

ranger

prodigy

better-defaults

emacs-lisp

git

lsp

dap

(python :variables

python-fill-column 120

python-indent-offset 4

python-backend 'lsp)

django

(elixir :variables

elixir-backend 'lsp)

phoenix

erlang

sql

javascript

(typescript :variables

typescript-backend 'lsp)

rust

themes-megapack

org

(shell :variables

shell-default-height 30

shell-default-position 'bottom

shell-default-shell 'eshell)

spell-checking

syntax-checking

version-control

(auto-completion :variables

auto-completion-enable-sort-by-usage t

auto-completion-enable-snippets-in-popup t)

(treemacs :variables

treemacs-use-follow-mode t

treemacs-use-filewatch-mode t)

(ibuffer :variables

ibuffer-group-buffers-by 'projects)

pdf

games

selectric

xclipboard

systemd

restclient

)

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

reverse-im ;; allows usage shortcuts on russian keyboard

srcery-theme ;; theme

snazzy-theme ;; theme, TODO: I think it was added to themes-megapack. As well as there is doom version, so should be removed

dap-mode ;; FIXME: it is added by dap layer, so should be removed?

exunit ;; elixir test runner

autopair ;; autopairs quotes and brackets, used for snippets. TODO: should be considered to change to spartparens

solaire-mode ;; highlights test buffers with slightly brighter colors

treemacs-magit ;; magit integration

treemacs-icons-dired ;; use treemacs icons in dired

magit-todos ;; add TODOs and other keywords to the magit buffer

python-pytest ;; pytest runner, TODO: requires some fixing

centaur-tabs ;; beautiful tabs for emacs, TODO: requires further fixing with spaceline flickering.

company-box ;; great package for company completions look and feel

nov ;; awesome epub mode

calfw ;; great emacs calendar

calfw-org ;; integration of calendar with org

highlight-function-calls ;; highlights function calls

highlight-blocks ;; highlights block, where cursor is

symex ;; symex-mode for structural editing of lisp

)

;; 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 '(lsp-python-ms)

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

;; 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 '((agenda . nil)

(projects . 3))

;; True if the home buffer should respond to resize events.

dotspacemacs-startup-buffer-responsive t

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

dotspacemacs-scratch-mode 'org-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 '(

doom-peacock

snazzy

srcery

doom-molokai

solarized-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.1)

;; 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 '("Fira Code"

:size 14

: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

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

dotspacemacs-remap-Y-to-y$ nil

;; If non-nil, the shift mappings `<' and `>' retain visual state if used

;; there. (default t)

dotspacemacs-retain-visual-state-on-shift t

;; If non-nil, `J' and `K' move lines up and down when in visual mode.

;; (default nil)

dotspacemacs-visual-line-move-text t

;; If non-nil, inverse the meaning of `g' in `:substitute' Evil ex-command.

;; (default nil)

dotspacemacs-ex-substitute-global 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 'original

;; Maximum number of rollback slots to keep in the cache. (default 5)

dotspacemacs-max-rollback-slots 5

;; If non-nil, `helm' will try to minimize the space it uses. (default nil)

dotspacemacs-helm-resize nil

;; if non-nil, the helm header is hidden when there is only one source.

;; (default nil)

dotspacemacs-helm-no-header nil

;; define the position to display `helm', options are `bottom', `top',

;; `left', or `right'. (default 'bottom)

dotspacemacs-helm-position 'bottom

;; Controls fuzzy matching in helm. If set to `always', force fuzzy matching

;; in all non-asynchronous sources. If set to `source', preserve individual

;; source settings. Else, disable fuzzy matching in all sources.

;; (default 'always)

dotspacemacs-helm-use-fuzzy 'always

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

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

;; 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@%f"

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

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

(spacemacs/load-spacemacs-env))

(defun dotspacemacs/user-init ()

"Initialization for user code:

;; For some reason spacemacs font and transparency is not loaded properly on emacsclient startup

;; https://github.com/syl20bnr/spacemacs/issues/10894

(mapc

(lambda (item) (add-to-list 'default-frame-alist item)) '(

(font . "-CTDB-Fira Code-normal-normal-normal-*-14-*-*-*-m-0-iso10646-1")

(alpha . (95 . 90))))

)

(defun dotspacemacs/user-load ()

"Library to load while dumping.

)

(defun custom/kill-all-persp ()

"Kills all perspectives with their buffers, except `Default'"

(interactive)

(let ((persps (seq-filter (lambda (persp) (not (equal persp "Default")))

(persp-names)))

(persp-autokill-buffer-on-remove t))

(if persps (persp-kill persps)))

(spacemacs-buffer/refresh)

(delete-other-windows))

(defun custom/window-visible (b-name)

"Return whether B-NAME is visible."

(-> (-compose 'buffer-name 'window-buffer)

(-map (window-list))

(-contains? b-name)))

(defun custom/show-debug-windows (session)

"Show debug windows."

(let ((lsp--cur-workspace (dap--debug-session-workspace session)))

(save-excursion

;; display locals

(unless (custom/window-visible dap-ui--locals-buffer)

(dap-ui-locals))

;; display sessions

(unless (custom/window-visible dap-ui--sessions-buffer)

(dap-ui-sessions)))))

(defun custom/hide-debug-windows (session)

"Hide debug windows when all debug sessions are dead."

(unless (-filter 'dap--session-running (dap--get-sessions))

(and (get-buffer dap-ui--sessions-buffer)

(kill-buffer dap-ui--sessions-buffer))

(and (get-buffer dap-ui--locals-buffer)

(kill-buffer dap-ui--locals-buffer))))

(defun insert-page-break ()

(interactive)

(evil-beginning-of-line)

(insert "\C-l\n"))

(defun custom/generic-improvements ()

"Generic improvements and packages that are either too small, or not fitting other categories."

;; This 2 hooks fix a shitton of issues with emacs-server and recentf bitch

(add-hook 'delete-terminal-functions (lambda (terminal) (recentf-save-list)))

(add-hook 'kill-emacs-hook 'recentf-save-list)

;; Add restclient package

(use-package restclient

:config

(spacemacs/set-leader-keys-for-major-mode 'restclient-mode (kbd ",") 'restclient-http-send-current))

;; allow usage of russian keyboard

(use-package reverse-im

:demand

:config

(reverse-im-activate "russian-computer"))

;; associate epub file with nov-mode

(use-package nov

:mode ("\\.epub\\'" . nov-mode)

:custom

(nov-text-width 120)

:bind

(:map nov-mode-map

("C-j" . nov-next-document)

("C-k" . nov-previous-document)

("C-l" . nov-goto-toc)))

;; configurate writeroom

(use-package writeroom-mode

:hook ((nov-mode . writeroom-mode)

(pdf-view-mode . writeroom-mode))

:custom

(writeroom-width 125))

;; enable Jolly Cooperation everywhere

(use-package solaire-mode

:demand

:init

(solaire-global-mode +1))

;; is reaquired by company-box

(use-package all-the-icons)

;; a fancier company interface

(use-package company-box

:demand

:custom

(company-box-icons-alist 'company-box-icons-all-the-icons)

(company-box-show-single-candidate t)

:hook (company-mode . company-box-mode)

)

;; configure webmode

(use-package web-mode

:custom

(web-mode-markup-indent-offset 2))

;; Make csv open always aligned with delimiters

(use-package csv-mode

:hook (csv-mode . (lambda () (csv-toggle-invisibility) (csv-align-fields nil 1 (point-max)))) ;; TODO: this probably can be done better

)

;; autopair stuff in snippets and org

(use-package smartparens

:hook (org-mode . smartparens-mode)

)

(use-package yasnippet

:config

(add-hook 'yas-before-expand-snippet-hook (lambda () (autopair-mode 1)))

(add-hook 'yas-after-exit-snippet-hook (lambda () (autopair-mode -1)))

)

;; Show treemacs icons in dired

(use-package treemacs-icons-dired

:hook (dired-mode . treemacs-icons-dired-mode))

(setq enable-local-variables :all)

(setq enable-local-eval t)

)

(defun custom/add-hooks ()

"This is all the hooks I use"

;; Add a line on 80 symbols

(add-hook 'python-mode-hook '(lambda () (display-fill-column-indicator-mode 1)))

(add-hook 'elixir-mode-hook '(lambda () (display-fill-column-indicator-mode 1)))

)

(defun custom/spacemacs-improvements ()

"Several fixes from spacemacs issues"

;; do not kill emacs daemon on exit

(evil-leader/set-key "q q" 'spacemacs/frame-killer)

(evil-leader/set-key "q Q" 'spacemacs/prompt-kill-emacs)

;; Don't remember what it was fixing :\

(ido-mode -1)

;; Disable useless parts of spaceline

(with-eval-after-load 'spaceline

(spaceline-toggle-minor-modes-off)

(spaceline-toggle-purpose-off)

)

;; Make auto-save more frequent and less painful

(setq auto-save-interval 100)

(setq auto-save-timeout 5)

;; No lock files plz

(setq create-lockfiles nil)

;; Always follow symlinks pls

(setq vc-follow-symlinks t)

;; Please use transparency

(spacemacs/enable-transparency)

)

(defun custom/dap-generic ()

"Generic LSP dap changes"

(add-hook 'dap-stopped-hook 'custom/show-debug-windows)

(add-hook 'dap-terminated-hook 'custom/hide-debug-windows)

(define-minor-mode custom-python-debug-mode

"Remap some keybinds, specific to python and dap"

:global nil

(spacemacs/set-leader-keys-for-minor-mode 'dap-mode (kbd "d b b") 'spacemacs/python-toggle-breakpoint)

(spacemacs/set-leader-keys-for-minor-mode 'dap-mode (kbd "d b d") 'dap-breakpoint-toggle)

)

(add-hook 'lsp-mode-hook (lambda ()

(if (eq major-mode 'python-mode)

(custom-python-debug-mode t))))

)

(defun custom/tabs-generic ()

(use-package centaur-tabs

:demand

:config

(centaur-tabs-mode t)

(setq centaur-tabs-style "bar")

(setq centaur-tabs-height 32)

(setq centaur-tabs-set-icons t)

(setq centaur-tabs-set-bar 'over)

(setq centaur-tabs-set-close-button nil)

(setq centaur-tabs-cycle-scope 'tabs)

(centaur-tabs-group-by-projectile-project)

(defun centaur-tabs-hide-tab (x)

(let ((name (format "%s" x)))

(or

(window-dedicated-p (selected-window))

(string-prefix-p "*" name)

(string-prefix-p "magit" name)

)))

:hook (

(dashboard-mode . centaur-tabs-local-mode)

(treemacs-mode . centaur-tabs-local-mode)

(spacemacs-buffer-mode . centaur-tabs-local-mode)

(term-mode . centaur-tabs-local-mode)

(calendar-mode . centaur-tabs-local-mode)

(org-agenda-mode . centaur-tabs-local-mode)

(helpful-mode . centaur-tabs-local-mode)

(dired-mode . centaur-tabs-local-mode)

(zone-mode . centaur-tabs-local-mode)

(helm-mode . centaur-tabs-local-mode))

:bind

("C-<prior>" . centaur-tabs-backward)

("C-<next>" . centaur-tabs-forward)

("C-c t" . centaur-tabs-counsel-switch-group)

(:map evil-normal-state-map

("g l" . centaur-tabs-forward)

("g h" . centaur-tabs-backward)

)

)

)

(defun custom/lsp-generic ()

"Generic LSP changes"

(use-package lsp-mode

:commands lsp

:ensure t

:diminish lsp-mode

:custom

;; always filewatch

(lsp-file-watch-threshold nil)

;; do not show hover info in eldoc, I have lsp-ui-doc for that

(lsp-eldoc-enable-hover nil)

;; Stop with your stupid warning lsp

(lsp-message-project-root-warning t)

;; disable garbage rope completion in pyls

(lsp-pyls-plugins-rope-completion-enabled nil)

;; disable params in jedi completion as they are pretty much useless and annoying

(lsp-pyls-plugins-jedi-completion-include-params nil)

;; Stop printing your output to *Warnings*

(lsp-print-io t))

(use-package lsp-ui

:config

;; Use lsp-ui-peek instead of xref, as xref + lsp in emacs27 is broken

(spacemacs/set-leader-keys-for-minor-mode 'lsp-ui-mode (kbd "g d") 'lsp-ui-peek-find-definitions)

(spacemacs/set-leader-keys-for-minor-mode 'lsp-ui-mode (kbd "g r") 'lsp-ui-peek-find-references)

(spacemacs/set-leader-keys-for-minor-mode 'lsp-ui-mode (kbd "g i") 'lsp-ui-peek-find-implementation)

:custom

;; LSP-UI-DOC

;; use webkit if available

(lsp-ui-doc-use-webkit t)

;; add function signature to the buffer

(lsp-ui-doc-include-signature t)

;; (lsp-ui-doc-use-childframe nil)

;; LSP-UI-SIDELINE

;; do not show hover info, I have lsp-ui-doc for that

(lsp-ui-sideline-show-hover nil)

;; LSP-UI-PEEK

;; always use fontify, otherwise highlight is broken in the left half

(lsp-ui-peek-fontify 'always))

)

(defun custom/python-specific ()

"Changes specific to python-mode"

;; add pytest keybinds

;; FIXME: this pytest package requires some fixing

(use-package python-pytest

:custom

(python-pytest-arguments '("--color" "--cov"))

:config

(spacemacs/set-leader-keys-for-major-mode 'python-mode (kbd "t") 'python-pytest-popup)

(magit-define-popup-switch 'python-pytest-popup ?C "Converage" "--cov")

)

)

(defun custom/elixir-specific ()

"Changes specific to elixir-mode"

(use-package elixir-mode

:config

(spacemacs/declare-prefix-for-mode 'elixir-mode (kbd "m t") "tests" "testing related functionality")

(spacemacs/set-leader-keys-for-major-mode 'elixir-mode

(kbd "t b") 'exunit-verify-all

(kbd "t a") 'exunit-verify

(kbd "t k") 'exunit-rerun

(kbd "t t") 'exunit-verify-single)))

(defun custom/elisp-specific ()

"Changes specific to emacs-lisp-mode"

;; handy key to insert page-breaks

(spacemacs/set-leader-keys-for-major-mode 'emacs-lisp-mode (kbd "l") 'insert-page-break)

;;add and enable smyx mode

(use-package symex

:hook (emacs-lisp-mode . symex-mode)

:bind (:map spacemacs-emacs-lisp-mode-map (("," . symex-mode-interface))))

;; functions highlighter

(use-package highlight-function-calls

:hook (emacs-lisp-mode . highlight-function-calls-mode))

(use-package highlight-blocks

:custom

(highlight-blocks-max-innermost-block-count 1)

:hook (emacs-lisp-mode . highlight-blocks-mode)

)

)

(defun custom/sql-specific ()

"Changes specific to sql-mode"

)

(defun custom/magit-specific ()

"Specific changes to magit and its subpackages"

(use-package magit-todos

:hook (magit-mode . magit-todos-mode)

:custom

;; Disable magit-todos map as it is garbage and is bound to `j`

(magit-todos-section-map nil)

:config

;; set magit todos faces

(setq magit-todos-keywords 'hl-todo-keyword-faces))

)

(defun custom/org-specific ()

"Changes specific to org-mode"

(use-package org

:custom

;; Autohide markup elements

(org-hide-emphasis-markers t)

;; add agenda files

(org-agenda-files (append

(directory-files-recursively "~/Desktop/python_course_program" "**.org")

(file-expand-wildcards "~/org/*.org"))))

(use-package calfw-org

:demand

:config

(define-key evil-normal-state-local-map (kbd "SPC a o a") 'cfw:open-org-calendar)

:bind

(:map cfw:calendar-mode-map

(("C-j" . cfw:navi-next-item-command)

("C-k" . cfw:navi-prev-item-command)

("A" . org-agenda-list)))

)

)

(defun custom/markdown-specific ()

"Changes specific to markdown-mode"

(use-package markdown-mode

:custom

;; Always hide markup in markdown-mode

(markdown-hide-markup t)

;; Hide and shorten URLs in markdown

(markdown-hide-urls t))

)

(defun custom/treemacs-specific ()

"Changes specific to treemacs-mode"

(use-package treemacs

:config

;; Treemacs use deferred git-mode

(treemacs-git-mode 'deferred)

;; Hide dotfiles by default

(treemacs-toggle-show-dotfiles)

;; Ignore *.pyc files

(add-to-list 'treemacs-ignored-file-predicates

(lambda (filename filepath)

(string-match-p "\.pyc$" filename)))

;; autohide files ignored by git please

(add-to-list 'treemacs-pre-file-insert-predicates #'treemacs-is-file-git-ignored?)

:custom

;; keep the width locked

(treemacs-lock-width 1)

:bind

(:map treemacs-mode-map

;; Swap treemacs horizontal/vertical ace

("o a h" . treemacs-visit-node-ace-vertical-split)

("o a v" . treemacs-visit-node-ace-horizontal-split)))

)

(defun custom/helm-specific ()

"Changes specific to helm-mode"

(use-package helm

:demand

:bind

(:map helm-map

;; Helm please. Allow me to move cursor normally

("<left>" . backward-char)

("<right>" . forward-char)))

(use-package helm-ag

:demand

:bind

(:map helm-ag-map

;; Helm-ag please. Allow me to move cursor normally

("<left>" . backward-char)

("<right>" . forward-char)))

;; Fix for the window splits

(defun helm-persistent-action-display-window (&optional split-onewindow)

"Return the window that will be used for persistent action.

(with-helm-window

(setq helm-persistent-action-display-window (get-mru-window))))

)

(defun custom/generic-define-keys ()

"Generic key defines I use, that are not tied to some specific mode,

;; Unbind annoying sticky M-x on <menu>

(define-key global-map (kbd "<menu>") nil)

;; Bind Ibuffer to SPC-b-B

(define-key evil-normal-state-local-map (kbd "SPC b b") 'ibuffer)

;; Swap safe revert buffer and persp remove buffer

(define-key evil-normal-state-local-map (kbd "SPC b r") 'spacemacs/safe-revert-buffer)

(define-key evil-normal-state-local-map (kbd "SPC b R") 'persp-remove-buffer)

;; Bind copy whole buffer to lowercase y (whatafaqerino)

(define-key evil-normal-state-local-map (kbd "SPC b y") 'spacemacs/copy-whole-buffer-to-clipboard)

;; Bind kill-all-persp

(define-key evil-normal-state-local-map (kbd "SPC b k") 'custom/kill-all-persp)

)

(defun custom/zoning ()

"Changes specific to zoning"

(use-package zone

:demand

:config

(zone-when-idle 240)

:custom

(zone-programs [zone-pgm-jitter

zone-pgm-putz-with-case

zone-pgm-dissolve

zone-pgm-explode

zone-pgm-whack-chars

zone-pgm-rotate-LR-variable

zone-pgm-rotate-RL-variable

zone-pgm-drip

zone-pgm-five-oclock-swan-dive

zone-pgm-martini-swan-dive

zone-pgm-rat-race

zone-pgm-paragraph-spaz

zone-pgm-stress

zone-pgm-stress-destress

zone-pgm-random-life

]))

)

(defun custom/faces-all ()

(custom-set-faces

;; all

;; No wavy flycheck, please

'(flycheck-error ((t (:background "#2d2e2e" :underline "#e74c3c"))))

'(flycheck-info ((t (:background "#2d2e2e" :underline "#b6e63e"))))

'(flycheck-warning ((t (:background "#2d2e2e" :underline "#e2c770"))))

'(flyspell-duplicate ((t (:underline "DarkOrange"))))

'(flyspell-incorrect ((t (:underline "#e74c3c"))))

)

(setq hl-todo-keyword-faces