(defconst my/macos-flag (eq system-type 'darwin))

(defconst my/work-flag (thread-first "yadm config --get local.class"

shell-command-to-string

string-trim

(string= "WORK")))

(defmacro my/with-no-messages (&rest body)

;; `inhibit-message' still logs to *Messages* and (apprently?) clears previous message

;; so instead...

`(cl-letf (((symbol-function 'message) #'ignore))

(progn ,@body)))

(defun my/suppress-messages-advice (func &rest args)

(my/with-no-messages (apply func args)))

(defun my/suppress-messages-hook (func)

(lambda () (my/with-no-messages (funcall func))))

(defun my/install-external-deps ()

(interactive)

(let* ((spacemacs-d-path (f-expand "~/.spacemacs.d"))

(nix-path (f-join spacemacs-d-path "nix"))

(flake-path (f-join nix-path "flake"))

(profile-path (f-join nix-path "profile"))

(out-buffer "*nix profile install*"))

;; --- install ---

;; avoid priority/conflict errors. is there a better way?

(when (file-exists-p profile-path) (delete-file profile-path t))

(async-shell-command

(format "set -x; nix -vv profile install --profile %s %s" profile-path flake-path)

out-buffer)

(pop-to-buffer out-buffer)

(evil-normal-state)

;; --- config ---

(let ((profile-bin-path (f-join profile-path "bin")))

(add-to-list 'exec-path profile-bin-path)

(setenv "PATH" (format "%s:%s" profile-bin-path (getenv "PATH"))))

;; eslint

(setq lsp-eslint-server-command '("vscode-eslint-language-server" "--stdio"))

;; angular

(let* ((ng-extension-path (f-join profile-path "share/vscode/extensions/Angular.ng-template"))

(ng-server-path (f-join ng-extension-path "server/bin/ngserver"))

(ng-node-modules-path (f-join ng-extension-path "node_modules")))

(setq lsp-clients-angular-language-server-command

(list "node" ng-server-path

"--ngProbeLocations" ng-node-modules-path

"--tsProbeLocations" ng-node-modules-path

"--stdio")))

))

(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

;; List of additional paths where to look for configuration layers.

;; Paths must have a trailing slash (i.e. "~/.mycontribs/")

dotspacemacs-configuration-layer-path '("~/.spacemacs.d/layers/")

;; List of configuration layers to load.

dotspacemacs-configuration-layers

`(auto-completion

c-c++

csv

dap

debug

docker

emacs-lisp

git

go

graphviz

helpful

html

ibuffer

ipython-notebook

ivy

java

lua

markdown

multiple-cursors

nav-flash

org

posframe

python

shell

shell-scripts

spacemacs-layouts

spell-checking

sql

syntax-checking

tree-sitter

treemacs

typescript

unicode-fonts

version-control

yaml

,@(when my/work-flag

'(groovy

kubernetes

terraform))

,@(unless my/work-flag

'(ansible

dhall

epub

haskell

janet

meson

nginx

nixos

purescript

rust

scheme

vagrant))

,@(when my/macos-flag

'())

,@(unless my/macos-flag

'(systemd)))

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

;; for :location format, see https://github.com/melpa/melpa/#recipe-format

;; may need to delete package dir in ~/.emacs.d/elpa to replace

`(

apheleia ;; auto formatter

caps-lock

diredfl ;; dired font-lock

eat ;; elisp terminal emulator

envrc

explain-pause-mode

flycheck-posframe

fold-this

gcmh

just-mode

minimap

mustache-mode ;; for the templating lang

nerd-icons ;; for doom-modeline -- should be a dep?

nix-ts-mode

ox-pandoc ;; org pandoc exporter

ox-reveal ;; org slidedeck exporter

solaire-mode

symex

;; mini-frame

;; undo-hl

;; coterm

(ivy-nixos-options

:location (recipe :fetcher github :repo "travisbhartwell/nix-emacs"))

(dconf-dotfile

:location (recipe :fetcher github :repo "eeshugerman/dconf-dotfile.el"))

(explain-pause-mode

:location (recipe :fetcher github :repo "lastquestion/explain-pause-mode"))

,@(when my/work-flag

'((sql-snowflake :location "~/devel/sql-snowflake.el")

(sql-databricks :location "~/devel/sql-databricks.el")

sql-trino

(prisma-mode :location (recipe :fetcher github :repo "pimeys/emacs-prisma-mode"))))

,@(unless my/work-flag

'(guix

(nushell-mode :location (recipe :fetcher github :repo "mrkkrp/nushell-mode")))))

;; A list of packages that cannot be updated.

dotspacemacs-frozen-packages '()

;; A list of packages that will not be installed and loaded.

dotspacemacs-excluded-packages '()

;; Defines the behaviour of Spacemacs when installing packages.

;; Possible values are `used-only', `used-but-keep-unused' and `all'.

;; `used-only' installs only explicitly used packages and deletes any unused

;; packages as well as their unused dependencies. `used-but-keep-unused'

;; installs only the used packages but won't delete unused ones. `all'

;; installs *all* packages supported by Spacemacs and never uninstalls them.

;; (default is `used-only')

dotspacemacs-install-packages 'used-only))

(defun dotspacemacs/init ()

"Initialization:

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

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

vim-style-remap-Y-to-y$ t

vim-style-visual-feedback t

vim-style-visual-line-move-text t

vim-style-ex-substitute-global t)

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

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

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

;; If non-nil, `kill-buffer' on *scratch* buffer

;; will bury it instead of killing.

dotspacemacs-scratch-buffer-unkillable t

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

doom-nord

doom-nord-light

doom-solarized-dark

doom-solarized-light

;; extra lights

doom-one-light

doom-opera-light

doom-tomorrow-day

;; extra medium

doom-nova

;; extra darks

doom-city-lights

doom-ephemeral

doom-material

doom-palenight

doom-one

doom-vibrant

doom-horizon

doom-snazzy

doom-spacegrey)

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

;; 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. This setting has no effect when

;; running Emacs in terminal. The font set here will be used for default and

;; fixed-pitch faces. 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 `(("JetBrains Mono"

:size ,(if my/macos-flag 12.0 10.0))

("Fira Code"

:size ,(if my/macos-flag 12.0 10.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

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

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

;; It is also possible to use a posframe with the following cons cell

;; `(posframe . position)' where position can be one of `center',

;; `top-center', `bottom-center', `top-left-corner', `top-right-corner',

;; `top-right-corner', `bottom-left-corner' or `bottom-right-corner'

;; (default 'bottom)

dotspacemacs-which-key-position '(posframe . center)

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

;; Whether side windows (such as those created by treemacs or neotree)

;; are kept or minimized by `spacemacs/toggle-maximize-window' (SPC w m).

;; (default t)

dotspacemacs-maximize-window-keep-side-windows t

;; 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 t) (Emacs 24.4+ only)

dotspacemacs-maximized-at-startup t

;; If non-nil the frame is undecorated when Emacs starts up. Combine this

;; variable with `dotspacemacs-maximized-at-startup' to obtain fullscreen

;; without external boxes. Also disables the internal border. (default nil)

dotspacemacs-undecorated-at-startup t ;; this breaks Rectangle stuff in OSX

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

;; A value from the range (0..100), in increasing opacity, which describes the

;; transparency level of a frame background when it's active or selected. Transparency

;; can be toggled through `toggle-background-transparency'. (default 90)

dotspacemacs-background-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 nil

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

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

;; The backend used for undo/redo functionality. Possible values are

;; `undo-fu', `undo-redo' and `undo-tree' see also `evil-undo-system'.

;; Note that saved undo history does not get transferred when changing

;; your undo system. The default is currently `undo-fu' as `undo-tree'

;; is not maintained anymore and `undo-redo' is very basic."

dotspacemacs-undo-system 'undo-fu

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

;; Format specification for setting the icon title format

;; (default nil - same as frame-title-format)

dotspacemacs-icon-title-format nil

;; Color highlight trailing whitespace in all prog-mode and text-mode derived

;; modes such as c++-mode, python-mode, emacs-lisp, html-mode, rst-mode etc.

;; (default t)

dotspacemacs-show-trailing-whitespace (not my/work-flag)

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

;; The variable `global-spacemacs-whitespace-cleanup-modes' controls

;; which major modes have whitespace cleanup enabled or disabled

;; by default.

;; (default nil)

dotspacemacs-whitespace-cleanup nil

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

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

(defun dotspacemacs/user-env ()

"Environment variables setup.

;; TODO: try getting rid of this (as the file header suggests). It causes

;; occasional problems.

(spacemacs/load-spacemacs-env)

)

(defun dotspacemacs/user-init ()

"Initialization for user code:

(if my/macos-flag

(setq insert-directory-program "/usr/local/bin/gls"))

(setq-default

;; misc -- TODO: organize these

c-c++-lsp-enable-semantic-highlight t

;; c-c++-lsp-enable-semantic-highlight 'overlay

doom-solarized-dark-brighter-modeline t

haskell-completion-backend 'lsp

evil-respect-visual-line-mode t

html-enable-lsp t

css-enable-lsp t

scss-enable-lsp t

dap-debug-restart-keep-session nil

git-enable-magit-delta-plugin t

git-enable-magit-todos-plugin nil ;; can this be configured to show todos in the diff from master only?

;; groovy-backend 'lsp

;; TODO: use nix

groovy-lsp-jar-path "~/util/groovy-language-server/build/libs/groovy-language-server-all.jar"

ivy-enable-icons t ;; also sets `ivy-enable-advanced-buffer-information'

ivy-extra-directories nil

ivy-initial-inputs-alist nil

ivy-virtual-abbreviate 'full

ivy-wrap t

java-backend 'lsp

javascript-import-tool (if my/work-flag 'import-js nil)

javascript-repl 'nodejs

js2-include-node-externs t

lsp-auto-execute-action nil

lsp-clients-typescript-max-ts-server-memory 4096

lsp-copilot-enabled nil ;; still prompts to install server :(

lsp-eldoc-enable-hover nil

lsp-enable-dap-auto-configure nil ;; performance issues. we also do (dap-auto-configure-mode -1) below for good measure

lsp-enable-indentation nil

lsp-enable-on-type-formatting nil

lsp-enable-symbol-highlighting t

lsp-eslint-enable t

lsp-eslint-warn-on-ignored-files t

lsp-file-watch-threshold 3000

lsp-headerline-breadcrumb-enable t

lsp-headerline-breadcrumb-segments '(symbols)

lsp-headerline-breadcrumb-icons-enable nil ;; icons can make the headerline height wobble when point moves

lsp-inlay-hint-enable t

lsp-modeline-code-actions-enable nil

lsp-signature-render-documentation nil

lsp-ui-doc-alignment 'window

lsp-ui-doc-delay 0.5 ; seconds

lsp-ui-doc-enable t ;; slow w/ large files?

lsp-ui-doc-header nil

lsp-ui-doc-include-signature t

lsp-ui-doc-max-width (if my/work-flag 90 75)

lsp-ui-doc-show-with-cursor t

lsp-ui-doc-show-with-mouse nil

lsp-ui-doc-use-childframe t

lsp-ui-imenu-auto-refresh 'after-save

lsp-ui-imenu-enable nil

lsp-ui-peek-always-show t

lsp-ui-peek-enable t

lsp-ui-peek-fontify 'always

lsp-ui-peek-list-width 60

lsp-ui-peek-show-directory t

lsp-ui-sideline-diagnostic-max-line-length 90

lsp-ui-sideline-diagnostic-max-lines 10

lsp-ui-sideline-enable nil

lsp-ui-sideline-show-code-actions nil

lsp-ui-sideline-show-diagnostics nil ;; use SPC e x instead

lsp-ui-sideline-show-hover nil

lsp-ui-sideline-show-symbol nil

lsp-ui-sideline-update-mode 'line ;; more performant maybe?

lsp-use-plists my/work-flag ;; TODO: set env var on linux

nix-backend 'lsp

org-adapt-indentation t

org-enable-jira-support t

org-enable-verb-support t

purescript-fmt-on-save t

python-backend 'lsp

python-fill-column 100

python-fill-docstring-style 'django

python-format-on-save nil

python-formatter 'black

python-lsp-server 'pyright

python-poetry-activate t

python-sort-imports-on-save nil

python-tab-width 4

scheme-implementations '(guile)

shell-default-height 30

shell-default-position 'bottom

shell-default-shell 'shell

spacemacs-layouts-restrict-spc-tab t

spacemacs-layouts-restricted-functions '(ivy-switch-buffer ;; shouldn't be necessary ?

spacemacs/window-split-double-columns

spacemacs/window-split-triple-columns

spacemacs/window-split-grid)

persp-autokill-buffer-on-remove 'kill-weak

spell-checking-enable-by-default nil

tree-sitter-indent-enable nil

tree-sitter-fold-enable t

tree-sitter-fold-indicators-enable nil ;; would rather disable in dir-locals but have not had luck with that

tree-sitter-hl-enable-query-region-extension t

treemacs-sorting 'alphabetic-asc

treemacs-use-filewatch-mode t

treemacs-use-git-mode 'deferred

treemacs-deferred-git-apply-delay 0.25

treemacs-use-follow-mode nil

;; https://github.com/Alexander-Miller/cfrs/issues/4 is fixed but this is still buggy

treemacs-read-string-input 'from-minibuffer

unicode-fonts-enable-ligatures t

unicode-fonts-less-feedback t

unicode-fonts-ligature-modes '(typescript-mode

javascript-mode

js2-mode

web-mode

html-mode

scss-mode

css-mode)

version-control-diff-tool 'diff-hl

writeroom-maximize-window nil

writeroom-mode-line t

writeroom-global-effects nil)

(setopt spacemacs-keep-legacy-current-buffer-delete-bindings nil))

(defun dotspacemacs/user-load ()

"Library to load while dumping.

)

(defun dotspacemacs/user-config ()

"Configuration for user code:

(spacemacs/toggle-debug-on-error-on)

(my/install-external-deps)

(with-current-buffer spacemacs-buffer-name

(spacemacs/toggle-truncate-lines-on))

;; temp ---------------------------------------------------------------------

;; fixes js org blocks -- why??

(defface tree-sitter-hl-face:punctuation

'((default :inherit unspecified))

"Face for punctuations."

:group 'tree-sitter-hl-faces)

;; init/configure standalone packages ----------------------------------------------------

(use-package diredfl :config (diredfl-global-mode 1))

(use-package gcmh

:init (setq gcmh-verbose nil

gcmh-low-cons-threshold (expt 10 3)

gcmh-high-cons-threshold (expt 10 8)

gcmh-idle-delay 15)

:config (gcmh-mode 1))

(use-package envrc

:config (envrc-global-mode))

(use-package explain-pause-mode

:config (explain-pause-mode 1))

(use-package solaire-mode :config (solaire-global-mode 1))

(use-package symex)

(unless my/work-flag

(use-package guix))

(when my/work-flag

(use-package sql-snowflake)

(use-package sql-databricks)

(use-package sql-trino

:config (add-to-list 'sql-trino-options "--pager=cat"))

(use-package prisma-mode))

(unless my/work-flag

(use-package ivy-nixos-options)

(use-package dconf-dotfile))

;; misc/general --------------------------------------------------------------

(server-start)

(defun my/clear-shell-buffer ()

(interactive)

(cond ((derived-mode-p 'comint-mode) (comint-clear-buffer))

((eq major-mode 'eat-mode) (eat-reset))))

(spacemacs/set-leader-keys

":" 'eval-expression

"ow" 'eww

"oc" 'my/clear-shell-buffer

"og" 'revert-buffer

"ou" 'my/unescape-newlines)

(setq-default select-enable-clipboard nil

create-lockfiles nil

projectile-indexing-method 'hybrid

bidi-inhibit-bpa t

bidi-paragraph-direction 'left-to-right

completion-ignore-case t

diff-refine nil

inhibit-compacting-font-caches t

jit-lock-defer-time 0

use-dialog-box nil

use-file-dialog nil

helpful-switch-buffer-function #'pop-to-buffer-same-window

tab-always-indent t)

(let ((custom-file-path (file-truename "~/.spacemacs.d/custom.el")))

(unless (file-exists-p custom-file-path)

(with-temp-buffer (write-file custom-file-path)))

(customize-set-variable 'custom-file custom-file-path))

(load custom-file)

(remove-hook 'after-make-frame-functions 'persp-init-new-frame) ;; not working?

(remove-hook 'diff-mode-hook 'whitespace-mode)

(when my/macos-flag

;; can be slow, resulting in periodic pauses

;; maybe not just just a macos thing

(savehist-mode -1)

;; seems to help with maximizing and moving between monitors

(setq frame-resize-pixelwise t))

(dolist (hook '(hack-local-variables-hook

special-mode-hook

shell-mode-hook))

(add-hook hook (my/suppress-messages-hook #'spacemacs/toggle-truncate-lines-on)))

(add-to-list 'auto-mode-alist

;; TODO: define custom mode extending markdown-mode with ",c" bound to save and kill

`(,(rx "tmp_github.com_" (repeat 8 alphanumeric) ".txt" string-end) . markdown-mode))

;; default to t after three seconds for "open file literally?" prompt

(advice-add 'spacemacs/check-large-file

:around (lambda (func &rest args)

(cl-letf (((symbol-function 'y-or-n-p-orig) (symbol-function 'y-or-n-p))

((symbol-function 'y-or-n-p) (lambda (prompt)

(with-timeout (3 t)

(y-or-n-p-orig prompt)))) )

(apply func args))))

;; treesit ----------------------------------------------------------------

(setq treesit-language-source-alist

'((yaml "https://github.com/ikatyang/tree-sitter-yaml" "v0.5.0")

(dockerfile "https://github.com/camdencheek/tree-sitter-dockerfile" "v0.2.0")