mirror of
https://github.com/SqrtMinusOne/dotfiles.git
synced 2025-12-10 19:23:03 +03:00
36 KiB
36 KiB
- Primary setup
- Keybindings
- General editing & setup
- Dired
- Terminal
- Org-mode
- UI & UX
- Programming
- Languages & Formats
- TRAMP
- Different apps
Primary setup
straight.el
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 5))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))use-package
(straight-use-package 'use-package)
(eval-when-compile (require 'use-package))Load user files
(defconst user-init-dir
(cond ((boundp 'user-emacs-directory)
user-emacs-directory)
((boundp 'user-init-directory)
user-init-directory)
(t "~/.emacs.d/")))
(defun load-user-file (file)
"Load a file in current user's configuration directory."
(interactive "f")
(load-file (expand-file-name file user-init-dir)))Misc
Environment variable
(setenv "IS_EMACS" "true")
Add rust stuff to exec-path
(add-to-list 'exec-path (expand-file-name "~/.cargo/bin"))Custom file location
(setq custom-file (concat user-emacs-directory "custom.el"))
(load custom-file 'noerror)Anaconda
(use-package conda
:straight t
:config
(setq conda-anaconda-home (expand-file-name "~/Programs/miniconda3/"))
(setq conda-env-home-directory (expand-file-name "~/Programs/miniconda3/"))
(setq conda-env-subdirectory "envs")
)
(conda-env-activate "base")Performance
(setq gc-cons-threshold 8000000)
(setq read-process-output-max (* 1024 1024))Keybindings
general.el
(use-package general
:straight t
:config
(general-evil-setup))which-key
(use-package which-key
:config
(setq which-key-idle-delay 0.3)
(setq which-key-popup-type 'frame)
(which-key-mode)
(which-key-setup-side-window-bottom)
(set-face-attribute 'which-key-local-map-description-face nil
:weight 'bold)
:straight t)My keybindings
Open config
(defun my-edit-configuration ()
"Open the init file."
(interactive)
(find-file "~/.emacs.d/emacs.org"))
(general-define-key "C-c c" 'my-edit-configuration)Editing
(general-def :states '(normal insert visual)
"<home>" 'beginning-of-line
"<end>" 'end-of-line)Escape
(defun minibuffer-keyboard-quit ()
"Abort recursive edit.
In Delete Selection mode, if the mark is active, just deactivate it;
then it takes a second \\[keyboard-quit] to abort the minibuffer."
(interactive)
(if (and delete-selection-mode transient-mark-mode mark-active)
(setq deactivate-mark t)
(when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
(abort-recursive-edit)))
(general-define-key
:keymaps '(normal visual global)
[escape] 'keyboard-quit)
(general-define-key
:keymaps '(minibuffer-local-map
minibuffer-local-ns-map
minibuffer-local-completion-map
minibuffer-local-must-match-map
minibuffer-local-isearch-map)
[escape] 'minibuffer-keyboard-quit)General editing & setup
Evil-mode
(use-package evil
:straight t
:init
(setq evil-want-integration t)
(setq evil-want-C-u-scroll t)
(setq evil-want-keybinding nil)
:config
(evil-mode 1)
(setq evil-search-module 'evil-search)
(setq evil-split-window-below t)
(setq evil-vsplit-window-right t)
;; (setq evil-respect-visual-line-mode t)
(evil-set-undo-system 'undo-tree)
;; (add-to-list 'evil-emacs-state-modes 'dired-mode)
)
(use-package evil-numbers
:straight t)
(use-package evil-surround
:straight t
:config
(global-evil-surround-mode 1))
(use-package evil-commentary
:straight t
:config
(evil-commentary-mode))
(use-package evil-collection
:straight t
:config
(evil-collection-init '(eww dired dasboard company vterm flycheck ebuku)))
(use-package evil-quickscope
:straight t
:config
:hook (
(prog-mode . turn-on-evil-quickscope-mode)
(LaTeX-mode . turn-on-evil-quickscope-mode)
))Keybindgs to override evil
My leader
(general-create-definer my-leader-def
:prefix "SPC"
:keymaps 'override
:states '(normal motion emacs))
(general-def
:keymaps 'override
:states '(normal motion emacs insert visual)
"M-u" 'universal-argument
)
(general-def :states '(normal motion emacs) "SPC" nil)
(my-leader-def "?" 'which-key-show-top-level)
(my-leader-def "E" 'eval-expression)Help
(my-leader-def
:infix "h"
"RET" 'view-order-manuals
"." 'display-local-help
"?" 'help-for-help
"C" 'describe-coding-system
"F" 'Info-goto-emacs-command-node
"I" 'describe-input-method
"K" 'Info-goto-emacs-key-command-node
"L" 'describe-language-environment
"P" 'describe-package
"S" 'info-lookup-symbol
"a" 'helm-apropos
"b" 'describe-bindings
"c" 'describe-key-briefly
"d" 'apropos-documentation
"e" 'view-echo-area-messages
"f" 'describe-function
"g" 'describe-gnu-project
"h" 'view-hello-file
"i" 'info
"k" 'describe-key
"l" 'view-lossage
"m" 'describe-mode
"n" 'view-emacs-news
"o" 'describe-symbol
"p" 'finder-by-keyword
"q" 'help-quit
"r" 'info-emacs-manual
"s" 'describe-syntax
"t" 'help-with-tutorial
"v" 'describe-variable
"w" 'where-is
"<f1>" 'help-for-help
"C-\\" 'describe-input-method
"C-a" 'about-emacs
"C-c" 'describe-copying
"C-d" 'view-emacs-debugging
"C-e" 'view-external-packages
"C-f" 'view-emacs-FAQ
"C-h" 'help-for-help
"C-n" 'view-emacs-news
"C-o" 'describe-distribution
"C-p" 'view-emacs-problems
"C-s" 'search-forward-help-for-help
"C-t" 'view-emacs-todo
"C-w" 'describe-no-warranty
)Buffer switch
(general-define-key
:keymaps 'override
"C-<right>" 'evil-window-right
"C-<left>" 'evil-window-left
"C-<up>" 'evil-window-up
"C-<down>" 'evil-window-down
"C-h" 'evil-window-left
"C-l" 'evil-window-right
"C-k" 'evil-window-up
"C-j" 'evil-window-down
"C-x h" 'previous-buffer
"C-x l" 'next-buffer
)OFF Multiple cursors
;; (use-package evil-mc
;; :straight t
;; :config
;; (define-key evil-mc-key-map (kbd "C-n") nil)
;; (define-key evil-mc-key-map (kbd "C-p") nil)
;; (define-key evil-mc-key-map (kbd "g") nil)
;; (evil-define-key 'normal evil-mc-key-map
;; (kbd "C-n") nil
;; (kbd "g") nil
;; (kbd "C-p") nil
;; )
;; (evil-define-key 'visual evil-mc-key-map
;; "A" #'evil-mc-make-cursor-in-visual-selection-end
;; "I" #'evil-mc-make-cursor-in-visual-selection-beg
;; (kbd "C-n") nil
;; (kbd "g") nil
;; (kbd "C-p") nil
;; )
;; (global-evil-mc-mode 1))
;;
;; (general-nmap "gr" evil-mc-cursors-map);; (use-package multiple-cursors
;; :straight t)
;;
;; (general-vmap
;; "I" #'mc/edit-lines
;; )Undo-redo & undo-tree
(use-package undo-tree
:straight t
:config
(global-undo-tree-mode)
(setq undo-tree-visualizer-diff t)
(setq undo-tree-visualizer-timestamps t))
(my-leader-def
"u" 'undo-tree-visualize)
(fset 'undo-auto-amalgamate 'ignore)
(setq undo-limit 6710886400)
(setq undo-strong-limit 100663296)
(setq undo-outer-limit 1006632960)Helm
(use-package helm
:init
(require 'helm-config)
(setq helm-split-window-in-side-p t)
(setq helm-move-to-line-cycle-in-source t)
:straight t
:config
(helm-mode 1)
(helm-autoresize-mode 1))
(use-package helm-ag
:straight t)
(use-package helm-rg
:straight t)
(general-nmap
:keymaps 'helm-ag-mode-map
"RET" 'helm-ag-mode-jump
"M-RET" 'helm-ag-mode-jump-other-window)
(general-nmap
:keymaps 'helm-occur-mode-map
"RET" 'helm-occur-mode-goto-line
"M-RET" 'helm-occur-mode-goto-line-ow)
(general-define-key "M-x" 'helm-M-x)
(my-leader-def
"fb" 'helm-buffers-list
"fs" 'helm-lsp-workspace-symbol
"fw" 'helm-lsp-global-workspace-symbol
"fc" 'helm-show-kill-ring
;; "fa" 'helm-do-ag-project-root
"fm" 'helm-bookmarks
"ff" 'project-find-file
"fe" 'conda-env-activate)
(my-leader-def "s" 'helm-occur)
(my-leader-def "SPC" 'helm-resume)
(general-define-key
:keymaps 'helm-map
"C-j" 'helm-next-line
"C-k" 'helm-previous-line)
(general-define-key
:keymaps '(helm-find-files-map helm-locate-map)
"C-h" 'helm-find-files-up-one-level
"C-l" 'helm-execute-persistent-action)
(general-imap
"C-y" 'helm-show-kill-ring)
;; (general-nmap "C-p" 'project-find-file)Treemacs
(use-package treemacs
:straight t
:config
(setq treemacs-follow-mode nil)
(setq treemacs-follow-after-init nil)
(setq treemacs-space-between-root-nodes nil)
(treemacs-git-mode 'extended)
(with-eval-after-load 'treemacs
(add-to-list 'treemacs-pre-file-insert-predicates #'treemacs-is-file-git-ignored?)))
(use-package treemacs-evil
:straight t)
(use-package treemacs-magit
:after treemacs magit
:straight t)
(general-define-key
:keymaps '(normal override global)
"C-n" 'treemacs)
(general-define-key
:keymaps '(treemacs-mode-map) [mouse-1] #'treemacs-single-click-expand-action)
(my-leader-def
"tw" 'treemacs-switch-workspace
"te" 'treemacs-edit-workspaces)Projectile
(use-package projectile
:straight t
:config
(projectile-mode +1)
(setq projectile-project-search-path '("~/Code" "~/Documents")))
(use-package helm-projectile
:straight t
:config
(setq projectile-completion-system 'helm))
(use-package treemacs-projectile
:straight t)
(my-leader-def
"p" 'projectile-command-map
"fa" 'helm-projectile-rg
"fA" 'helm-projectile-ag)
(general-nmap "C-p" 'helm-projectile-find-file)Company
(use-package company
:straight t
:config
(global-company-mode)
(setq company-idle-delay 0.125)
(setq company-show-numbers t))
(use-package company-box
:straight t
:hook (company-mode . company-box-mode))
(general-imap "C-SPC" 'company-complete)Git & Magit
(use-package magit
:straight t
:config
(setq magit-blame-styles
'((margin
(margin-format . ("%a %A %s"))
(margin-width . 42)
(margin-face . magit-blame-margin)
(margin-body-face . (magit-blame-dimmed)))
(headings
(heading-format . "%-20a %C %s\n"))
(highlight
(highlight-face . magit-blame-highlight))
(lines
(show-lines . t)
(show-message . t)))
))
(use-package git-gutter
:straight t
:config
(global-git-gutter-mode +1))
(use-package evil-magit
:straight t)
(my-leader-def
"m" 'magit
"M" 'magit-file-dispatch)Misc editing helpers
OFF Better jumplist
;; (use-package better-jumper
;; :straight t
;; :config
;; (better-jumper-mode +1)
;; (setq better-jumper-add-jump-behavior 'replace))
;;
;; (general-nmap
;; "go" 'better-jumper-jump-forward
;; "gp" 'better-jumper-jump-backward)OFF Smart backspace
;; (use-package smart-backspace
;; :straight t)
;; (general-imap [?\C-?] 'smart-backspace)
;; (general-imap [(shift backspace)] 'backward-delete-char)Visual fill column
(use-package visual-fill-column
:straight t
:config
(add-hook 'visual-fill-column-mode-hook
(lambda () (setq visual-fill-column-center-text t))))Electric pair
(electric-pair-mode)Tabs
(setq tab-always-indent nil)
(setq default-tab-width 4)
(setq tab-width 4)
(setq-default evil-indent-convert-tabs nil)
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq-default evil-shift-round nil)Expand region
(use-package expand-region
:straight t)
(general-nmap
"+" 'er/expand-region)Winner mode
(use-package winner-mode
:ensure nil
:config
(winner-mode)
:bind (:map evil-window-map
("u" . winner-undo)
("U" . winner-redo)
))Editorconfig
(use-package editorconfig
:straight t
:config
(editorconfig-mode 1))Avy
(use-package avy
:straight t)
(general-nmap "\\\\w" 'avy-goto-word-0-below)
(general-nmap "\\\\b" 'avy-goto-word-0-above)Snippets
(use-package yasnippet
:straight t
:config
(yas-global-mode 1))
(use-package yasnippet-snippets
:straight t)
(general-imap "M-TAB" 'company-yasnippet)Folding
(add-hook 'prog-mode-hook #'hs-minor-mode)
(general-nmap "TAB" 'evil-toggle-fold)
(general-nmap :keymaps 'hs-minor-mode-map "ze" 'hs-hide-level)Time trackers
WakaTime
(use-package wakatime-mode
:straight t
:config
(global-wakatime-mode))OFF ActivityWatch
;; (use-package request
;; :straight t)
;;
;; (use-package activity-watch-mode
;; :straight t
;; (global-activitywatch-mode))Dired
(use-package dired
:ensure nil
:custom ((dired-listing-switches "-alh --group-directories-first"))
:config
(setq dired-dwim-target t)
(setq wdired-allow-to-change-permissions t)
(setq wdired-create-parent-directories t)
(setq dired-recursive-copies 'always)
(setq dired-recursive-deletes 'always)
(add-hook 'dired-mode-hook
(lambda ()
(setq truncate-lines t)
(visual-line-mode nil)))
(evil-collection-define-key 'normal 'dired-mode-map
"h" 'dired-single-up-directory
"l" 'dired-single-buffer
"h" 'dired-single-up-directory
"l" 'dired-single-buffer
"=" 'dired-narrow
"-" 'dired-create-empty-file
(kbd "<left>") 'dired-single-up-directory
(kbd "<right>") 'dired-single-buffer))
(use-package dired+
:straight t
:init
(setq diredp-hide-details-initially-flag nil))
(use-package dired-single
:straight t)
(use-package all-the-icons-dired
:straight t
:config
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode))
(use-package dired-open
:straight t)
(use-package dired-narrow
:straight t)
(my-leader-def "ad" 'dired)
(general-define-key
:keymaps 'dired-mode-map
[remap dired-find-file] 'dired-single-buffer
[remap dired-mouse-find-file-other-window] 'dired-single-buffer-mouse
[remap dired-up-directory] 'dired-single-up-directory
"M-<return>" 'dired-open-xdg)
(general-define-key
:keymaps 'dired-narrow-map
[escape] 'keyboard-quit)Terminal
(use-package vterm
:straight t
:config
(setq vterm-kill-buffer-on-exit t))
(add-to-list 'display-buffer-alist
`(,"vterm-subterminal.*"
(display-buffer-reuse-window
display-buffer-in-side-window)
(side . bottom)
(reusable-frames . visible)
(window-height . 0.33)))
(defun toggle-vterm-subteminal ()
"Toogle subteminal."
(interactive)
(let
((vterm-window
(seq-find
(lambda (window)
(string-match
"vterm-subterminal.*"
(buffer-name (window-buffer window)))
)
(window-list))))
(if vterm-window
(if (eq (get-buffer-window (current-buffer)) vterm-window)
(kill-buffer (current-buffer))
(select-window vterm-window)
)
(vterm-other-window "vterm-subterminal")
)
)
)
(general-nmap "`" 'toggle-vterm-subteminal)
(general-nmap "~" 'vterm)
(add-hook 'vterm-mode-hook
(lambda ()
(setq-local global-display-line-numbers-mode nil)
(display-line-numbers-mode 0)
))
(general-define-key
:keymaps 'vterm-mode-map
"M-q" 'vterm-send-escape
"C-h" 'evil-window-left
"C-l" 'evil-window-right
"C-k" 'evil-window-up
"C-j" 'evil-window-down
"C-<right>" 'evil-window-right
"C-<left>" 'evil-window-left
"C-<up>" 'evil-window-up
"C-<down>" 'evil-window-down
"M-<left>" 'vterm-send-left
"M-<right>" 'vterm-send-right
"M-<up>" 'vterm-send-up
"M-<down>" 'vterm-send-down)
(general-imap
:keymaps 'vterm-mode-map
"C-r" 'vterm-send-C-r
"C-k" 'vterm-send-C-k
"C-j" 'vterm-send-C-j
"M-l" 'vterm-send-right
"M-h" 'vterm-send-left)Org-mode
Installation
(straight-override-recipe
'(org :type git :host github :repo "emacsmirror/org" :no-build t))
(use-package org
:straight t)Integration with evil
(use-package evil-org
:straight t
:after (org evil-collection)
:config
(add-hook 'org-mode-hook 'evil-org-mode)
(add-hook 'evil-org-mode-hook
(lambda ()
(evil-org-set-key-theme '(navigation insert textobjects additional calendar todo))))
(add-to-list 'evil-emacs-state-modes 'org-agenda-mode)
(require 'evil-org-agenda)
(add-hook 'org-agenda-mode-hook
(lambda ()
(visual-line-mode -1)
(toggle-truncate-lines 1)
(display-line-numbers-mode 0)))
(evil-org-agenda-set-keys))Programming languages
Python
(use-package jupyter
:straight t
:config
;; (add-to-list 'evil-emacs-state-modes 'jupyter-repl-mode)
)
(my-leader-def "ar" 'jupyter-run-repl)TypeScript
;; (use-package ob-typescript
;; :straight t)Setup
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(python . t)
;; (typescript .t)
(jupyter . t)))
(org-babel-jupyter-override-src-block "python")
(use-package ob-async
:straight t
:config
(setq ob-async-no-async-languages-alist '("python" "jupyter-python")))Equations preview
(use-package org-latex-impatient
:straight (
:repo "https://github.com/yangsheng6810/org-latex-impatient.git",
:branch "master")
:hook (org-mode . org-latex-impatient-mode)
:init
(setq org-latex-impatient-tex2svg-bin
"/home/pavel/Programs/miniconda3/lib/node_modules/mathjax-node-cli/bin/tex2svg")
(setq org-latex-impatient-scale 2)
(setq org-latex-impatient-delay 1)
(setq org-latex-impatient-border-color "#ffffff")
)LaTeX stuff
(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.75))
(setq org-highlight-latex-and-related '(native script entities))Export
(use-package htmlize
:straight t)
(defun my/setup-org-latex ()
(setq org-latex-compiler "xelatex")
(add-to-list 'org-latex-classes
'("extarticle"
"\\documentclass[a4paper, 14pt]{extarticle}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
)
)
(with-eval-after-load 'ox-latex
(my/setup-org-latex))Keybindings
(general-define-key
:keymaps 'org-mode-map
"C-c d" 'org-decrypt-entry
"C-c e" 'org-encrypt-entry
"M-p" 'org-latex-preview
)
(general-define-key
:keymaps 'org-agenda-mode-map
"M-]" 'org-agenda-later
"M-[" 'org-agenda-earlier)
(general-imap :keymaps 'org-mode-map "RET" 'evil-org-return)
(general-nmap :keymaps 'org-mode-map "RET" 'org-ctrl-c-ctrl-c)
(my-leader-def
"aa" 'org-agenda
"ao" 'org-switchb)OFF Pairs
(defvar org-electric-pairs '((?/ . ?/)))
(defun my/org-add-electric-pairs ()
(setq-local electric-pair-pairs (append electric-pair-pairs org-electric-pairs))
(setq-local electric-pair-text-pairs electric-pair-pairs))
(add-hook 'org-mode-hook 'my/org-add-electric-pairs)Copy link
(defun my/org-link-copy (&optional arg)
"Extract URL from org-mode link and add it to kill ring."
(interactive "P")
(let* ((link (org-element-lineage (org-element-context) '(link) t))
(type (org-element-property :type link))
(url (org-element-property :path link))
(url (concat type ":" url)))
(kill-new url)
(message (concat "Copied URL: " url))))
(general-nmap :keymaps 'org-mode-map
"C-x C-l" 'my/org-link-copy)UI improvements
(use-package org-superstar
:straight t
:config
(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1)))
)Other settings
(setq org-startup-indented t)
(setq org-return-follows-link t)
(require 'org-crypt)
(org-crypt-use-before-save-magic)
(setq org-tags-exclude-from-inheritance (quote ("crypt")))
(setq org-crypt-key nil)
(add-hook 'org-babel-after-execute-hook 'org-redisplay-inline-images)UI & UX
GUI Settings
;; Disable GUI elements
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
;; Transparency
(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
(add-to-list 'default-frame-alist '(alpha . (90 . 90)))
;; Prettify symbols
(global-prettify-symbols-mode)
;; No start screen
(setq inhibit-startup-screen t)
;; Visual bell
(setq visible-bell 0)
;; y or n instead of yes or no
(defalias 'yes-or-no-p 'y-or-n-p)
;; Hide mouse cursor while typing
(setq make-pointer-invisible t)
;; Font
(set-frame-font "JetBrainsMono Nerd Font 10" nil t)
;; (load-user-file "jetbrains-ligatures.el")
;; Line numbers
(global-display-line-numbers-mode 1)
(line-number-mode nil)
(setq display-line-numbers-type 'visual)
(column-number-mode)
;; Parenteses
(show-paren-mode 1)
;; Wrap
(setq word-wrap 1)
(global-visual-line-mode t)
;; Hightlight line
(global-hl-line-mode 1)Tab bar
(general-define-key
:keymaps 'override
:states '(normal emacs)
"gt" 'tab-bar-switch-to-next-tab
"gT" 'tab-bar-switch-to-prev-tab
"gn" 'tab-bar-new-tab
)
(setq tab-bar-show 1)
(setq tab-bar-tab-hints t)
(setq tab-bar-tab-name-function 'tab-bar-tab-name-current-with-count)
;; Tabs
(general-nmap "gn" 'tab-new)
(general-nmap "gN" 'tab-close)Modeline
(use-package doom-modeline
:straight t
:config
(doom-modeline-mode 1)
(setq doom-modeline-minor-modes nil)
(setq doom-modeline-buffer-state-icon nil))Emoji
(use-package emojify
:straight t
:hook (after-init . global-emojify-mode))Icons
(use-package all-the-icons
:straight t)Dashboard
;; (use-package dashboard
;; :straight t
;; :config
;; (dashboard-setup-startup-hook))Theme & global stuff
;; (use-package solaire-mode
;; :straight t
;; :config
;; (solaire-global-mode +1))
(use-package auto-dim-other-buffers
:straight t
:config
(set-face-attribute 'auto-dim-other-buffers-face nil
:background "#212533")
(auto-dim-other-buffers-mode t))
(use-package doom-themes
:straight t
:config
(setq doom-themes-enable-bold t
doom-themes-enable-italic t)
(load-theme 'doom-palenight t)
(doom-themes-visual-bell-config)
(setq doom-themes-treemacs-theme "doom-colors")
(doom-themes-treemacs-config))Text highlight improvements
(use-package highlight-indent-guides
:straight t
:hook (
(prog-mode . highlight-indent-guides-mode)
(vue-mode . highlight-indent-guides-mode)
(LaTeX-mode . highlight-indent-guides-mode))
:config
(setq highlight-indent-guides-method 'bitmap)
(setq highlight-indent-guides-bitmap-function 'highlight-indent-guides--bitmap-line))
(use-package rainbow-delimiters
:straight t
:config
(add-hook 'org-mode-hook #'rainbow-delimiters-mode)
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))Zoom
(defun zoom-in ()
"Increase font size by 10 points"
(interactive)
(set-face-attribute 'default nil
:height
(+ (face-attribute 'default :height)
10)))
(defun zoom-out ()
"Decrease font size by 10 points"
(interactive)
(set-face-attribute 'default nil
:height
(- (face-attribute 'default :height)
10)))
;; change font size, interactively
(global-set-key (kbd "C-+") 'zoom-in)
(global-set-key (kbd "C-=") 'zoom-out)Transparency
;; Transparency
;; (defun toggle-transparency ()
;; (interactive)
;; (let ((alpha (frame-parameter nil 'alpha)))
;; (set-frame-parameter
;; nil 'alpha
;; (if (eql (cond ((numberp alpha) alpha)
;; ((numberp (cdr alpha)) (cdr alpha))
;; ((numberp (cadr alpha)) (cadr alpha)))
;; 100)
;; '(95 . 95) '(100 . 100)))))
;; (my-leader-def "dt" 'toggle-transparency)Scrolling
(setq scroll-conservatively scroll-margin)
(setq scroll-step 1)
(setq scroll-preserve-screen-position t)
(setq scroll-error-top-bottom t)
(setq mouse-wheel-progressive-speed nil)
(setq mouse-wheel-inhibit-click-time nil)Clipboard
(setq select-enable-clipboard t)
(setq mouse-yank-at-point t)Backups
(setq backup-inhibited t)
(setq auto-save-default nil)Programming
LSP
lsp-mode
(use-package lsp-mode
:straight t
:hook (
(typescript-mode . lsp)
(vue-mode . lsp)
(go-mode . lsp)
(svelte-mode . lsp)
(python-mode . lsp)
(json-mode . lsp)
(haskell-mode . lsp)
(haskell-literate-mode . lsp))
:commands lsp
:config
(setq lsp-idle-delay 1)
(setq lsp-eslint-server-command '("node" "/home/pavel/.emacs.d/.cache/lsp/eslint/unzipped/extension/server/out/eslintServer.js" "--stdio"))
(setq lsp-eslint-run "onSave")
(setq lsp-signature-render-documentation nil)
(add-to-list 'lsp-language-id-configuration '(svelte-mode . "svelte"))
)
(use-package lsp-ui
:straight t
:commands lsp-ui-mode
:config
(setq lsp-ui-doc-delay 2)
(setq lsp-ui-sideline-show-hover nil))Integrations
(use-package helm-lsp
:straight t
:commands helm-lsp-workspace-symbol)
;; (use-package origami
;; :straight t
;; :hook (prog-mode . origami-mode))
;; (use-package lsp-origami
;; :straight t
;; :config
;; (add-hook 'lsp-after-open-hook #'lsp-origami-try-enable))
(use-package lsp-treemacs
:straight t
:commands lsp-treemacs-errors-list)Keybindings
(my-leader-def
"ld" 'lsp-ui-peek-find-definitions
"lr" 'lsp-rename
"lu" 'lsp-ui-peek-find-references
"ls" 'lsp-ui-find-workspace-symbol
"la" 'helm-lsp-code-actions
"le" 'list-flycheck-errors)Flycheck
(use-package flycheck
:straight t
:config
(global-flycheck-mode)
(setq flycheck-check-syntax-automatically '(save idle-buffer-switch mode-enabled))
(add-hook 'evil-insert-state-exit-hook
'(lambda ()
(if flycheck-checker
(flycheck-buffer))
))
(advice-add 'flycheck-eslint-config-exists-p :override (lambda() t))
(add-to-list 'display-buffer-alist
`(,(rx bos "*Flycheck errors*" eos)
(display-buffer-reuse-window
display-buffer-in-side-window)
(side . bottom)
(reusable-frames . visible)
(window-height . 0.33)))
)DAP
(use-package dap-mode
:straight t
:init
(setq lsp-enable-dap-auto-configure nil)
:config
(setq dap-ui-variable-length 100)
(require 'dap-node)
(dap-node-setup)
(require 'dap-chrome)
(dap-chrome-setup)
(require 'dap-python)
(dap-mode 1)
(dap-ui-mode 1)
(dap-tooltip-mode 1)
(tooltip-mode 1)
(dap-ui-controls-mode 1))
(my-leader-def
:infix "d"
"d" 'dap-debug
"b" 'dap-breakpoint-toggle
"c" 'dap-breakpoint-condition
"wl" 'dap-ui-locals
"wb" 'dap-ui-breakpoints
"wr" 'dap-ui-repl
"ws" 'dap-ui-sessions
"we" 'dap-ui-expressions
)
(my-leader-def
:infix "d"
:keymaps 'dap-mode-map
"h" 'dap-hydra
)
(defun my/dap-yank-value-at-point (node)
(interactive (list (treemacs-node-at-point)))
(kill-new (message (plist-get (button-get node :item) :value))))OFF Code Compass
Dependencies
(use-package async
:straight t)
(use-package dash
:straight t)
(use-package f
:straight t)
(use-package s
:straight t)
(use-package simple-httpd
:straight t)Plugin
(use-package code-compass
:straight (
:repo "https://github.com/ag91/code-compass"
:files ("code-compass.el")
:branch "main"
))Languages & Formats
TypeScript
(use-package typescript-mode
:straight t)Override flycheck checker with eslint
(defun set-flycheck-eslint()
"Override flycheck checker with eslint."
(setq-local lsp-diagnostic-package :none)
(setq-local flycheck-checker 'javascript-eslint))
;; (add-hook 'typescript-mode-hook
;; #'set-flycheck-eslint)Vue.js
(use-package vue-mode
:straight t)
;; (add-hook 'vue-mode-hook
;; #'set-flycheck-eslint)
(add-hook 'vue-mode-hook #'hs-minor-mode)
(with-eval-after-load 'editorconfig
(add-to-list 'editorconfig-indentation-alist
'(vue-mode css-indent-offset
js-indent-level
sgml-basic-offset
ssass-tab-width
typescript-indent-level
)))
(add-hook 'vue-mode-hook (lambda () (set-face-background 'mmm-default-submode-face nil)))Haskell
(use-package haskell-mode
:straight t)
(use-package lsp-haskell
:straight t)Svelte
(use-package svelte-mode
:straight t)
(add-hook 'svelte-mode-hook
'set-flycheck-eslint)PHP
(use-package php-mode
:straight t)JSON
(use-package json-mode
:straight t)YAML
(use-package yaml-mode
:straight t
:config
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))Go
(use-package go-mode
:straight t)LaTeX
AucTeX
(use-package tex
:straight auctex
:defer t
:config
(setq-default TeX-auto-save t)
(setq-default TeX-parse-self t)
(TeX-PDF-mode)
(setq-default TeX-engine 'xetex)
(setq-default TeX-command-extra-options "-shell-escape")
(setq-default TeX-source-correlate-method 'synctex)
(TeX-source-correlate-mode)
(setq-default TeX-source-correlate-start-server t)
(setq-default LaTeX-math-menu-unicode t)
(setq-default font-latex-fontify-sectioning 1.3)
(setq-default preview-scale-function 1.4)
(assoc-delete-all "--" tex--prettify-symbols-alist)
(assoc-delete-all "---" tex--prettify-symbols-alist)
(add-hook 'LaTeX-mode-hook
(lambda ()
(TeX-fold-mode 1)
(outline-minor-mode)))
(add-to-list 'TeX-view-program-selection
'(output-pdf "Zathura")))
(add-hook 'LaTeX-mode-hook
#'(lambda ()
(lsp)
(setq-local lsp-diagnostic-package :none)
(setq-local flycheck-checker 'tex-chktex)))
(add-hook 'LaTeX-mode-hook #'rainbow-delimiters-mode)
(general-nmap
:keymaps '(LaTeX-mode-map latex-mode-map)
"RET" 'TeX-command-run-all
"C-c t" 'orgtbl-mode)Import *.sty
(defun my/import-sty ()
(interactive)
(insert
(apply #'concat
(cl-mapcar
(lambda (file) (concat "\\usepackage{" (file-name-sans-extension (file-relative-name file default-directory)) "}\n"))
(sort
(seq-filter
(lambda (file) (if (string-match ".*\.sty$" file) 1 nil))
(directory-files
(seq-some
(lambda (dir)
(if (and
(f-directory-p dir)
(seq-some
(lambda (file) (string-match ".*\.sty$" file))
(directory-files dir))
) dir nil))
(list "./styles" "../styles/" "." "..")) :full)
)
(lambda (f1 f2)
(pcase f1
("gostBibTex.sty" 2)
("russianlocale.sty" 1)
(_ nil)))
))))
)Markdown
(use-package markdown-mode
:straight t
:config
(setq markdown-command
(concat
"pandoc"
" --from=markdown --to=html"
" --standalone --mathjax --highlight-style=pygments"
" --css=pandoc.css"
" --quiet"
))
(setq markdown-live-preview-delete-export 'delete-on-export)
(setq markdown-asymmetric-header t)
(setq markdown-open-command "/home/pavel/bin/scripts/vmd-sep")
)
;; (use-package livedown
;; :straight (:host github :repo "shime/emacs-livedown")
;; :commands livedown-preview
;; :config
;; (setq livedown-browser "qutebrowser"))
(general-define-key
:keymaps 'markdown-mode-map
"M-<left>" 'markdown-promote
"M-<right>" 'markdown-demote)PlantUML
(use-package plantuml-mode
:straight t
:config
(setq plantuml-executable-path "/usr/bin/plantuml")
(setq plantuml-default-exec-mode 'executable)
(add-to-list 'auto-mode-alist '("\\.plantuml\\'" . plantuml-mode))
(add-to-list 'auto-mode-alist '("\\.uml\\'" . plantuml-mode))
)
(general-nmap
:keymaps 'plantuml-mode-map
"RET" 'plantuml-preview)fish
(use-package fish-mode
:straight t)CLIPS
(use-package clips-mode
:straight t)Docker
(use-package dockerfile-mode
:straight t)Image view
(general-define-key
:keymaps 'image-mode-map
"q" 'kill-this-buffer)Natural languages
(use-package langtool
:straight t
:config
(setq langtool-language-tool-server-jar "/home/pavel/Programs/LanguageTool-5.1/languagetool-server.jar")
(setq langtool-mother-tongue "ru"))
(my-leader-def
:infix "S"
"c" 'langtool-check
"s" 'langtool-server-stop
"d" 'langtool-check-done
"n" 'langtool-goto-next-error
"p" 'langtool-goto-previous-error
)TRAMP
Performance
(setq remote-file-name-inhibit-cache nil)
(setq tramp-default-method "ssh")
(setq vc-ignore-dir-regexp
(format "%s\\|%s"
vc-ignore-dir-regexp
tramp-file-name-regexp))
(setq tramp-verbose 6)Different apps
EWW
(my-leader-def "aw" 'eww)
(general-define-key
:keymaps 'eww-mode-map
"+" 'text-scale-increase
"-" 'text-scale-decrease)Snow
(use-package snow
:straight (:repo "https://github.com/alphapapa/snow.el"))OFF Buku
(use-package ebuku
:straight t)
(my-leader-def "ae" 'ebuku)OFF mpd.el
(use-package mpdel
:straight t
:init
(setq mpdel-prefix-key (kbd "SPC am"))
:config
(mpdel-mode))