new world order
This commit is contained in:
rawley
245
init.el
245
init.el
@@ -1,6 +1,247 @@
|
||||
;;; init.el --- Rawley Fowler's Emacs Configuration
|
||||
;;; Commentary:
|
||||
;;; My Emacs configuration for ergonomic code editing in many languages.
|
||||
;;; My Emacs configuration for ergonomic UNIX oriented code-editing.
|
||||
|
||||
(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)
|
||||
|
||||
;; Stupid bold font for no reason, BEGONE!
|
||||
(mapc
|
||||
(lambda (face)
|
||||
(when (eq (face-attribute face :weight) 'bold)
|
||||
(set-face-attribute face nil :weight 'normal)))
|
||||
(face-list))
|
||||
|
||||
;; Don't allow C-z or C-x C-z if GUI mode
|
||||
(when (display-graphic-p)
|
||||
(global-unset-key (kbd "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
|
||||
;;
|
||||
|
||||
;; Package init
|
||||
(require 'package)
|
||||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||
(package-initialize)
|
||||
|
||||
;; Straight.el
|
||||
(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 install
|
||||
(setq use-package-always-ensure t) ; always auto-install packages
|
||||
|
||||
;; UTILS
|
||||
|
||||
;; Evil mode
|
||||
(use-package evil
|
||||
:init (evil-mode +1))
|
||||
|
||||
;; Project management
|
||||
(use-package projectile
|
||||
:init (projectile-mode +1)
|
||||
:config
|
||||
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))
|
||||
|
||||
;; Searching with ack
|
||||
(use-package ack
|
||||
:config
|
||||
(global-set-key (kbd "C-c C-g") #'ack))
|
||||
|
||||
;; M-x crux-rename-file-and-buffer, etc.
|
||||
(use-package crux
|
||||
:config
|
||||
(global-set-key (kbd "C-c r") #'crux-rename-file-and-buffer))
|
||||
|
||||
;; The best linter/code checker ever made
|
||||
(use-package flycheck
|
||||
:init (global-flycheck-mode)
|
||||
:config
|
||||
(setq flycheck-perl-include-path ; Lookup our local Perl libs.
|
||||
(add-to-list
|
||||
'flycheck-perl-include-path
|
||||
"~/perl5/lib/perl5/")))
|
||||
|
||||
;; Generic completion
|
||||
(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))
|
||||
|
||||
;; Extensions for ivy
|
||||
(use-package ivy-rich
|
||||
:after ivy
|
||||
:custom
|
||||
(ivy-virtual-abbreviate 'full
|
||||
ivy-rich-switch-buffer-align-virtual-buffer t
|
||||
ivy-rich-path-style 'abbrev))
|
||||
|
||||
;; Git frontend
|
||||
(use-package magit)
|
||||
|
||||
;; Upgraded searching
|
||||
(use-package swiper
|
||||
:after ivy
|
||||
:bind (("C-s" . swiper)
|
||||
("C-r" . swiper)))
|
||||
|
||||
;; Better highlighting
|
||||
(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)
|
||||
|
||||
;; Debug adapter
|
||||
(use-package dap-mode
|
||||
:hook
|
||||
(lsp-mode . dap-mode)
|
||||
(lsp-mode . dap-ui-mode))
|
||||
|
||||
;;
|
||||
(use-package counsel
|
||||
:after ivy
|
||||
:config (counsel-mode))
|
||||
|
||||
;; Positional frames
|
||||
(use-package posframe)
|
||||
|
||||
;; Perltidy
|
||||
(straight-use-package ; we have to use straight here because its not on MELPA/ELPA
|
||||
'(perltidy
|
||||
:type git
|
||||
:host github
|
||||
:repo "perl-ide/perltidy.el"
|
||||
:branch "master"))
|
||||
|
||||
;; MODES
|
||||
|
||||
;;; No config
|
||||
(use-package apache-mode)
|
||||
(use-package raku-mode)
|
||||
(use-package caddyfile-mode)
|
||||
(use-package json-mode)
|
||||
(use-package dockerfile-mode)
|
||||
(use-package nix-mode)
|
||||
(use-package clojure-mode)
|
||||
(use-package cmake-mode)
|
||||
(use-package meson-mode)
|
||||
|
||||
;;; With config
|
||||
|
||||
;;;; BEGIN: web-mode
|
||||
|
||||
(use-package web-mode
|
||||
:ensure t
|
||||
:config
|
||||
(add-to-list 'auto-mode-alist '("\\.tmpl\\'" . web-mode)) ; Go, OCaml templates
|
||||
(add-to-list 'auto-mode-alist '("\\.html.ep\\'" . web-mode)) ; Mojolicious
|
||||
(add-to-list 'auto-mode-alist '("\\.ep\\'" . web-mode)) ; Mojolicious
|
||||
(add-to-list 'auto-mode-alist '("\\.tt2\\'" . web-mode)) ; Template::Toolkit
|
||||
(add-to-list 'auto-mode-alist '("\\.html.tt2\\'" . web-mode)) ; Template::Toolkit
|
||||
(add-to-list 'auto-mode-alist '("\\.tt\\'" . web-mode)) ; Template::Toolkit
|
||||
(add-to-list 'auto-mode-alist '("\\.html.tt\\'" . web-mode)) ; Template::Toolkit
|
||||
(add-to-list 'auto-mode-alist '("\\.mc\\'" . web-mode)) ; Mason
|
||||
(add-to-list 'auto-mode-alist '("\\.tx\\'" . web-mode))) ; Text::Xslate
|
||||
|
||||
;;;; END: web-mode
|
||||
|
||||
;;;; BEGIN: cperl-mode
|
||||
|
||||
(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)
|
||||
|
||||
(let ((rf-perl-version (shell-command-to-string "perl -e 'print $]'")))
|
||||
'((cperl-mode
|
||||
(flycheck-perl-include-path . (concat "~/perl5/perlbrew/perls/perl-"
|
||||
'rf-perl-version
|
||||
"lib"
|
||||
'rf-perl-version))
|
||||
(when (projectile-project-p)
|
||||
(flycheck-perl-include-path . (concat (projectile-project-root) "/lib"))))))
|
||||
|
||||
(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
|
||||
)
|
||||
))
|
||||
;;;; END cperl-mode
|
||||
|
||||
;;; LSP, Tree-sitter, company, and Magit <3.
|
||||
|
||||
;;; Code:
|
||||
@@ -368,3 +609,5 @@
|
||||
;; Your init file should contain only one such instance.
|
||||
;; If there is more than one, they won't work right.
|
||||
)
|
||||
|
||||
;;; init.el ends here
|
||||
|
||||
Reference in New Issue
Block a user