1
dot-emacs/init.el

728 lines
19 KiB
EmacsLisp
Raw Normal View History

2019-06-06 09:57:55 +00:00
;;; init.el --- My custom Emacs configuration file. -*- lexical-binding: t; -*-
2017-11-15 04:15:29 +00:00
;;================================================================================
;;
;; Jessie Hildebrandt's
;; Run-Anywhere Emacs Config
;;
;;================================================================================
2018-08-04 23:32:42 +00:00
2017-11-15 04:15:29 +00:00
;;========================================
;;
;; EMACS CONFIGURATION
;;
;;========================================
;;====================
;; Garbage Collector
2017-11-15 04:15:29 +00:00
;;====================
;; Increase the garbage collection threshold to 100MB for a faster startup time.
(setq-default gc-cons-threshold 100000000
gc-cons-percentage 0.6)
2017-11-15 04:15:29 +00:00
;; Restore it to 8MB after initialization is finished.
(add-hook 'emacs-startup-hook (lambda () (setq gc-cons-threshold 8000000
gc-cons-percentage 0.1)))
2018-03-30 05:11:23 +00:00
;; Collect all garbage whenever Emacs loses focus.
(add-hook 'focus-out-hook #'garbage-collect)
2018-03-30 05:11:23 +00:00
2017-11-15 04:15:29 +00:00
;;====================
;; Variables/Basic Config.
;;====================
;; Basic variable configuration.
(setq-default
initial-scratch-message "" ; Remove initial message
frame-title-format '("Emacs - %b") ; Window title formatting
truncate-lines 1 ; Truncate lines instead of wrapping
inhibit-startup-screen t ; Don't show startup screen
inhibit-splash-screen t ; Don't show splash screen
x-gtk-use-system-tooltips nil ; Don't use system tooltips
mouse-wheel-progressive-speed nil ; Don't accelerate mouse scrolling
scroll-preserve-screen-position 1 ; Don't move cursor while scrolling
custom-file "~/.emacs.d/custom.el" ; Use separate custom-vars file
2017-11-15 04:15:29 +00:00
)
;; Set backup behavior.
(setq-default
2017-11-15 04:15:29 +00:00
backup-directory-alist '(("." . "~/.emacs.d/backup")) ; Set backup file directory
backup-by-copying t ; Don't delink hardlinks
version-control t ; Use version numbers on backups
delete-old-versions t ; Do not keep old backups
kept-new-versions 5 ; Keep 5 new versions
kept-old-versions 3 ; Keep 3 old versions
2017-11-15 04:15:29 +00:00
)
;; Enable uniquify for better unique buffer names.
(require 'uniquify)
(setq
uniquify-buffer-name-style 'forward ; Show directory name before buffer name
uniquify-separator "/" ; Use a forward slash separator
uniquify-after-kill-buffer-p t ; Update buffer names after killing
uniquify-ignore-buffers-re "^\\*" ; Ignore special buffers
)
;; Set the default styling rules to use.
2017-12-05 03:06:39 +00:00
(setq-default
indent-tabs-mode nil
2017-12-05 03:06:39 +00:00
tab-width 4
c-basic-offset 4
c-default-style "bsd"
2018-03-07 06:58:26 +00:00
)
2017-11-15 04:15:29 +00:00
;; Disable some unnecessary byte-compiler warnings.
(setq byte-compile-warnings '(not
free-vars
unresolved
noruntime
lexical
make-local))
;; Temporarily disable file handler checking during startup to save time.
(defvar temp--file-name-handler-alist file-name-handler-alist)
(setq file-name-handler-alist nil)
(add-hook 'emacs-startup-hook (lambda () (setq file-name-handler-alist temp--file-name-handler-alist)))
2017-11-15 04:15:29 +00:00
;; Add a hook to trailing whitespaces before saving a file.
(add-hook 'before-save-hook 'delete-trailing-whitespace)
;;====================
;; Misc. Mode Config
;;====================
;; Enable Modes
(mapc (lambda (mode) (funcall mode 1))
'(
global-subword-mode ; Treats camel-case names as multiple words
global-auto-revert-mode ; Automatically revert buffers on file changes
global-hl-line-mode ; Highlight the currently-selected line
ido-mode ; Better directory and buffer completion
column-number-mode ; Show column number in the mode line
show-paren-mode ; Highlight matching parenthesis
size-indication-mode ; Show buffer size in the mode line
))
2017-11-15 04:15:29 +00:00
2018-07-14 03:07:07 +00:00
;; Disable Modes
(mapc (lambda (mode) (funcall mode 0))
`(
menu-bar-mode ; Disable the menu bar
))
;; Hooked Modes
(add-hook 'prog-mode-hook 'electric-pair-local-mode) ; Automatic delimiter pairing
2018-07-14 03:07:07 +00:00
2017-11-15 04:15:29 +00:00
;; Mode Configuration
(setq
show-paren-delay 0.0 ; (show-paren-mode) - Parenthesis highlighting delay
visual-line-fringe-indicators t ; (visual-line-mode) - Shows fringe indicators for wrapping
)
;;====================
;; Graphical Mode Config
;;====================
;; Define a function that will configure graphical Emacs frames.
(defun configure-graphic-frame (frame)
"Set up graphical Emacs frame FRAME."
(when (display-graphic-p)
(select-frame frame)
(setq winid (frame-parameter frame 'outer-window-id))
(call-process-shell-command
(concat "xprop -f _GTK_THEME_VARIANT 8u -set _GTK_THEME_VARIANT dark -id " winid))
(tool-bar-mode 0)
(scroll-bar-mode 0)))
;; Hook the frame configuration function into all newly-created graphical frames.
(when (display-graphic-p)
(progn
(add-hook 'window-setup-hook (lambda () (configure-graphic-frame (selected-frame))))
(add-hook 'after-make-frame-functions #'configure-graphic-frame)
(configure-graphic-frame (selected-frame))))
2017-11-15 04:15:29 +00:00
;;====================
;; Package Manager
;;====================
;; Temporary fix for bugged package archive retrieval in Emacs 26.2.
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
;; Configure the package manager.
(eval-and-compile
;; Configure the package manager and use-package settings.
(setq load-prefer-newer t
package-user-dir (concat user-emacs-directory "elpa")
package-check-signature nil
package-enable-at-startup nil
package--init-file-ensured t
use-package-always-ensure t
use-package-always-defer t)
2017-11-15 04:15:29 +00:00
;; Make sure that the package directory exists to prevent errors.
(unless (file-directory-p package-user-dir)
(make-directory package-user-dir t))
2017-11-15 04:15:29 +00:00
;; Manually assemble the load-path during startup to save time.
(setq load-path (append load-path (directory-files package-user-dir t "^[^.]" t))))
2017-11-15 04:15:29 +00:00
;; Initialize the package management system (only at compile time).
(eval-when-compile
;; Require the package manager.
(require 'package)
;; Enable the MELPA repository.
(unless (assoc-default "melpa" package-archives)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t))
;; Initialize the package manager.
(package-initialize)
2017-11-15 04:15:29 +00:00
(package-refresh-contents)
;; Check for use-package. Install it if not already present.
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package))
;;====================
;; Key Bindings
;;====================
;; Custom Bindings:
;; [ F6 ] -> Toggle line-wrapping
;; [ F7 ] -> Toggle linum-mode/display-line-numbers-mode
;; [ F10 ] -> (Overwritten) Open the menubar in a minibuffer
;; [ C-z ] -> (Overwritten) Undo
;; [ C-x C-b ] -> (Overwritten) Invoke ibuffer
;; [ C-c C-o ] -> Focus on minibuffer window
;; [ C-c C-r ] -> Revert buffer without confirmation
;; [ C-x RET ] -> Open eshell in the current buffer
;; [ C-c C-<i,j,k,l> ] -> Focus on the window in <direction>
;; [ M-n / M-p ] -> Scroll up/down by one line
;; [ C-M-n / C-M-p ] -> Move forward/back by one paragraph
;; Require bind-key. (Bundled with use-package)
(require 'bind-key)
;; Bind a key to toggle line wrapping behavior.
(bind-key [f6] 'visual-line-mode)
;; Bind a key to show line numbers.
(bind-key [f7] 'linum-mode)
(when (>= emacs-major-version 26)
(bind-key [f7] 'display-line-numbers-mode))
;; Replace the menu-bar-open keybind with a tmm-menubar keybind.
(bind-key [f10] 'tmm-menubar)
;; Replace the suspend-emacs keybind with a (much less annoying) undo keybind.
(bind-key "C-z" 'undo)
;; Replace the list-buffers keybind with an ibuffer keybind.
(bind-key "C-x C-b" 'ibuffer)
;; Bind a key to switch to the minibuffer.
(defun switch-to-minibuffer-window ()
"Switch to the minibuffer window (if active)."
2018-08-04 23:46:46 +00:00
(interactive)
(when (active-minibuffer-window)
(select-window (active-minibuffer-window))))
(bind-key "C-c C-o" 'switch-to-minibuffer-window)
2018-08-04 23:46:46 +00:00
;; Bind a key to revert the buffer without confirmation.
(defun revert-buffer-no-confirm ()
"Revert the current buffer without confirmation."
(interactive)
(if (not (buffer-modified-p))
(revert-buffer :ignore-auto :noconfirm)
(when (yes-or-no-p "The contents of this buffer have been modified. Really revert? ")
(revert-buffer :ignore-auto :noconfirm))))
(bind-key "C-c C-r" 'revert-buffer-no-confirm)
;; Bind a key to open up eshell.
(bind-key "C-x RET" 'eshell)
;; Bind keys to switch windows easier.
(bind-key* "C-c C-i" 'windmove-up)
(bind-key* "C-c C-k" 'windmove-down)
(bind-key* "C-c C-j" 'windmove-left)
(bind-key* "C-c C-l" 'windmove-right)
;; Bind keys to scroll up/down by one line
(bind-key "M-n" 'scroll-up-line)
(bind-key "M-p" 'scroll-down-line)
;; Bind keys to move forward/back by one paragraph
(bind-key "C-M-n" 'forward-paragraph)
(bind-key "C-M-p" 'backward-paragraph)
2017-11-15 04:15:29 +00:00
;;====================
;; Init File
2017-11-15 04:15:29 +00:00
;;====================
(defun update-init-file ()
"Download the latest init file from jessieh.net."
(interactive)
(when (yes-or-no-p "Download latest init file from jessieh.net? ")
(message "Updating init file...")
(url-copy-file "https://jessieh.net/emacs" (concat user-emacs-directory "init.el") t)
2019-04-16 13:11:55 +00:00
(byte-compile-init-file)))
2017-11-15 04:15:29 +00:00
(defun byte-compile-init-file ()
"Byte compile the init file."
(interactive)
(save-restriction
(message "Byte-compiling init file...")
(byte-compile-file (concat user-emacs-directory "init.el"))))
(defun refresh-init-file-packages ()
"Redownload all packages that have been configured in the init file."
(interactive)
(when (yes-or-no-p "Redownload and reconfigure packages? ")
(message "Refreshing packages...")
(delete-directory package-user-dir t)
(byte-compile-init-file)))
;; Make sure that this init file is byte-compiled whenever it changes.
(if (file-newer-than-file-p
(concat user-emacs-directory "init.el")
(concat user-emacs-directory "init.elc"))
(add-hook 'emacs-startup-hook 'byte-compile-init-file))
2017-11-15 04:15:29 +00:00
;;========================================
;;
;; THEME CONFIGURATION
2017-11-15 04:15:29 +00:00
;;
;;========================================
2018-07-14 03:04:45 +00:00
;;====================
;; Default Face
;;====================
;; Set up styling for the default face.
(set-face-attribute 'default nil
:family "Hack"
:height 90)
;;====================
;; Theme
;;====================
;; Load "mood-one"
2019-06-06 09:57:55 +00:00
(use-package mood-one-theme
:demand
t
:config
(setq diff-hl-fringe-bmp-function #'mood-one-theme-diff-hl-fringe-bmp-function)
(eval-after-load 'flycheck #'mood-one-theme-flycheck-fringe-bmp-enable))
;;====================
;; Mode-Line
2018-07-14 03:04:45 +00:00
;;====================
;; Load "mood-line"
(use-package mood-line
:demand
t
2018-07-14 03:04:45 +00:00
:config
(mood-line-mode))
;;========================================
;;
;; EXTERNAL PACKAGE CONFIGURATION
;;
;;========================================
2018-07-14 03:04:45 +00:00
2017-11-15 04:15:29 +00:00
;;====================
;; Language Modes
;;====================
;; Currently Supported:
;; Lua, PHP, Rust, Fish
2017-11-15 04:15:29 +00:00
;; Load Lua Mode
;; (Associated files: .lua)
(use-package lua-mode
:mode
("\\.lua\\'" . lua-mode))
;; Load PHP Mode
;; (Associated files: .php (HTML-Mode), .inc)
(use-package php-mode
:mode
(("\\.php\\'" . html-mode)
("\\.inc\\'" . php-mode)))
;; Load Rust Mode
;; (Associated files: .rs)
(use-package rust-mode
:mode
("\\.rs\\'" . rust-mode))
2017-11-15 04:15:29 +00:00
;; Load Fish Mode
;; (Associated files: .fish)
(use-package fish-mode
:mode
("\\.fish\\'" . fish-mode))
;;====================
;; Exec-Path-From-Shell (PATH Setting)
;;====================
;; Load Exec-Path-From-Shell (Non-Windows systems only)
(unless (string-equal system-type "windows-nt")
(use-package exec-path-from-shell
:demand
t
:custom
(exec-path-from-shell-arguments '("-l"))
:config
2017-11-15 04:15:29 +00:00
(add-to-list 'exec-path-from-shell-variables '"RUST_SRC_PATH")
(exec-path-from-shell-initialize)))
;;====================
;; Racer (Rust Completion)
;;====================
2017-11-15 04:15:29 +00:00
;; Load Racer
(use-package racer
:custom
(racer-rust-src-path nil)
:hook
(rust-mode . racer-mode))
;;====================
;; Package-Lint (Elisp Package Linter)
;;====================
;; Load Package-Lint
(use-package package-lint
:commands
(package-lint-current-buffer))
2017-11-15 04:15:29 +00:00
;;====================
;; FlyCheck (Syntax Checker)
;;====================
;; Bindings
;; [ C-c e ] -> Open error list window
;; Load FlyCheck
(use-package flycheck
:requires
(pkg-info)
:hook
(prog-mode . flycheck-mode)
(c++-mode-hook . (lambda () (setq flycheck-clang-standard "c++17")))
2017-11-15 04:15:29 +00:00
:bind
("C-c e" . flycheck-list-errors))
;; [Rust]
;; Load FlyCheck-Rust
(use-package flycheck-rust
:after
(flycheck)
:hook
(flycheck-mode-hook . flycheck-rust-setup))
;; [Elisp Packages]
;; Load FlyCheck-Package
(use-package flycheck-package
:after
(flycheck)
:hook
(flycheck-mode-hook . flycheck-package-setup))
2017-11-15 04:15:29 +00:00
;;====================
;; Company (Autocompletion)
;;====================
;; Load Company
(use-package company
:demand
t
:config
(global-company-mode)
:custom
(company-idle-delay 0.3))
2017-11-15 04:15:29 +00:00
;; [Lua]
;; Load Company-Lua
(use-package company-lua
:after
(company)
:hook
(lua-mode my-lua-mode-company-init))
;; [PHP]
;; Load Company-PHP
(use-package company-php
:after
(company))
2017-11-15 04:15:29 +00:00
;; [Rust]
;; Load Company-Racer
(use-package company-racer
:after
(company))
;;====================
;; Smart-Tabs-Mode (Superior Indentation Method)
;;====================
;; Load Smart-Tabs-Mode
(use-package smart-tabs-mode
:demand
t
:config
(smart-tabs-insinuate 'c 'c++ 'java
'javascript 'cperl
'ruby 'nxml))
2017-11-15 04:15:29 +00:00
;;====================
;; Smex (M-x Autocompletion)
;;====================
;; Bindings:
;; [ M-x ] (Overwritten) -> Open Smex
;; Load Smex
(use-package smex
:config
(smex-initialize)
2017-11-15 04:15:29 +00:00
:bind
("M-x" . smex))
2018-03-07 06:56:17 +00:00
;;====================
;; Undo Tree
;;====================
;; Bindings:
;; [ C-x u ] (Overwritten) -> Open Undo Tree
2018-03-07 06:56:17 +00:00
;; Load Undo Tree
(use-package undo-tree
:demand
t
:config
(global-undo-tree-mode))
2018-03-07 06:56:17 +00:00
2017-11-15 04:15:29 +00:00
;;====================
;; Diff-HL (VCS Diff Highlighting)
2017-11-15 04:15:29 +00:00
;;====================
;; Load Diff-HL
(use-package diff-hl
:demand
t
:hook
(diff-hl-mode-hook . diff-hl-flydiff-mode)
:config
(global-diff-hl-mode))
2017-11-15 04:15:29 +00:00
;;====================
;; Neotree (File Browser)
;;====================
;; Bindings:
;; [ F5 ] -> (Overwritten) Do nothing (neotree-mode)
;; [ F6 ] -> (Overwritten) Do nothing (neotree-mode)
;; [ F7 ] -> (Overwritten) Do nothing (neotree-mode)
;; [ F8 ] -> Toggle Neotree window
;; [ C-c t ] -> Switch to Neotree window
;; Load Neotree
(use-package neotree
:custom
(neo-show-updir-line nil)
(neo-window-width 30)
(neo-theme 'nerd)
2017-11-15 04:15:29 +00:00
:config
(defun neotree--setup (&rest _)
(make-local-variable 'auto-hscroll-mode)
(setq mode-line-format nil
line-spacing 3
tab-width 1
truncate-lines t
word-wrap nil
auto-hscroll-mode nil)
)
(add-hook 'neo-after-create-hook #'neotree--setup)
2017-11-15 04:15:29 +00:00
:bind
(([f8] . neotree-toggle)
("C-c t" . neotree)
:map neotree-mode-map
([f5] . (lambda () (interactive) nil))
([f6] . (lambda () (interactive) nil))
([f7] . (lambda () (interactive) nil))))
2017-11-15 04:15:29 +00:00
;;====================
;; Resize-Window (Resizing)
;;====================
;; Bindings:
;; [ C-c w ] -> Toggle window sizing mode
;; Load Resize-Window
(use-package resize-window
:bind
("C-c w" . resize-window))
;;====================
;; Writeroom-Mode
;;====================
;; Bindings:
;; [ F5 ] -> Toggle
;; [ F6 ] -> (Overwritten) Decrease writeroom width (writeroom-mode)
;; [ F7 ] -> (Overwritten) Increase writeroom width (writeroom-mode)
;; Load Writeroom-Mode
(use-package writeroom-mode
:custom
(writeroom-global-effects nil)
(writeroom-maximize-window nil)
(writeroom-fringes-outside-margins nil)
:bind
(([f5] . writeroom-mode)
:map writeroom-mode-map
([f6] . writeroom-decrease-width)
([f7] . writeroom-increase-width)))
2017-11-15 04:15:29 +00:00
;;====================
;; Multiple-Cursors
;;====================
;; Bindings:
;; [ C-> ] -> Mark next like this
;; [ C-< ] -> Mark previos like this
;; [ C-c C-> || C-c C-< ] -> Mark all like this
;; Load Multiple-Cursors
(use-package multiple-cursors
:custom
(mc/always-run-for-all nil)
2017-11-15 04:15:29 +00:00
:bind
(("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this)
("C-c C->" . mc/mark-all-like-this)
("C-c C-<" . mc/mark-all-like-this)))
2017-11-16 00:38:23 +00:00
;;====================
;; Rainbow Mode (Colorize Colors)
;;====================
;; Load Rainbow-Mode
(use-package rainbow-mode
:hook
((html-mode css-mode) . rainbow-mode))
;;====================
;; Rainbow-Delimiters (Delimiter Highlighting)
;;====================
;; Load Rainbow-Delimiters
(use-package rainbow-delimiters
:hook
(prog-mode . rainbow-delimiters-mode))
;;====================
;; HL-Todo (TODO/FIXME Highlighting)
;;====================
;; Load HL-Todo
(use-package hl-todo
:custom
(hl-todo-keyword-faces
'(("TODO" . ,(face-foreground 'hl-todo))
("DEBUG" . ,(face-foreground 'hl-todo))
("FIXME" . ,(face-foreground 'hl-todo))
("HACK" . ,(face-foreground 'hl-todo))))
:hook
(prog-mode . hl-todo-mode))
2017-11-16 00:38:23 +00:00
2017-11-15 04:15:29 +00:00
;;====================
;; Magit (Git Interface)
;;====================
;; Bindings:
;; [ C-c g ] -> Open Magit window
;; Load Magit
(use-package magit
:bind
("C-c g" . magit-status))
;; [TODO Listing]
;; Load Magit-Todos
(use-package magit-todos
:hook
(magit-mode-hook))
;;====================
;; Ido-Vertical-Mode (Vertical Completions)
;;====================
;; Load Ido-Vertical-Mode
(use-package ido-vertical-mode
:demand
t
:config
(ido-vertical-mode t)
:custom
(ido-vertical-define-keys 'C-n-C-p-up-down-left-right))
;;====================
;; Flx-Ido (Ido Fuzzy Matching)
;;====================
;; Load Flx-Ido
(use-package flx-ido
:demand
t
:config
(flx-ido-mode t))
;;====================
;; Anzu (Search Mode Info Display)
;;====================
;; Load Anzu
(use-package anzu
:demand
t
:custom
(anzu-cons-mode-line-p nil)
:config
(global-anzu-mode t)
:bind
(("<remap> <query-replace>" . 'anzu-query-replace)
("<remap> <query-replace-regexp>" . 'anzu-query-replace-regexp)))
;;====================
;; Smooth Scrolling
;;====================
;; Load Smooth-Scrolling
(use-package smooth-scrolling
:demand
t
:custom
(smooth-scroll-margin 6)
:config
(smooth-scrolling-mode t))
;;========================================
;;
;; END OF INIT FILE
;;
;;========================================
;;; init.el ends here