diff --git a/init.el b/init.el
index 3bb7c48..da2ae81 100644
--- a/init.el
+++ b/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