add emacs config
This commit is contained in:
parent
d23f37c6c4
commit
93052e2d02
|
|
@ -0,0 +1,282 @@
|
||||||
|
;;------------------------------------------------------------------------------
|
||||||
|
;; ᚳᚻᚪᚱᛚᛖᛋ ᛣᚱᚪᛚᚪᛈᛈ ᛖᛗᚪᚳᛋ ᛋᛖᛏᛏᛁᛝᛋ
|
||||||
|
;; * Зонгор * ᛣᚩᛝᚩᚱ *
|
||||||
|
;;------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
(require 'package)
|
||||||
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||||
|
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
|
||||||
|
(package-initialize)
|
||||||
|
|
||||||
|
(when (not package-archive-contents)
|
||||||
|
(package-refresh-contents))
|
||||||
|
|
||||||
|
(unless (package-installed-p 'use-package)
|
||||||
|
(package-install 'use-package))
|
||||||
|
|
||||||
|
;; install packages automatically if not already present on your
|
||||||
|
;; system to be global for all packages
|
||||||
|
(require 'use-package-ensure)
|
||||||
|
(setq use-package-always-ensure t)
|
||||||
|
|
||||||
|
(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))
|
||||||
|
|
||||||
|
(straight-use-package 'use-package)
|
||||||
|
(setq straight-use-package-by-default t)
|
||||||
|
|
||||||
|
(defun move-to-previous-window ()
|
||||||
|
"Move to previous window."
|
||||||
|
(interactive)
|
||||||
|
(if (= (count-windows) 1)
|
||||||
|
(other-frame 1)
|
||||||
|
(select-window (previous-window))))
|
||||||
|
|
||||||
|
(defun move-to-next-window ()
|
||||||
|
"Move to next window."
|
||||||
|
(interactive)
|
||||||
|
(if (= (count-windows) 1)
|
||||||
|
(other-frame 1)
|
||||||
|
(select-window (next-window))))
|
||||||
|
|
||||||
|
(defun comment-eclipse ()
|
||||||
|
(interactive)
|
||||||
|
(let ((start (line-beginning-position))
|
||||||
|
(end (line-end-position)))
|
||||||
|
(when (or (not transient-mark-mode) (region-active-p))
|
||||||
|
(setq start (save-excursion
|
||||||
|
(goto-char (region-beginning))
|
||||||
|
(beginning-of-line)
|
||||||
|
(point))
|
||||||
|
end (save-excursion
|
||||||
|
(goto-char (region-end))
|
||||||
|
(end-of-line)
|
||||||
|
(point))))
|
||||||
|
(comment-or-uncomment-region start end)))
|
||||||
|
|
||||||
|
(use-package evil
|
||||||
|
:ensure t
|
||||||
|
:init
|
||||||
|
(setq evil-want-keybinding nil)
|
||||||
|
(setq evil-want-integration t) ;; This is optional since it's already set to t by default.
|
||||||
|
:config
|
||||||
|
(evil-mode 1)
|
||||||
|
|
||||||
|
;; :q should kill the current buffer rather than quitting emacs entirely
|
||||||
|
(evil-ex-define-cmd "q" 'kill-this-buffer)
|
||||||
|
;; Need to type out :quit to close emacs
|
||||||
|
(evil-ex-define-cmd "quit" 'evil-quit)
|
||||||
|
(define-key evil-normal-state-map (kbd "C-\\") 'comment-eclipse)
|
||||||
|
(define-key evil-normal-state-map (kbd "q") 'undo-tree-redo)
|
||||||
|
(define-key evil-normal-state-map (kbd "w") 'evil-backward-word-begin)
|
||||||
|
(define-key evil-normal-state-map (kbd "H") 'evil-first-non-blank)
|
||||||
|
(define-key evil-normal-state-map (kbd "L") 'evil-end-of-line)
|
||||||
|
(define-key evil-normal-state-map (kbd "K") 'backward-paragraph)
|
||||||
|
(define-key evil-normal-state-map (kbd "J") 'forward-paragraph)
|
||||||
|
(define-key evil-normal-state-map (kbd "C-x l") 'list-buffers)
|
||||||
|
(define-key evil-normal-state-map (kbd "M-/") 'dabbrev-expand)
|
||||||
|
(define-key evil-normal-state-map (kbd "C-,") 'move-to-previous-window)
|
||||||
|
(define-key evil-normal-state-map (kbd "C-.") 'move-to-next-window)
|
||||||
|
(define-key evil-normal-state-map (kbd "C-M-\\") 'format-all-buffer)
|
||||||
|
|
||||||
|
;; (evil-define-key 'normal Buffer-menu-mode-map (kbd "RET") )
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "TAB") 'neotree-enter)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "SPC") 'neotree-quick-look)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "g") 'neotree-refresh)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "n") 'neotree-next-line)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "p") 'neotree-previous-line)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "A") 'neotree-stretch-toggle)
|
||||||
|
(evil-define-key 'normal neotree-mode-map (kbd "H") 'neotree-hidden-file-toggle))
|
||||||
|
|
||||||
|
(use-package evil-org
|
||||||
|
:ensure t
|
||||||
|
:after org evil
|
||||||
|
:config
|
||||||
|
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||||
|
(add-hook 'evil-org-mode-hook
|
||||||
|
(lambda ()
|
||||||
|
(evil-org-set-key-theme)))
|
||||||
|
(require 'evil-org-agenda)
|
||||||
|
(evil-org-agenda-set-keys))
|
||||||
|
|
||||||
|
(use-package doom-themes
|
||||||
|
:ensure t
|
||||||
|
:config
|
||||||
|
;; Global settings (defaults)
|
||||||
|
(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
|
||||||
|
doom-themes-enable-italic t) ; if nil, italics is universally disabled
|
||||||
|
(load-theme 'doom-monokai-classic t)
|
||||||
|
;; Enable custom neotree theme (all-the-icons must be installed!)
|
||||||
|
(doom-themes-neotree-config)
|
||||||
|
;; Corrects (and improves) org-mode's native fontification.
|
||||||
|
(doom-themes-org-config))
|
||||||
|
|
||||||
|
(use-package all-the-icons
|
||||||
|
:if (display-graphic-p))
|
||||||
|
(use-package neotree
|
||||||
|
:config
|
||||||
|
(global-set-key [f8] 'neotree-toggle))
|
||||||
|
|
||||||
|
(use-package undo-tree
|
||||||
|
:config (global-undo-tree-mode 1)
|
||||||
|
:diminish undo-tree-mode)
|
||||||
|
|
||||||
|
|
||||||
|
(use-package eaf
|
||||||
|
:straight (eaf
|
||||||
|
:type git
|
||||||
|
:host github
|
||||||
|
:repo "emacs-eaf/emacs-application-framework"
|
||||||
|
:files ("*.el" "*.py" "core" "app" "*.json")
|
||||||
|
:includes (eaf-browser eaf-terminal) ; Straight won't try to search for these packages when we make further use-package invocations for them
|
||||||
|
:pre-build (("python3" "install-eaf.py" "--install" "browser" "terminal" "--ignore-sys-deps"))
|
||||||
|
)
|
||||||
|
:init (evil-set-initial-state 'eaf-mode 'emacs)) ; Evil mode doesn't work well with eaf keybindings.
|
||||||
|
|
||||||
|
(use-package eaf-browser
|
||||||
|
:custom
|
||||||
|
(eaf-browser-continue-where-left-off t)
|
||||||
|
(eaf-browser-enable-adblocker t)
|
||||||
|
(eaf-browser-dark-mode "force"))
|
||||||
|
(use-package eaf-terminal)
|
||||||
|
|
||||||
|
(use-package format-all
|
||||||
|
:hook
|
||||||
|
(
|
||||||
|
(format-all-mode-hook . format-all-ensure-formatter)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
(use-package dumb-jump)
|
||||||
|
|
||||||
|
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
|
||||||
|
|
||||||
|
(use-package elfeed
|
||||||
|
:config
|
||||||
|
(global-set-key (kbd "C-x w") 'elfeed))
|
||||||
|
|
||||||
|
(use-package restclient)
|
||||||
|
(use-package markdown-mode
|
||||||
|
:ensure t
|
||||||
|
:mode ("README\\.md\\'" . gfm-mode)
|
||||||
|
:init (setq markdown-command "multimarkdown"))
|
||||||
|
|
||||||
|
(use-package docker
|
||||||
|
:ensure t
|
||||||
|
:bind ("C-c d" . docker))
|
||||||
|
(use-package docker-compose-mode)
|
||||||
|
|
||||||
|
(use-package go-mode)
|
||||||
|
(use-package rust-mode)
|
||||||
|
(use-package cargo)
|
||||||
|
|
||||||
|
(use-package lsp-mode
|
||||||
|
:commands (lsp lsp-deferred)
|
||||||
|
:init
|
||||||
|
(setq lsp-keymap-prefix "C-c l")
|
||||||
|
:hook
|
||||||
|
((go-mode) . lsp)
|
||||||
|
((rust-mode) . lsp))
|
||||||
|
|
||||||
|
(use-package lsp-ui
|
||||||
|
:hook (lsp-mode . lsp-ui-mode)
|
||||||
|
:config
|
||||||
|
(setq lsp-ui-doc-enable t))
|
||||||
|
|
||||||
|
(use-package ccls
|
||||||
|
:ensure t
|
||||||
|
:init (setq ccls-executable "/usr/bin/ccls"))
|
||||||
|
|
||||||
|
(use-package dash)
|
||||||
|
(use-package column-enforce-mode)
|
||||||
|
(use-package desktop)
|
||||||
|
(use-package git)
|
||||||
|
(use-package ripgrep)
|
||||||
|
(use-package projectile)
|
||||||
|
(use-package ivy)
|
||||||
|
|
||||||
|
(use-package git-gutter
|
||||||
|
:ensure t
|
||||||
|
:init (global-git-gutter-mode t))
|
||||||
|
|
||||||
|
(let ((alist '((33 . ".\\(?:\\(?:\\(?:!\\.\\|!\\)\\|\\(?:==\\|=\\)\\)\\)") ;; !
|
||||||
|
(35 . ".\\(?:\\(?:[!(:={]\\|\\(?:#\\(?:##\\|#\\)\\|#\\)\\|\\?\\|\\[\\|\\(?:_(\\|_\\)\\)\\)") ;; #
|
||||||
|
(36 . ".\\(?:>\\)") ;; $
|
||||||
|
(37 . ".\\(?:%\\)") ;; %
|
||||||
|
(38 . ".\\(?:&\\)") ;; &
|
||||||
|
(42 . ".\\(?:\\(?:[/>]\\|\\(?:\\*\\*\\|\\*\\)\\)\\)") ;; *
|
||||||
|
(43 . ".\\(?:\\(?:\\(?:\\+\\+\\|\\+\\)\\|>\\)\\)") ;; +
|
||||||
|
(45 . ".\\(?:\\(?:[|~]\\|\\(?:-\\(?:-\\|>\\)\\|-\\)\\|\\(?:<<\\|<\\)\\|\\(?:>>\\|>\\)\\)\\)") ;; -
|
||||||
|
(46 . ".\\(?:\\(?:-\\|\\(?:\\.\\(?:\\.\\|<\\)\\|\\.\\)\\|=\\|\\?\\)\\)") ;; .
|
||||||
|
(47 . ".\\(?:\\(?:[>\\]\\|\\*\\|\\(?://\\|/\\)\\|\\(?:==\\|=\\)\\)\\)") ;; /
|
||||||
|
(48 . ".\\(?:x[0-9A-Fa-f]\\)") ;; 0
|
||||||
|
(58 . ".\\(?:\\(?:[<->]\\|\\(?::[:=]\\|:\\)\\)\\)") ;; :
|
||||||
|
(59 . ".\\(?:;\\)") ;; ;
|
||||||
|
(60 . ".\\(?:\\(?:[:>]\\|!--\\|\\(?:\\$>\\|\\$\\)\\|\\(?:\\*>\\|\\*\\)\\|\\(?:\\+>\\|\\+\\)\\|\\(?:-\\(?:[<>|]\\|-\\)\\|-\\)\\|\\(?:/>\\|/\\)\\|\\(?:<\\(?:[<=]\\|-\\)\\|<\\)\\|\\(?:=\\(?:[<>|]\\|\\(?:=>\\|=\\)\\)\\|=\\)\\|\\(?:|\\(?:>\\|\\(?:||\\||\\)\\)\\||\\)\\|\\(?:~[>~]\\|~\\)\\)\\)") ;; <
|
||||||
|
(61 . ".\\(?:\\(?:!=\\|/=\\|:=\\|<<\\|\\(?:=[=>]\\|=\\)\\|\\(?:>>\\|>\\)\\)\\)") ;; =
|
||||||
|
(62 . ".\\(?:\\(?:\\(?:->\\|-\\)\\|:\\|\\(?:=>\\|=\\)\\|\\(?:>\\(?:[=>]\\|-\\)\\|>\\)\\)\\)") ;; >
|
||||||
|
(63 . ".\\(?:\\(?:[:=]\\|\\.\\|\\?\\)\\)") ;; ?
|
||||||
|
(70 . ".\\(?:l\\)") ;; F
|
||||||
|
(84 . ".\\(?:l\\)") ;; T
|
||||||
|
(91 . ".\\(?:\\(?::]\\||\\)\\)") ;; [
|
||||||
|
(92 . ".\\(?:/\\)") ;; \
|
||||||
|
(93 . ".\\(?:#\\)") ;; ]
|
||||||
|
(94 . ".\\(?:=\\)") ;; ^
|
||||||
|
(95 . ".\\(?:\\(?:_\\||_\\)\\)") ;; _
|
||||||
|
(102 . ".\\(?:l\\)") ;; f
|
||||||
|
(119 . ".\\(?:ww\\)") ;; w
|
||||||
|
(123 . ".\\(?:|\\)") ;; {
|
||||||
|
(124 . ".\\(?:\\(?:[>}]\\|\\(?:->\\|-\\)\\|\\(?:=>\\|=\\)\\|]\\|\\(?:|\\(?:[=>]\\|-\\||>\\)\\||\\)\\)\\)") ;; |
|
||||||
|
(126 . ".\\(?:\\(?:[=>@]\\|-\\|\\(?:~>\\|~\\)\\)\\)"))))
|
||||||
|
(dolist (char-regexp alist)
|
||||||
|
(set-char-table-range composition-function-table (car char-regexp)
|
||||||
|
`([,(cdr char-regexp) 0 font-shape-gstring]))))
|
||||||
|
|
||||||
|
(set-frame-font "Fira Code 11")
|
||||||
|
|
||||||
|
;; Auto-insert braces. Has some counter-intuitive behaviour, unfortunately.
|
||||||
|
(electric-pair-mode 1)
|
||||||
|
(setf electric-pair-skip-self nil)
|
||||||
|
|
||||||
|
(global-set-key [f11] 'toggle-frame-fullscreen)
|
||||||
|
(global-set-key (kbd "C-s") 'ripgrep-regexp)
|
||||||
|
(global-set-key (kbd "C-,") 'move-to-previous-window)
|
||||||
|
(global-set-key (kbd "C-.") 'move-to-next-window)
|
||||||
|
(global-set-key (kbd "M-i") 'xref-find-definitions)
|
||||||
|
(global-set-key (kbd "C-M-i") 'xref-pop-marker-stack)
|
||||||
|
|
||||||
|
(global-column-enforce-mode)
|
||||||
|
(global-linum-mode)
|
||||||
|
|
||||||
|
|
||||||
|
(scroll-bar-mode -1)
|
||||||
|
(tool-bar-mode -1)
|
||||||
|
(menu-bar-mode -1)
|
||||||
|
(show-paren-mode 1)
|
||||||
|
(blink-cursor-mode 0)
|
||||||
|
(set-cursor-color "#ffffff")
|
||||||
|
|
||||||
|
(custom-set-variables
|
||||||
|
;; custom-set-variables was added by Custom.
|
||||||
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
|
;; Your init file should contain only one such instance.
|
||||||
|
;; If there is more than one, they won't work right.
|
||||||
|
'(inhibit-startup-screen t))
|
||||||
|
(custom-set-faces
|
||||||
|
;; custom-set-faces was added by Custom.
|
||||||
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
|
;; Your init file should contain only one such instance.
|
||||||
|
;; If there is more than one, they won't work right.
|
||||||
|
)
|
||||||
Loading…
Reference in New Issue