;;; -*- lexical-binding: t -*-
-(require 'seq)
+;;;;;;;;;;;;;;;;
+;; Early init ;;
+;;;;;;;;;;;;;;;;
+
+(let ((dir "~/.cache/emacs/eln-cache/"))
+ (unless (file-accessible-directory-p dir)
+ (make-directory dir))
+ (startup-redirect-eln-cache dir))
+
+(let ((dir "~/.cache/emacs/saves/"))
+ (unless (file-accessible-directory-p dir)
+ (make-directory dir))
+ (setq auto-save-list-file-prefix dir))
+
+(let ((dir "~/.cache/emacs/backups/"))
+ (unless (file-accessible-directory-p dir)
+ (make-directory dir))
+ (setq backup-directory-alist `(("." . ,dir))))
+
+(setq save-place-file "~/.cache/emacs/places")
+
+(setq project-list-file "~/.cache/emacs/projects")
+
+(setq tramp-persistency-file-name "~/.cache/emacs/tramp")
+
+;;;;;;;;;;;;;;;;;;;;
+;; Visual options ;;
+;;;;;;;;;;;;;;;;;;;;
+
+(load-file "~/.emacs.d/pastels-on-dark-theme.el")
+(enable-theme 'pastels-on-dark)
+
+(setq default-frame-alist '((vertical-scroll-bars . nil)
+ (menu-bar-lines . 0)
+ (tool-bar-lines . 0)
+ (background-mode . dark)
+ (alpha . 95)
+ (font . "monospace 12")))
+
+(column-number-mode t)
+
+(line-number-mode t)
+
+(show-paren-mode t)
+
+(setq-default show-trailing-whitespace t)
+
+;; 256-color mode in screen terminals
+(add-to-list 'term-file-aliases
+ '("screen.xterm-256color" . "screen-256color"))
+
+;;;;;;;;;;;;;;;;;;;;;
+;; General options ;;
+;;;;;;;;;;;;;;;;;;;;;
+
+(add-hook 'text-mode-hook #'goto-address-mode)
+(add-hook 'prog-mode-hook #'goto-address-prog-mode)
+
+(global-auto-revert-mode 1)
+(setq global-auto-revert-non-file-buffers t)
+(setq auto-revert-verbose nil)
+
+(setq auto-save-interval 0)
+(setq auto-save-timeout 30)
+
+;; backup files - keep 10 numbered backups
+(setq backup-by-copying t)
+(setq delete-old-versions t)
+(setq kept-new-versions 10)
+(setq kept-old-versions 0)
+(setq vc-make-backup-files t)
+(setq version-control t)
+
+(setq create-lockfiles nil)
+
+(delete-selection-mode t)
+
+(setq disabled-command-function nil)
+
+(setq ediff-window-setup-function 'ediff-setup-windows-plain
+ ediff-split-window-function 'split-window-horizontally)
+
+(setq find-file-visit-truename t)
+
+(setq help-window-select t)
+
+(global-hl-line-mode 1)
+
+(setq-default indent-tabs-mode nil)
+
+(setq mouse-1-click-follows-link nil)
+
+(setq mouse-wheel-scroll-amount '(3))
+(setq mouse-wheel-progressive-speed nil)
+
+(repeat-mode 1)
+
+(setq-default require-final-newline t)
+
+(setq save-interprogram-paste-before-kill t)
+
+(save-place-mode 1)
+
+(setq scroll-conservatively 1)
+(setq scroll-margin 1)
+
+(setq shift-select-mode nil)
+
+(setq sentence-end-double-space nil)
+
+(setq undo-limit 10000000)
+(setq undo-strong-limit undo-limit)
+
+;; unique buffer names
+(setq uniquify-strip-common-suffix t)
+(setq uniquify-buffer-name-style 'post-forward)
+
+(setq vc-follow-symlinks t)
+
+(xterm-mouse-mode 1)
+
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+;;;;;;;;;;;;;;;;;
+;; Keybindings ;;
+;;;;;;;;;;;;;;;;;
+
+(global-set-key (kbd "C-x f") 'project-find-file)
+
+;; Text formatting
+(global-set-key (kbd "M-;") 'comment-line)
+(global-set-key (kbd "C-c d") 'duplicate-dwim)
+(global-set-key (kbd "M-z") 'zap-up-to-char)
+(global-set-key (kbd "C-c k") 'kill-whole-line)
+
+;; Windows/frames
+(global-set-key (kbd "<C-up>") 'windmove-up)
+(global-set-key (kbd "<C-down>") 'windmove-down)
+(global-set-key (kbd "<C-left>") 'windmove-left)
+(global-set-key (kbd "<C-right>") 'windmove-right)
+
+;; Mode switching
+(global-set-key (kbd "<f7>") 'flymake-mode)
+(global-set-key (kbd "<f8>") 'flyspell-mode)
+(global-set-key (kbd "<f9>") 'whitespace-mode)
+(global-set-key (kbd "<f10>") 'toggle-truncate-lines)
+
+;; Disable some default bindings from the builtin mouse.el
+(global-set-key [C-down-mouse-1] nil)
+(global-set-key [C-down-mouse-2] nil)
+(global-set-key [C-down-mouse-3] nil)
+(global-set-key [S-down-mouse-1] nil)
+(global-set-key [S-down-mouse-2] nil)
+(global-set-key [S-down-mouse-3] nil)
+
+;; Disable suspend-frame, it's annoying
+(global-set-key (kbd "C-z") nil)
+(global-set-key (kbd "C-x C-z") nil)
+
+;;;;;;;;;;;;;;;;;;;;;;;;
+;; Find SSH_AUTH_SOCK ;;
+;;;;;;;;;;;;;;;;;;;;;;;;
+
+(dolist (p '("keyring/ssh" "gcr/ssh" "openssh_agent"))
+ (let ((SSH_AUTH_SOCK (substitute-env-vars (concat "$XDG_RUNTIME_DIR/" p))))
+ (when (file-exists-p SSH_AUTH_SOCK)
+ (message "Found SSH_AUTH_SOCK %s" SSH_AUTH_SOCK)
+ (setenv "SSH_AUTH_SOCK" SSH_AUTH_SOCK))))
+
+;;;;;;;;;;;;;;;;;;;
+;; Load packages ;;
+;;;;;;;;;;;;;;;;;;;
(defvar my/original-load-path load-path)
-(defun my/add-to-load-path (dirname)
- (and (file-accessible-directory-p dirname)
- (seq-filter (lambda (file)
- (string-match-p "\\.el$" file))
- (directory-files dirname))
- (add-to-list 'load-path dirname)))
-
-(defun my/setup-load-path ()
- (setq load-path my/original-load-path)
-
- (my/add-to-load-path "~/.emacs.d/lisp")
-
- (dolist (dirname (directory-files "~/.emacs.d/packages" 'full "^[^\\.]"))
- (my/add-to-load-path dirname)
- (my/add-to-load-path (concat dirname "/lisp")))
-
- (message "Set load-path: %S" load-path))
-
-
-(my/setup-load-path)
-
-(load-library "my-backups")
-(load-library "my-direx")
-(load-library "my-editing-defuns")
-(load-library "my-file-modes")
-(load-library "my-find-test-file")
-(load-library "my-flycheck")
-(load-library "my-frame-title")
-(load-library "my-gui")
-(load-library "my-ivy")
-(load-library "my-keys")
-(load-library "my-kill-buffers")
-(load-library "my-minor-modes")
-(load-library "my-recentf")
-(load-library "my-scratch")
-(load-library "my-shackle")
-(load-library "my-vc")
-
-(message "Successfully loaded init.el")
+(defun my/reset-load-path ()
+ (setq load-path my/original-load-path))
+
+(message "Loading packages...")
+(load-file "~/.emacs.d/utils/init.el")
+(load-file "~/.emacs.d/completion/init.el")
+(load-file "~/.emacs.d/text-edit/init.el")
+(load-file "~/.emacs.d/file-modes/init.el")
+(load-file "~/.emacs.d/vc/init.el")
+(message "Finished loading init.el")