whoops
This commit is contained in:
rawley
378
init.el
378
init.el
@@ -40,18 +40,6 @@
|
|||||||
(global-unset-key (kbd "C-z"))
|
(global-unset-key (kbd "C-z"))
|
||||||
(global-unset-key (kbd "C-x C-z")))
|
(global-unset-key (kbd "C-x C-z")))
|
||||||
|
|
||||||
;; When we're using a WM or DE, we want to suck up path from our shell still
|
|
||||||
(defun set-exec-path-from-shell-PATH ()
|
|
||||||
"Set path to path from shell."
|
|
||||||
(let ((path-from-shell (replace-regexp-in-string
|
|
||||||
"[ \t\n]*$"
|
|
||||||
""
|
|
||||||
(shell-command-to-string "$SHELL --login -i -c 'echo $PATH'"))))
|
|
||||||
(setenv "PATH" path-from-shell)
|
|
||||||
(setq eshell-path-env path-from-shell)
|
|
||||||
(setq exec-path (split-string path-from-shell path-separator))))
|
|
||||||
(when window-system (set-exec-path-from-shell-PATH))
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; PACKAGES
|
;; PACKAGES
|
||||||
;;
|
;;
|
||||||
@@ -59,7 +47,6 @@
|
|||||||
;; Package init
|
;; Package init
|
||||||
(require 'package)
|
(require 'package)
|
||||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||||
(package-initialize)
|
|
||||||
|
|
||||||
;; Straight.el
|
;; Straight.el
|
||||||
(defvar bootstrap-version)
|
(defvar bootstrap-version)
|
||||||
@@ -83,6 +70,11 @@
|
|||||||
|
|
||||||
;; UTILS
|
;; UTILS
|
||||||
|
|
||||||
|
;; Pull correct path from dir
|
||||||
|
(use-package direnv
|
||||||
|
:config
|
||||||
|
(direnv-mode))
|
||||||
|
|
||||||
;; Evil mode
|
;; Evil mode
|
||||||
(use-package evil
|
(use-package evil
|
||||||
:init (evil-mode +1))
|
:init (evil-mode +1))
|
||||||
@@ -242,367 +234,7 @@
|
|||||||
))
|
))
|
||||||
;;;; END cperl-mode
|
;;;; END cperl-mode
|
||||||
|
|
||||||
;;; LSP, Tree-sitter, company, and Magit <3.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
(if (eq system-type 'darwin)
|
|
||||||
(set-face-attribute 'default nil :font "ComicShannsMonoNerdFontMono-15")
|
|
||||||
(add-to-list 'default-frame-alist '(font . "ComicShannsMonoNerdFontMono-15")))
|
|
||||||
(make-directory "~/.emacs_backups/" t)
|
|
||||||
(make-directory "~/.emacs_autosave/" t)
|
|
||||||
(setq auto-save-file-name-transforms '((".*" "~/.emacs_autosave/" t)))
|
|
||||||
(setq backup-directory-alist '(("." . "~/.emacs_backups/")))
|
|
||||||
(setq package-enable-at-startup nil)
|
|
||||||
(setq visible-bell nil)
|
|
||||||
(setq ring-bell-function 'ignore)
|
|
||||||
(setq shell-file-name "/bin/bash")
|
|
||||||
(setq shell-command-switch "-ic")
|
|
||||||
(setq indent-tabs-mode nil)
|
|
||||||
(setq require-final-newline t)
|
|
||||||
(setq frame-inhibit-implied-resize t)
|
|
||||||
(setq pixel-scroll-precision-mode t)
|
|
||||||
(setq show-trailing-whitespace t)
|
|
||||||
(setq-default indent-tabs-mode nil)
|
|
||||||
(setq-default tab-width 4)
|
|
||||||
(tool-bar-mode -1)
|
|
||||||
(scroll-bar-mode -1)
|
|
||||||
(menu-bar-mode -1)
|
|
||||||
(show-paren-mode 1)
|
|
||||||
(electric-pair-mode +1)
|
|
||||||
(recentf-mode 1)
|
|
||||||
(global-display-line-numbers-mode 1)
|
|
||||||
(add-to-list 'image-types 'svg)
|
|
||||||
(setq require-final-newline t)
|
|
||||||
|
|
||||||
; I hate that so much is bold for absolutely no reason.
|
|
||||||
(mapc
|
|
||||||
(lambda (face)
|
|
||||||
(when (eq (face-attribute face :weight) 'bold)
|
|
||||||
(set-face-attribute face nil :weight 'normal)))
|
|
||||||
(face-list))
|
|
||||||
|
|
||||||
(add-to-list 'load-path "~/.emacs.d/extras")
|
|
||||||
|
|
||||||
(when (eq system-type 'darwin)
|
|
||||||
(setq ns-function-modifier 'control))
|
|
||||||
|
|
||||||
(when (display-graphic-p)
|
|
||||||
(global-unset-key (kbd "C-z"))
|
|
||||||
(global-unset-key (kbd "C-x C-z")))
|
|
||||||
|
|
||||||
(defun set-exec-path-from-shell-PATH ()
|
|
||||||
"Set path to path from shell."
|
|
||||||
(let ((path-from-shell (replace-regexp-in-string
|
|
||||||
"[ \t\n]*$"
|
|
||||||
""
|
|
||||||
(shell-command-to-string "$SHELL --login -i -c 'echo $PATH'"))))
|
|
||||||
(setenv "PATH" path-from-shell)
|
|
||||||
(setq eshell-path-env path-from-shell)
|
|
||||||
(setq exec-path (split-string path-from-shell path-separator))))
|
|
||||||
|
|
||||||
(when window-system (set-exec-path-from-shell-PATH))
|
|
||||||
|
|
||||||
(require 'package)
|
|
||||||
|
|
||||||
;; Add melpa to your packages repositories
|
|
||||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
|
||||||
|
|
||||||
(package-initialize)
|
|
||||||
|
|
||||||
(defvar bootstrap-version)
|
|
||||||
(let ((bootstrap-file
|
|
||||||
(expand-file-name
|
|
||||||
"straight/repos/straight.el/bootstrap.el"
|
|
||||||
(or (bound-and-true-p straight-base-dir)
|
|
||||||
user-emacs-directory)))
|
|
||||||
(bootstrap-version 7))
|
|
||||||
(unless (file-exists-p bootstrap-file)
|
|
||||||
(with-current-buffer
|
|
||||||
(url-retrieve-synchronously
|
|
||||||
"https://raw.githubusercontent.com/radian-software/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)
|
|
||||||
|
|
||||||
(use-package autothemer :ensure t)
|
|
||||||
|
|
||||||
(straight-use-package
|
|
||||||
'(rose-pine-emacs
|
|
||||||
:host github
|
|
||||||
:repo "thongpv87/rose-pine-emacs"
|
|
||||||
:branch "master"))
|
|
||||||
|
|
||||||
(use-package ack
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(global-set-key (kbd "C-c C-g") #'ack))
|
|
||||||
|
|
||||||
(use-package crux
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(global-set-key (kbd "C-c r") #'crux-rename-file-and-buffer))
|
|
||||||
|
|
||||||
|
|
||||||
(use-package nordic-night-theme
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(load-theme 'nordic-night t))
|
|
||||||
|
|
||||||
(use-package apache-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package raku-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package web-mode
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.html.ep\\'" . web-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.tmpl\\'" . web-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.tt2\\'" . web-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.tt\\'" . web-mode)))
|
|
||||||
(use-package caddyfile-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package json-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package yaml-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package dockerfile-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package nix-mode
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(setq use-package-always-defer t
|
|
||||||
use-package-always-ensure t
|
|
||||||
backup-directory-alist `((".*" . ,temporary-file-directory))
|
|
||||||
auto-save-file-name-transforms `((".*" ,temporary-file-directory t)))
|
|
||||||
|
|
||||||
(use-package scala-mode
|
|
||||||
:interpreter ("scala" . scala-mode))
|
|
||||||
|
|
||||||
(use-package sbt-mode
|
|
||||||
:commands sbt-start sbt-command
|
|
||||||
:config
|
|
||||||
(substitute-key-definition
|
|
||||||
'minibuffer-complete-word
|
|
||||||
'self-insert-command
|
|
||||||
minibuffer-local-completion-map)
|
|
||||||
(setq sbt:program-options '("-Dsbt.supershell=false")))
|
|
||||||
|
|
||||||
(use-package flycheck
|
|
||||||
:init (global-flycheck-mode))
|
|
||||||
|
|
||||||
(use-package clojure-mode
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(use-package cider
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(use-package go-mode
|
|
||||||
:ensure t
|
|
||||||
:hook
|
|
||||||
(before-save . gofmt-before-save)
|
|
||||||
:config
|
|
||||||
(setq tab-width 4))
|
|
||||||
|
|
||||||
(use-package lsp-mode
|
|
||||||
:hook
|
|
||||||
(go-mode . lsp)
|
|
||||||
(scala-mode . lsp)
|
|
||||||
(java-mode . lsp)
|
|
||||||
(ruby-mode . lsp)
|
|
||||||
(tuareg-mode . lsp)
|
|
||||||
(clojure-mode . lsp)
|
|
||||||
(clojurec-mode . lsp)
|
|
||||||
(clojurescript-mode . lsp)
|
|
||||||
(lsp-mode . lsp-lens-mode)
|
|
||||||
:init
|
|
||||||
(setq lsp-completion-provider 'company-mode)
|
|
||||||
(setq lsp-completion-enable t)
|
|
||||||
(setq lsp-keep-workspace-alive nil)
|
|
||||||
(setq lsp-signature-render-document nil)
|
|
||||||
(setq lsp-modeline-code-actions-enable nil)
|
|
||||||
(setq lsp-headerline-breadcrumb-enable nil))
|
|
||||||
|
|
||||||
(use-package lsp-treemacs
|
|
||||||
:config
|
|
||||||
(setq gc-cons-threshold (* 100 1024 1024)
|
|
||||||
read-process-output-max (* 1024 1024)
|
|
||||||
treemacs-space-between-root-nodes nil
|
|
||||||
company-minimum-prefix-length 1)
|
|
||||||
:after lsp-mode
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(use-package cmake-mode
|
|
||||||
:ensure t)
|
|
||||||
(use-package meson-mode
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(use-package lsp-metals)
|
|
||||||
(use-package lsp-ui
|
|
||||||
:init
|
|
||||||
(setq lsp-ui-sideline-show-code-actions nil))
|
|
||||||
|
|
||||||
(use-package yasnippet
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(yas-global-mode +1))
|
|
||||||
|
|
||||||
(use-package lsp-java
|
|
||||||
:after lsp)
|
|
||||||
|
|
||||||
(use-package java
|
|
||||||
:ensure nil
|
|
||||||
:after lsp-java
|
|
||||||
:bind (:map java-mode-map ("C-c i" . lsp-java-add-import)))
|
|
||||||
|
|
||||||
(use-package robe
|
|
||||||
:ensure t
|
|
||||||
:hook
|
|
||||||
(ruby-mode . robe-mode))
|
|
||||||
|
|
||||||
(use-package company
|
|
||||||
:hook
|
|
||||||
(scala-mode . company-mode)
|
|
||||||
(tuareg-mode . company-mode)
|
|
||||||
(java-mode . company-mode)
|
|
||||||
(robe-mode . company-mode))
|
|
||||||
|
|
||||||
(use-package posframe)
|
|
||||||
(use-package rg)
|
|
||||||
|
|
||||||
(use-package dap-mode
|
|
||||||
:hook
|
|
||||||
(lsp-mode . dap-mode)
|
|
||||||
(lsp-mode . dap-ui-mode))
|
|
||||||
|
|
||||||
(use-package counsel
|
|
||||||
:after ivy
|
|
||||||
:config (counsel-mode))
|
|
||||||
|
|
||||||
(use-package ivy
|
|
||||||
:defer 0.1
|
|
||||||
:diminish
|
|
||||||
:bind (("C-c C-r" . ivy-resume)
|
|
||||||
("C-x B" . ivy-switch-buffer-other-window))
|
|
||||||
:custom
|
|
||||||
(ivy-count-format "(%d/%d) ")
|
|
||||||
(ivy-use-virtual-buffers t)
|
|
||||||
:config (ivy-mode))
|
|
||||||
|
|
||||||
(use-package ivy-rich
|
|
||||||
:after ivy
|
|
||||||
:custom
|
|
||||||
(ivy-virtual-abbreviate 'full
|
|
||||||
ivy-rich-switch-buffer-align-virtual-buffer t
|
|
||||||
ivy-rich-path-style 'abbrev)
|
|
||||||
:config
|
|
||||||
(ivy-set-display-transformer 'ivy-switch-buffer
|
|
||||||
'ivy-rich-switch-buffer-transformer))
|
|
||||||
|
|
||||||
(use-package swiper
|
|
||||||
:after ivy
|
|
||||||
:bind (("C-s" . swiper)
|
|
||||||
("C-r" . swiper)))
|
|
||||||
|
|
||||||
(use-package tree-sitter
|
|
||||||
:config
|
|
||||||
(add-hook 'emacs-lisp-mode-hook #'tree-sitter-hl-mode)
|
|
||||||
(add-hook 'cperl-mode-hook #'tree-sitter-hl-mode)
|
|
||||||
(add-hook 'scala-mode-hook #'tree-sitter-hl-mode)
|
|
||||||
(add-hook 'javascript-mode #'tree-sitter-hl-mode)
|
|
||||||
(add-hook 'ruby-mode #'tree-sitter-hl-mode)
|
|
||||||
(add-hook 'perl-mode #'tree-sitter-hl-mode))
|
|
||||||
|
|
||||||
(use-package tree-sitter-langs
|
|
||||||
:after tree-sitter)
|
|
||||||
|
|
||||||
(defun save-and-kill-this-buffer ()
|
|
||||||
"Save and kill buffer."
|
|
||||||
(interactive)
|
|
||||||
(save-buffer)
|
|
||||||
(kill-current-buffer))
|
|
||||||
|
|
||||||
(use-package flycheck
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(add-hook 'cperl-mode-hook 'flycheck-mode))
|
|
||||||
|
|
||||||
;; Perl
|
|
||||||
(straight-use-package
|
|
||||||
'(perltidy
|
|
||||||
:type git
|
|
||||||
:host github
|
|
||||||
:repo "perl-ide/perltidy.el"
|
|
||||||
:branch "master"))
|
|
||||||
(require 'perltidy)
|
|
||||||
(setq perltidy-on-save t)
|
|
||||||
(require 'perl-mode)
|
|
||||||
(require 'cperl-mode)
|
|
||||||
(setq cperl-set-style "linux")
|
|
||||||
(setq cperl-highlight-variables-indiscriminately t)
|
|
||||||
(defalias 'perl-mode 'cperl-mode)
|
|
||||||
(setq cperl-indent-parens-as-block t)
|
|
||||||
|
|
||||||
(eval-after-load 'cperl-mode
|
|
||||||
'(progn
|
|
||||||
(set-face-attribute 'cperl-array-face nil
|
|
||||||
:foreground 'unspecified
|
|
||||||
:background 'unspecified
|
|
||||||
:weight 'normal
|
|
||||||
:slant 'italic
|
|
||||||
)
|
|
||||||
(set-face-attribute 'cperl-hash-face nil
|
|
||||||
:foreground 'unspecified
|
|
||||||
:background 'unspecified
|
|
||||||
:weight 'normal
|
|
||||||
:slant 'italic
|
|
||||||
)
|
|
||||||
))
|
|
||||||
|
|
||||||
(setq flycheck-perl-include-path
|
|
||||||
(add-to-list
|
|
||||||
'flycheck-perl-include-path
|
|
||||||
"~/perl5/lib/perl5/"))
|
|
||||||
|
|
||||||
(use-package magit
|
|
||||||
:ensure t)
|
|
||||||
|
|
||||||
(unless (package-installed-p 'evil)
|
|
||||||
(package-install 'evil))
|
|
||||||
|
|
||||||
(require 'evil)
|
|
||||||
(evil-mode 1)
|
|
||||||
|
|
||||||
(mapcar #'disable-theme custom-enabled-themes) ; Use default emacs theme.
|
|
||||||
|
|
||||||
(custom-set-variables
|
(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.
|
|
||||||
'(custom-safe-themes
|
|
||||||
'("ba5c5bdef8de41ffa8eca30fc56e7404d6e787d7836702f5e367794a759393c5" "4d16802de4686030ed8f30b5a844713d68edec9cc07322bef54493d15e68d8cd" "e9aa348abd3713a75f2c5ba279aa581b1c6ec187ebefbfa33373083ff8004c7c" "ffafb0e9f63935183713b204c11d22225008559fa62133a69848835f4f4a758c" "9013233028d9798f901e5e8efb31841c24c12444d3b6e92580080505d56fd392" "b5fd9c7429d52190235f2383e47d340d7ff769f141cd8f9e7a4629a81abc6b19" "6454421996f0508c38215a633256e36c19a28591542fb0946cfc40f1dceb89cf" "81f53ee9ddd3f8559f94c127c9327d578e264c574cda7c6d9daddaec226f87bb" "dd4582661a1c6b865a33b89312c97a13a3885dc95992e2e5fc57456b4c545176" "88f7ee5594021c60a4a6a1c275614103de8c1435d6d08cc58882f920e0cec65e" "7c7026a406042e060bce2b56c77d715c3a4e608c31579d336cb825b09e60e827" "fa7caecc85dd0aaf60d4f74e42300a1a69f32efbad61fbd3ca26d0dcf6dfedd5" default))
|
|
||||||
'(delete-selection-mode nil)
|
|
||||||
'(package-selected-packages
|
|
||||||
'(rg evil-mode ivy-rich counsel dap-mode company yasnippet lsp-ui lsp-metals lsp-mode sbt-mode yaml-mode web-mode tree-sitter-langs spinner smex scala-mode s raku-mode php-mode markdown-mode magit lv json-mode ht flycheck evil dracula-theme dockerfile-mode ctrlf centaur-tabs))
|
|
||||||
'(safe-local-variable-values
|
|
||||||
'((eval setq flycheck-perl-include-path
|
|
||||||
(add-to-list 'flycheck-perl-include-path
|
|
||||||
(concat
|
|
||||||
(projectile-project-root)
|
|
||||||
"lib")))
|
|
||||||
(flycheck-perl-include-path concat
|
|
||||||
(projectile-project-root)
|
|
||||||
"lib")
|
|
||||||
(c-indentation-style . bsd)
|
|
||||||
(eval setq flycheck-perl-include-path
|
|
||||||
(add-to-list 'flycheck-perl-include-path
|
|
||||||
(concat
|
|
||||||
(expand-file-name
|
|
||||||
(locate-dominating-file default-directory ".dir-locals.el"))
|
|
||||||
"lib"))))))
|
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
;; custom-set-faces was added by Custom.
|
;; custom-set-faces was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
|
|||||||
Reference in New Issue
Block a user