move to babel emacs configuration
This commit is contained in:
1
home/natto/config/emacs/README.org
Symbolic link
1
home/natto/config/emacs/README.org
Symbolic link
@@ -0,0 +1 @@
|
||||
config.org
|
||||
467
home/natto/config/emacs/config.org
Normal file
467
home/natto/config/emacs/config.org
Normal file
@@ -0,0 +1,467 @@
|
||||
#+TITLE: My Emacs Configuration
|
||||
#+AUTHOR: Amneesh Singh
|
||||
#+PROPERTY: header-args:emacs-lisp :tangle yes
|
||||
|
||||
* Color Variables
|
||||
idk random variables to match my color theme
|
||||
#+begin_src emacs-lisp
|
||||
; -*- lexical-binding: t; -*-
|
||||
(setq
|
||||
c-bg "#1d1f21"
|
||||
c-fg "#c5c8c6"
|
||||
c-red "#912226"
|
||||
c-green "#778900"
|
||||
c-yellow "#ae7b00"
|
||||
c-blue "#1d2594"
|
||||
c-magenta "#682a9b"
|
||||
c-cyan "#2b6651"
|
||||
c-white "#929593"
|
||||
c-black "#969896"
|
||||
c-red-2 "#cc6666"
|
||||
c-green-2 "#b5bd68"
|
||||
c-yellow-2 "#f0c674"
|
||||
c-blue-2 "#81a2be"
|
||||
c-magenta-2 "#b294bb"
|
||||
c-cyan-2 "#8abeb7"
|
||||
c-white-2 "#ecebec")
|
||||
#+end_src
|
||||
|
||||
|
||||
* Settings
|
||||
** Setting the default face
|
||||
#+begin_src emacs-lisp
|
||||
(set-face-attribute 'default nil :font "Monoid" :height 120)
|
||||
#+end_src
|
||||
|
||||
** Some mode settings based on personal preferences
|
||||
#+begin_src emacs-lisp
|
||||
(global-hl-line-mode 1)
|
||||
(scroll-bar-mode 0)
|
||||
(tool-bar-mode 0)
|
||||
(menu-bar-mode 0)
|
||||
(fringe-mode 0)
|
||||
(cua-mode 1)
|
||||
(global-display-line-numbers-mode 1)
|
||||
#+end_src
|
||||
|
||||
** Setting some variables
|
||||
#+begin_src emacs-lisp
|
||||
(setq initial-major-mode 'emacs-lisp-mode
|
||||
frame-resize-pixelwise t
|
||||
auto-window-vscroll nil
|
||||
scroll-step 1
|
||||
display-line-numbers-type 'relative
|
||||
confirm-kill-processes nil
|
||||
inhibit-startup-screen t)
|
||||
#+end_src
|
||||
|
||||
** Emacs startup hook
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda () (delete-other-windows)) t)
|
||||
#+end_src
|
||||
|
||||
|
||||
* Packages
|
||||
|
||||
** Add Melpa to package archives
|
||||
#+begin_src emacs-lisp
|
||||
(require 'package)
|
||||
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
|
||||
(package-initialize)
|
||||
(require 'use-package)
|
||||
#+end_src
|
||||
|
||||
|
||||
** Visual packages
|
||||
*** Add solaire mode
|
||||
#+begin_src emacs-lisp
|
||||
(use-package solaire-mode
|
||||
:config
|
||||
(solaire-mode))
|
||||
#+end_src
|
||||
|
||||
*** Set theme
|
||||
#+begin_src emacs-lisp
|
||||
(use-package doom-themes
|
||||
:config
|
||||
(setq doom-themes-enable-bold t
|
||||
doom-themes-enable-italic t
|
||||
doom-themes-treemacs-theme "doom-colors")
|
||||
(load-theme 'doom-tomorrow-night t)
|
||||
(doom-themes-visual-bell-config)
|
||||
(doom-themes-treemacs-config)
|
||||
(doom-themes-org-config))
|
||||
#+end_src
|
||||
|
||||
|
||||
** Configure ivy
|
||||
Remap ivy keys to Colemak-DH
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ivy
|
||||
:config
|
||||
(define-key ivy-minibuffer-map (kbd "C-n") 'ivy-next-line)
|
||||
(define-key ivy-minibuffer-map (kbd "C-e") 'ivy-previous-line)
|
||||
(define-key ivy-minibuffer-map (kbd "C-i") 'ivy-done)
|
||||
(ivy-mode 1))
|
||||
#+end_src
|
||||
|
||||
** Evil
|
||||
*** Configure evil mode
|
||||
#+begin_src emacs-lisp
|
||||
(use-package evil
|
||||
:config
|
||||
(evil-set-initial-state 'vterm-mode 'insert)
|
||||
(evil-set-undo-system 'undo-tree)
|
||||
(setq evil-shift-width 2)
|
||||
(evil-mode 1))
|
||||
#+end_src
|
||||
|
||||
*** Configure undo tree
|
||||
To undo and redo easily like vi
|
||||
#+begin_src emacs-lisp
|
||||
(use-package undo-tree
|
||||
:config
|
||||
(global-undo-tree-mode 1))
|
||||
#+end_src
|
||||
|
||||
*** Configure evil-colemak-basics
|
||||
To get colemak-dh bindings in evil mode
|
||||
#+begin_src emacs-lisp
|
||||
(use-package evil-colemak-basics
|
||||
:init
|
||||
(setq evil-colemak-basics-layout-mod 'mod-dh)
|
||||
:config
|
||||
(global-evil-colemak-basics-mode 1))
|
||||
#+end_src
|
||||
|
||||
** Treemacs
|
||||
*** Configure treemacs
|
||||
#+begin_src emacs-lisp
|
||||
(use-package treemacs
|
||||
:config
|
||||
(treemacs-filewatch-mode 1)
|
||||
(treemacs-display-current-project-exclusively)
|
||||
(treemacs-git-mode 'deferred))
|
||||
#+end_src
|
||||
|
||||
** Configure treemacs-evil
|
||||
Configure treemacs-evil to get colemak-dh bindings
|
||||
#+begin_src emacs-lisp
|
||||
(use-package treemacs-evil :config
|
||||
(define-key evil-treemacs-state-map (kbd "n") #'treemacs-next-line)
|
||||
(define-key evil-treemacs-state-map (kbd "e") #'treemacs-previous-line)
|
||||
(define-key evil-treemacs-state-map (kbd "M-n") #'treemacs-next-neighbour)
|
||||
(define-key evil-treemacs-state-map (kbd "M-e") #'treemacs-previous-neighbour)
|
||||
(define-key evil-treemacs-state-map (kbd "M-N") #'treemacs-next-line-other-window)
|
||||
(define-key evil-treemacs-state-map (kbd "M-E") #'treemacs-previous-line-other-window)
|
||||
; (define-key evil-treemacs-state-map (kbd "M") #'treemacs-collapse-parent-node)
|
||||
(evil-define-key 'treemacs treemacs-mode-map (kbd "m") #'treemacs-COLLAPSE-action)
|
||||
(evil-define-key 'treemacs treemacs-mode-map (kbd "i") #'treemacs-RET-action)
|
||||
)
|
||||
#+end_src
|
||||
|
||||
** LSP
|
||||
*** Configure lsp-mode
|
||||
#+begin_src emacs-lisp
|
||||
(use-package lsp-mode
|
||||
:defer 0
|
||||
:init
|
||||
(setq )
|
||||
:config
|
||||
(lsp-mode 1))
|
||||
#+end_src
|
||||
|
||||
*** Configure lsp-treemacs
|
||||
#+begin_src emacs-lisp
|
||||
(use-package lsp-treemacs
|
||||
:defer 0
|
||||
:config
|
||||
(lsp-treemacs-sync-mode 1))
|
||||
#+end_src
|
||||
|
||||
*** Configure lsp-ui
|
||||
#+begin_src emacs-lisp
|
||||
(use-package lsp-ui
|
||||
:defer 0
|
||||
:init
|
||||
(setq lsp-ui-doc-show-with-cursor t)
|
||||
:config
|
||||
(lsp-ui-peek-enable 1)
|
||||
(lsp-ui-doc-enable 1))
|
||||
#+end_src
|
||||
|
||||
** Company
|
||||
*** Configure company
|
||||
For autocomplete
|
||||
#+begin_src emacs-lisp
|
||||
(use-package company
|
||||
:defer 0
|
||||
:after lsp-mode
|
||||
:config
|
||||
(define-key company-active-map (kbd "C-n") 'company-select-next)
|
||||
(define-key company-active-map (kbd "C-e") 'company-select-previous)
|
||||
(define-key company-search-map (kbd "C-n") 'company-select-next)
|
||||
(define-key company-search-map (kbd "C-e") 'company-select-previous))
|
||||
#+end_src
|
||||
|
||||
*** Configure company-quickhelp
|
||||
#+begin_src emacs-lisp
|
||||
(use-package company-quickhelp
|
||||
:hook (company-mode . company-quickhelp-mode))
|
||||
#+end_src
|
||||
|
||||
** Treesitter
|
||||
#+begin_src emacs-lisp
|
||||
(use-package tree-sitter-langs)
|
||||
(use-package tree-sitter
|
||||
:after tree-sitter-langs
|
||||
:config
|
||||
(global-tree-sitter-mode)
|
||||
:init
|
||||
(add-to-list 'tree-sitter-major-mode-language-alist '(fundamental-mode . bash))
|
||||
(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))
|
||||
#+end_src
|
||||
|
||||
|
||||
** Lang support
|
||||
#+begin_src emacs-lisp
|
||||
(use-package rustic)
|
||||
|
||||
(use-package nix-mode
|
||||
:mode "\\.nix\\'")
|
||||
|
||||
(use-package hcl-mode
|
||||
:mode
|
||||
"\\.hcl\\'"
|
||||
"\\.nomad\\'")
|
||||
#+end_src
|
||||
|
||||
** Magit
|
||||
#+begin_src emacs-lisp
|
||||
(use-package magit)
|
||||
#+end_src
|
||||
|
||||
* VTerm
|
||||
*** Configure vterm
|
||||
#+begin_src emacs-lisp
|
||||
(use-package vterm
|
||||
:config
|
||||
(setq vterm-timer-delay 0.005))
|
||||
|
||||
(use-package vterm-toggle
|
||||
:config
|
||||
(setq vterm-toggle-fullscreen-p nil)
|
||||
(add-to-list 'display-buffer-alist
|
||||
'((lambda(bufname _) (with-current-buffer bufname (equal major-mode 'vterm-mode)))
|
||||
(display-buffer-reuse-window display-buffer-at-bottom)
|
||||
(reusable-frames . visible)
|
||||
(window-height . 0.4)))
|
||||
(define-key vterm-mode-map (kbd "<f2>") 'vterm-toggle-forward)
|
||||
(define-key vterm-mode-map (kbd "<f3>") 'vterm-toggle-backward))
|
||||
#+end_src
|
||||
|
||||
|
||||
** Centaur Tabs
|
||||
#+begin_src emacs-lisp
|
||||
(use-package centaur-tabs
|
||||
:config
|
||||
(setq centaur-tabs-style "box"
|
||||
; centaur-tabs-set-bar 'left
|
||||
centaur-tabs-height 18
|
||||
centaur-tabs-set-modified-marker t
|
||||
centaur-tabs-set-icons t)
|
||||
(centaur-tabs-group-buffer-groups)
|
||||
(centaur-tabs-mode 1)
|
||||
(centaur-tabs-headline-match)
|
||||
(set-face-attribute 'tab-line nil :inherit 'centaur-tabs-unselected))
|
||||
#+end_src
|
||||
|
||||
|
||||
|
||||
** Org
|
||||
*** Add org-mode
|
||||
#+begin_src emacs-lisp
|
||||
(use-package org)
|
||||
#+end_src
|
||||
|
||||
*** Add org-bullets
|
||||
#+begin_src emacs-lisp
|
||||
(use-package org-bullets
|
||||
:config
|
||||
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
|
||||
#+end_src
|
||||
|
||||
** Misc packages
|
||||
#+begin_src emacs-lisp
|
||||
(use-package elcord
|
||||
:defer 0)
|
||||
|
||||
(use-package projectile)
|
||||
|
||||
(use-package rainbow-delimiters
|
||||
:hook (prog-mode . rainbow-delimiters-mode))
|
||||
|
||||
(use-package flex-autopair
|
||||
:config
|
||||
(flex-autopair-mode 1))
|
||||
|
||||
(use-package rainbow-mode
|
||||
:config
|
||||
(rainbow-mode 1))
|
||||
|
||||
(use-package all-the-icons)
|
||||
|
||||
(use-package general)
|
||||
#+end_src
|
||||
|
||||
* Mode specific hooks
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'c-mode-hook 'lsp)
|
||||
(add-hook 'c++-mode-hook 'lsp)
|
||||
#+end_src
|
||||
|
||||
#+begin_comment
|
||||
(defface bufname
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-bg
|
||||
:weight bold
|
||||
))
|
||||
"Custom face for buffer name"
|
||||
:group 'mode-line-faces )
|
||||
(defface majmode
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-bg
|
||||
))
|
||||
"Custom face for major mode"
|
||||
:group 'mode-line-faces )
|
||||
|
||||
(defface gitmode
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-red-2
|
||||
:weight bold
|
||||
))
|
||||
"Custom face for VC"
|
||||
:group 'mode-line-faces )
|
||||
(defface infomode
|
||||
`((t :foreground ,c-bg
|
||||
:background ,c-green
|
||||
:weight bold
|
||||
))
|
||||
"For showing line and column number"
|
||||
:group 'mode-line-faces )
|
||||
|
||||
|
||||
(setq-default mode-line-format
|
||||
'((:propertize " %b " face bufname)
|
||||
(vc-mode (:propertize (" " vc-mode " " ) face gitmode))
|
||||
(:propertize (" " mode-name " ") face majmode)
|
||||
(:propertize ("[[ %l | %c || %p . %+%@ ]]") face infomode)
|
||||
("%-")))
|
||||
|
||||
(setq exclude-ln '(term-mode-hook eshell-mode-hook shell-mode-hook))
|
||||
(while exclude-ln
|
||||
(add-hook (car exclude-ln) (lambda () (display-line-numbers-mode 0)))
|
||||
(setq exclude-ln (cdr exclude-ln)))
|
||||
(let ((default-color (cons (face-background 'mode-line)
|
||||
(face-foreground 'mode-line))))
|
||||
(add-hook 'post-command-hook
|
||||
(lambda ()
|
||||
(let ((color (cond ((minibufferp) default-color)
|
||||
((evil-insert-state-p) (cons c-magenta c-fg))
|
||||
((evil-visual-state-p) (cons c-cyan c-fg))
|
||||
((evil-normal-state-p) (cons c-fg c-bg))
|
||||
((buffer-modified-p) (cons c-blue c-fg))
|
||||
(t default-color))))
|
||||
(set-face-background 'bufname (car color))
|
||||
(set-face-foreground 'bufname (cdr color))
|
||||
))))
|
||||
#+end_comment
|
||||
|
||||
* Pop-up terminal
|
||||
Stolen from [[https://www.reddit.com/r/emacs/comments/ft84xy/run_shell_command_in_new_vterm/][this]] reddit post
|
||||
#+begin_src emacs-lisp
|
||||
(defun run-in-vterm-kill (process event)
|
||||
"A process sentinel. Kills PROCESS's buffer if it is live."
|
||||
(let ((b (process-buffer process)))
|
||||
(and (buffer-live-p b)
|
||||
(kill-buffer b))))
|
||||
|
||||
(defun run-in-vterm (command)
|
||||
(interactive
|
||||
(list
|
||||
(let* ((f (cond (buffer-file-name)
|
||||
((eq major-mode 'dired-mode)
|
||||
(dired-get-filename nil t))))
|
||||
(filename (concat " " (shell-quote-argument (and f (file-relative-name f))))))
|
||||
(read-shell-command "Terminal command: "
|
||||
(cons filename 0)
|
||||
(cons 'shell-command-history 1)
|
||||
(list filename)))))
|
||||
(with-current-buffer (vterm-toggle)
|
||||
(set-process-sentinel vterm--process #'run-in-vterm-kill)
|
||||
(vterm-send-string (concat command))
|
||||
(vterm-send-return)))
|
||||
#+end_src
|
||||
|
||||
This returns the command to run in the terminal
|
||||
#+begin_src emacs-lisp
|
||||
(defun candrun ()
|
||||
(let ((full buffer-file-name)
|
||||
(file (file-name-sans-extension buffer-file-name)))
|
||||
(pcase (file-name-extension full)
|
||||
("c" (concat "gcc " full " -o " file " && " file " && rm " file))
|
||||
("java" (concat "java" full))
|
||||
("py" (concat "python" full))
|
||||
("cpp" (concat "g++ " full " -o " file " && " file " && rm " file))
|
||||
("hs" (concat "ghc -dynamic" full " && " file " && rm " file " " file ".o"))
|
||||
("sh" (concat "sh" full))
|
||||
("bash" (concat "bash" full))
|
||||
("zsh" (concat "zsh" full))
|
||||
("js" (concat "node" full))
|
||||
("ts" (concat "tsc" full " && node " file ".js && rm " file ".js" ))
|
||||
("rs" (concat "rustc" full " -o " file " && " file " && rm " file)))))
|
||||
#+end_src
|
||||
|
||||
* Keybinds
|
||||
** General
|
||||
#+begin_src emacs-lisp
|
||||
(with-eval-after-load 'general
|
||||
(general-define-key
|
||||
:states '(normal emacs visual motion treemacs Eshell override)
|
||||
"M-o" 'treemacs
|
||||
"M-v" 'split-window-vertically
|
||||
"M-h" 'split-window-horizontally
|
||||
"M-C-m" 'shrink-window-horizontally
|
||||
"M-C-i" 'enlarge-window-horizontally
|
||||
"M-C-e" 'shrink-window
|
||||
"M-C-n" 'enlarge-window
|
||||
"C-m" 'windmove-left
|
||||
"C-i" 'windmove-right
|
||||
"C-n" 'windmove-down
|
||||
"C-e" 'windmove-up
|
||||
"M-," 'previous-buffer
|
||||
"M-." 'next-buffer
|
||||
"M-C-S-q" 'kill-buffer-and-window
|
||||
"M-w" 'centaur-tabs--kill-this-buffer-dont-ask
|
||||
"M-S-w" 'kill-window
|
||||
"M-S-," 'centaur-tabs-backward
|
||||
"M-S-." 'centaur-tabs-forward)
|
||||
#+end_src
|
||||
|
||||
Pop-up terminal specific keybinds
|
||||
#+begin_src emacs-lisp
|
||||
(general-define-key
|
||||
:states '(override insert normal visual treemacs motion)
|
||||
"M-f" 'lsp-format-buffer
|
||||
"<f4>" (lambda () (interactive) (vterm t))
|
||||
"C-<f1>" 'vterm-toggle-cd
|
||||
"<f1>" 'vterm-toggle
|
||||
"<f5>" (lambda () (interactive) (run-in-vterm (candrun))))
|
||||
|
||||
(general-define-key
|
||||
:states '(normal insert)
|
||||
:keymaps 'VTerm
|
||||
"C-S-v" 'vterm-yank
|
||||
))
|
||||
#+end_src
|
||||
@@ -1,346 +1,2 @@
|
||||
; -*- lexical-binding: t; -*-
|
||||
;;colors
|
||||
(setq
|
||||
c-bg "#1d1f21"
|
||||
c-fg "#c5c8c6"
|
||||
c-red "#912226"
|
||||
c-green "#778900"
|
||||
c-yellow "#ae7b00"
|
||||
c-blue "#1d2594"
|
||||
c-magenta "#682a9b"
|
||||
c-cyan "#2b6651"
|
||||
c-white "#929593"
|
||||
c-black "#969896"
|
||||
c-red-2 "#cc6666"
|
||||
c-green-2 "#b5bd68"
|
||||
c-yellow-2 "#f0c674"
|
||||
c-blue-2 "#81a2be"
|
||||
c-magenta-2 "#b294bb"
|
||||
c-cyan-2 "#8abeb7"
|
||||
c-white-2 "#ecebec")
|
||||
|
||||
;;settings
|
||||
(set-face-attribute 'default nil :font "Monoid" :height 120)
|
||||
(global-hl-line-mode 1)
|
||||
(scroll-bar-mode 0)
|
||||
(tool-bar-mode 0)
|
||||
(menu-bar-mode 0)
|
||||
(fringe-mode 0)
|
||||
(cua-mode 1)
|
||||
(global-display-line-numbers-mode 1)
|
||||
(setq initial-major-mode 'emacs-lisp-mode
|
||||
frame-resize-pixelwise t
|
||||
auto-window-vscroll nil
|
||||
scroll-step 1
|
||||
display-line-numbers-type 'relative
|
||||
confirm-kill-processes nil
|
||||
inhibit-startup-screen t)
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda () (delete-other-windows)) t)
|
||||
|
||||
|
||||
;;add packages and shit
|
||||
(require 'package)
|
||||
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
|
||||
(package-initialize)
|
||||
(require 'use-package)
|
||||
|
||||
(use-package solaire-mode
|
||||
:config
|
||||
(solaire-mode))
|
||||
|
||||
(use-package doom-themes
|
||||
:config
|
||||
(setq doom-themes-enable-bold t
|
||||
doom-themes-enable-italic t
|
||||
doom-themes-treemacs-theme "doom-colors")
|
||||
(load-theme 'doom-tomorrow-night t)
|
||||
(doom-themes-visual-bell-config)
|
||||
(doom-themes-treemacs-config)
|
||||
(doom-themes-org-config))
|
||||
|
||||
(use-package ivy
|
||||
:config
|
||||
(define-key ivy-minibuffer-map (kbd "C-n") 'ivy-next-line)
|
||||
(define-key ivy-minibuffer-map (kbd "C-e") 'ivy-previous-line)
|
||||
(define-key ivy-minibuffer-map (kbd "C-i") 'ivy-done)
|
||||
(ivy-mode 1))
|
||||
|
||||
(use-package elcord
|
||||
:defer 0
|
||||
:config
|
||||
(elcord-mode 1))
|
||||
|
||||
(use-package undo-tree
|
||||
:config
|
||||
(global-undo-tree-mode 1))
|
||||
|
||||
(use-package evil
|
||||
:config
|
||||
(evil-set-initial-state 'vterm-mode 'insert)
|
||||
(evil-set-undo-system 'undo-tree)
|
||||
(evil-mode 1))
|
||||
|
||||
(use-package evil-colemak-basics
|
||||
:init
|
||||
(setq evil-colemak-basics-layout-mod 'mod-dh)
|
||||
:config
|
||||
(global-evil-colemak-basics-mode 1))
|
||||
|
||||
(use-package treemacs
|
||||
:config
|
||||
(treemacs-filewatch-mode 1)
|
||||
(treemacs-display-current-project-exclusively)
|
||||
(treemacs-git-mode 'deferred))
|
||||
|
||||
(use-package treemacs-evil :config
|
||||
(define-key evil-treemacs-state-map (kbd "n") #'treemacs-next-line)
|
||||
(define-key evil-treemacs-state-map (kbd "e") #'treemacs-previous-line)
|
||||
(define-key evil-treemacs-state-map (kbd "M-n") #'treemacs-next-neighbour)
|
||||
(define-key evil-treemacs-state-map (kbd "M-e") #'treemacs-previous-neighbour)
|
||||
(define-key evil-treemacs-state-map (kbd "M-N") #'treemacs-next-line-other-window)
|
||||
(define-key evil-treemacs-state-map (kbd "M-E") #'treemacs-previous-line-other-window)
|
||||
; (define-key evil-treemacs-state-map (kbd "M") #'treemacs-collapse-parent-node)
|
||||
(evil-define-key 'treemacs treemacs-mode-map (kbd "m") #'treemacs-COLLAPSE-action)
|
||||
(evil-define-key 'treemacs treemacs-mode-map (kbd "i") #'treemacs-RET-action)
|
||||
)
|
||||
|
||||
(use-package lsp-mode
|
||||
:defer 0
|
||||
:init
|
||||
(setq )
|
||||
:config
|
||||
(lsp-mode 1))
|
||||
|
||||
(use-package lsp-treemacs
|
||||
:defer 0
|
||||
:config
|
||||
(lsp-treemacs-sync-mode 1))
|
||||
|
||||
(use-package lsp-ui
|
||||
:defer 0
|
||||
:init
|
||||
(setq lsp-ui-doc-show-with-cursor t)
|
||||
:config
|
||||
(lsp-ui-peek-enable 1)
|
||||
(lsp-ui-doc-enable 1))
|
||||
|
||||
(use-package company
|
||||
:defer 0
|
||||
:after lsp-mode
|
||||
:config
|
||||
(define-key company-active-map (kbd "C-n") 'company-select-next)
|
||||
(define-key company-active-map (kbd "C-e") 'company-select-previous)
|
||||
(define-key company-search-map (kbd "C-n") 'company-select-next)
|
||||
(define-key company-search-map (kbd "C-e") 'company-select-previous))
|
||||
|
||||
(use-package company-quickhelp
|
||||
:hook (company-mode . company-quickhelp-mode))
|
||||
|
||||
(use-package tree-sitter-langs)
|
||||
|
||||
(use-package tree-sitter
|
||||
:config
|
||||
(global-tree-sitter-mode)
|
||||
:init
|
||||
(add-to-list 'tree-sitter-major-mode-language-alist '(fundamental-mode . bash))
|
||||
(add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode))
|
||||
|
||||
(use-package rainbow-delimiters
|
||||
:hook (prog-mode . rainbow-delimiters-mode))
|
||||
|
||||
(use-package flex-autopair
|
||||
:config
|
||||
(flex-autopair-mode 1))
|
||||
|
||||
(use-package rainbow-mode
|
||||
:config
|
||||
(rainbow-mode 1))
|
||||
|
||||
(use-package rustic)
|
||||
|
||||
(add-hook 'c-mode-hook 'lsp)
|
||||
(add-hook 'c++-mode-hook 'lsp)
|
||||
|
||||
(use-package magit)
|
||||
|
||||
(use-package nix-mode
|
||||
:mode "\\.nix\\'")
|
||||
|
||||
(use-package hcl-mode
|
||||
:mode
|
||||
"\\.hcl\\'"
|
||||
"\\.nomad\\'")
|
||||
|
||||
(use-package projectile)
|
||||
|
||||
(use-package vterm
|
||||
:config
|
||||
(setq vterm-timer-delay 0.005)
|
||||
)
|
||||
|
||||
(use-package all-the-icons)
|
||||
|
||||
(use-package centaur-tabs
|
||||
:config
|
||||
(setq centaur-tabs-style "box"
|
||||
; centaur-tabs-set-bar 'left
|
||||
centaur-tabs-height 18
|
||||
centaur-tabs-set-modified-marker t
|
||||
centaur-tabs-set-icons t)
|
||||
(centaur-tabs-group-buffer-groups)
|
||||
(centaur-tabs-mode 1)
|
||||
(centaur-tabs-headline-match)
|
||||
(set-face-attribute 'tab-line nil :inherit 'centaur-tabs-unselected))
|
||||
|
||||
(use-package general)
|
||||
|
||||
(use-package vterm-toggle
|
||||
:config
|
||||
(setq vterm-toggle-fullscreen-p nil)
|
||||
(add-to-list 'display-buffer-alist
|
||||
'((lambda(bufname _) (with-current-buffer bufname (equal major-mode 'vterm-mode)))
|
||||
(display-buffer-reuse-window display-buffer-at-bottom)
|
||||
(reusable-frames . visible)
|
||||
(window-height . 0.4)))
|
||||
(define-key vterm-mode-map (kbd "<f2>") 'vterm-toggle-forward)
|
||||
(define-key vterm-mode-map (kbd "<f3>") 'vterm-toggle-backward))
|
||||
|
||||
(use-package org)
|
||||
|
||||
(use-package org-bullets
|
||||
:config
|
||||
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
|
||||
|
||||
|
||||
(defface bufname
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-bg
|
||||
:weight bold
|
||||
))
|
||||
"Custom face for buffer name"
|
||||
:group 'mode-line-faces )
|
||||
(defface majmode
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-bg
|
||||
))
|
||||
"Custom face for major mode"
|
||||
:group 'mode-line-faces )
|
||||
|
||||
(defface gitmode
|
||||
`((t :foreground ,c-fg
|
||||
:background ,c-red-2
|
||||
:weight bold
|
||||
))
|
||||
"Custom face for VC"
|
||||
:group 'mode-line-faces )
|
||||
(defface infomode
|
||||
`((t :foreground ,c-bg
|
||||
:background ,c-green
|
||||
:weight bold
|
||||
))
|
||||
"For showing line and column number"
|
||||
:group 'mode-line-faces )
|
||||
|
||||
|
||||
(setq-default mode-line-format
|
||||
'((:propertize " %b " face bufname)
|
||||
(vc-mode (:propertize (" " vc-mode " " ) face gitmode))
|
||||
(:propertize (" " mode-name " ") face majmode)
|
||||
(:propertize ("[[ %l | %c || %p . %+%@ ]]") face infomode)
|
||||
("%-")))
|
||||
|
||||
(setq exclude-ln '(term-mode-hook eshell-mode-hook shell-mode-hook))
|
||||
(while exclude-ln
|
||||
(add-hook (car exclude-ln) (lambda () (display-line-numbers-mode 0)))
|
||||
(setq exclude-ln (cdr exclude-ln)))
|
||||
(let ((default-color (cons (face-background 'mode-line)
|
||||
(face-foreground 'mode-line))))
|
||||
(add-hook 'post-command-hook
|
||||
(lambda ()
|
||||
(let ((color (cond ((minibufferp) default-color)
|
||||
((evil-insert-state-p) (cons c-magenta c-fg))
|
||||
((evil-visual-state-p) (cons c-cyan c-fg))
|
||||
((evil-normal-state-p) (cons c-fg c-bg))
|
||||
((buffer-modified-p) (cons c-blue c-fg))
|
||||
(t default-color))))
|
||||
(set-face-background 'bufname (car color))
|
||||
(set-face-foreground 'bufname (cdr color))
|
||||
))))
|
||||
|
||||
;; stolen from https://www.reddit.com/r/emacs/comments/ft84xy/run_shell_command_in_new_vterm/
|
||||
(defun run-in-vterm-kill (process event)
|
||||
"A process sentinel. Kills PROCESS's buffer if it is live."
|
||||
(let ((b (process-buffer process)))
|
||||
(and (buffer-live-p b)
|
||||
(kill-buffer b))))
|
||||
|
||||
(defun run-in-vterm (command)
|
||||
(interactive
|
||||
(list
|
||||
(let* ((f (cond (buffer-file-name)
|
||||
((eq major-mode 'dired-mode)
|
||||
(dired-get-filename nil t))))
|
||||
(filename (concat " " (shell-quote-argument (and f (file-relative-name f))))))
|
||||
(read-shell-command "Terminal command: "
|
||||
(cons filename 0)
|
||||
(cons 'shell-command-history 1)
|
||||
(list filename)))))
|
||||
(with-current-buffer (vterm-toggle)
|
||||
(set-process-sentinel vterm--process #'run-in-vterm-kill)
|
||||
(vterm-send-string (concat command))
|
||||
(vterm-send-return)))
|
||||
|
||||
(defun candrun ()
|
||||
(let ((full buffer-file-name)
|
||||
(file (file-name-sans-extension buffer-file-name)))
|
||||
(pcase (file-name-extension full)
|
||||
("c" (concat "gcc " full " -o " file " && " file " && rm " file))
|
||||
("java" (concat "java" full))
|
||||
("py" (concat "python" full))
|
||||
("cpp" (concat "g++ " full " -o " file " && " file " && rm " file))
|
||||
("hs" (concat "ghc -dynamic" full " && " file " && rm " file " " file ".o"))
|
||||
("sh" (concat "sh" full))
|
||||
("bash" (concat "bash" full))
|
||||
("zsh" (concat "zsh" full))
|
||||
("js" (concat "node" full))
|
||||
("ts" (concat "tsc" full " && node " file ".js && rm " file ".js" ))
|
||||
("rs" (concat "rustc" full " -o " file " && " file " && rm " file)))))
|
||||
|
||||
(general-define-key
|
||||
:states '(normal emacs visual motion treemacs Eshell override)
|
||||
"M-o" 'treemacs
|
||||
"M-v" 'split-window-vertically
|
||||
"M-h" 'split-window-horizontally
|
||||
"M-C-m" 'shrink-window-horizontally
|
||||
"M-C-i" 'enlarge-window-horizontally
|
||||
"M-C-e" 'shrink-window
|
||||
"M-C-n" 'enlarge-window
|
||||
"C-m" 'windmove-left
|
||||
"C-i" 'windmove-right
|
||||
"C-n" 'windmove-down
|
||||
"C-e" 'windmove-up
|
||||
"M-," 'previous-buffer
|
||||
"M-." 'next-buffer
|
||||
"M-C-S-q" 'kill-buffer-and-window
|
||||
"M-w" 'centaur-tabs--kill-this-buffer-dont-ask
|
||||
"M-S-w" 'kill-window
|
||||
"M-S-," 'centaur-tabs-backward
|
||||
"M-S-." 'centaur-tabs-forward)
|
||||
|
||||
(general-define-key
|
||||
:states '(override insert normal visual treemacs motion)
|
||||
"M-f" 'lsp-format-buffer
|
||||
"<f4>" (lambda () (interactive) (vterm t))
|
||||
"C-<f1>" 'vterm-toggle-cd
|
||||
"<f1>" 'vterm-toggle
|
||||
"<f5>" (lambda () (interactive) (run-in-vterm (candrun))))
|
||||
|
||||
|
||||
(general-define-key
|
||||
:states '(normal insert)
|
||||
:keymaps 'VTerm
|
||||
"C-S-v" 'vterm-yank
|
||||
)
|
||||
|
||||
|
||||
(delete-file (expand-file-name "~/.emacs.d/config.el"))
|
||||
(org-babel-load-file (expand-file-name "~/.emacs.d/config.org"))
|
||||
|
||||
Reference in New Issue
Block a user