126 lines
4.5 KiB
EmacsLisp
126 lines
4.5 KiB
EmacsLisp
(provide 'core)
|
|
|
|
(defconst is-mac (eq system-type 'darwin))
|
|
(defconst is-linux (eq system-type 'gnu/linux))
|
|
|
|
;; Setup theme
|
|
(add-to-list 'custom-theme-load-path *themes-dir)
|
|
(load-theme *theme t)
|
|
|
|
;; Emacs under-the-hood
|
|
(global-auto-revert-mode 1) ; revert buffers for changed files
|
|
|
|
(prefer-coding-system 'utf-8)
|
|
(setq-default load-prefer-newer t) ; load newer .el over older .elc
|
|
(setq-default gc-cons-threshold 50000000) ; avoid garbage collection (default is 400k)
|
|
(setq redisplay-dont-pause t)
|
|
(fset 'yes-or-no-p 'y-or-n-p) ; y/n instead of yes/no
|
|
(setq confirm-kill-emacs nil)
|
|
(setq-default enable-recursive-minibuffers nil)
|
|
|
|
;; Show keystrokes in [near] realtime
|
|
(setq echo-keystrokes 0.02)
|
|
|
|
;; Sane scroll settings
|
|
(setq scroll-margin 3
|
|
scroll-conservatively 100000
|
|
scroll-preserve-screen-position 1)
|
|
|
|
(setq inhibit-startup-screen t ; don't show EMACs start screen
|
|
inhibit-splash-screen t
|
|
inhibit-startup-buffer-menu t
|
|
inhibit-startup-echo-area-message t
|
|
initial-major-mode 'text-mode
|
|
initial-scratch-message nil
|
|
initial-scratch-buffer nil) ; empty scratch buffer
|
|
|
|
;;; Backups
|
|
;; If I ever enable backups/autosaves, then change where they go
|
|
(setq make-backup-files nil ; Don't want any backup files
|
|
auto-save-list-file-name nil ; Don't want any .saves files
|
|
auto-save-default nil ; Don't want any auto saving
|
|
create-lockfiles nil)
|
|
|
|
(setq backup-directory-alist `((".*" . ,"/tmp/emacs/")))
|
|
(setq auto-save-file-name-transforms `((".*" ,"/tmp/emacs/" t)))
|
|
;; Save history across sessions
|
|
(setq savehist-additional-variables
|
|
;; search entries
|
|
'(search ring regexp-search-ring)
|
|
;; save every 5 minutes
|
|
savehist-autosave-interval 300
|
|
;; keep the home clean
|
|
savehist-file (expand-file-name "savehist" "/tmp/emacs/"))
|
|
(savehist-mode 1)
|
|
;; Save cursor location across sessions
|
|
(require 'saveplace)
|
|
(setq-default save-place t)
|
|
(setq save-place-file (expand-file-name "saveplace" "/tmp/emacs/"))
|
|
|
|
;; window layout undo/redo, keymaps in core-keymaps.el
|
|
(when (fboundp 'winner-mode) (winner-mode 1))
|
|
|
|
;;;; Advice ;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Make next/previous-buffer skip special buffers
|
|
(defadvice next-buffer (after avoid-messages-buffer-in-next-buffer)
|
|
"Advice around `next-buffer' to avoid going into the *Messages* buffer."
|
|
(when (string-match "\\`\\*.+\\*\\'" (buffer-name)) (next-buffer)))
|
|
(defadvice previous-buffer (after avoid-messages-buffer-in-previous-buffer)
|
|
"Advice around `previous-buffer' to avoid going into the *Messages* buffer."
|
|
(when (string-match "\\`\\*.+\\*\\'" (buffer-name)) (previous-buffer)))
|
|
|
|
;;;; My personal minor mode ;;;;;;;;
|
|
(defvar my-mode-map (make-sparse-keymap))
|
|
(define-minor-mode my-mode :global t :keymap my-mode-map)
|
|
|
|
;; Automatic minor modes
|
|
(defvar auto-minor-mode-alist ()
|
|
"Alist of filename patterns vs correpsonding minor mode functions, see `auto-mode-alist'
|
|
All elements of this alist are checked, meaning you can enable multiple minor modes for the same regexp.")
|
|
(defun enable-minor-mode-based-on-extension ()
|
|
"check file name against auto-minor-mode-alist to enable minor modes
|
|
the checking happens for all pairs in auto-minor-mode-alist"
|
|
(when buffer-file-name
|
|
(let ((name buffer-file-name)
|
|
(remote-id (file-remote-p buffer-file-name))
|
|
(alist auto-minor-mode-alist))
|
|
;; Remove backup-suffixes from file name.
|
|
(setq name (file-name-sans-versions name))
|
|
;; Remove remote file name identification.
|
|
(when (and (stringp remote-id)
|
|
(string-match-p (regexp-quote remote-id) name))
|
|
(setq name (substring name (match-end 0))))
|
|
(while (and alist (caar alist) (cdar alist))
|
|
(if (string-match (caar alist) name)
|
|
(funcall (cdar alist) 1))
|
|
(setq alist (cdr alist))))))
|
|
|
|
(add-hook 'find-file-hook 'enable-minor-mode-based-on-extension)
|
|
|
|
;;;; Load the rest ;;;;;;;;;;;;;;;;;;
|
|
(require 'shut-up)
|
|
;; (when noninteractive
|
|
;; (shut-up-silence-emacs))
|
|
|
|
;; Package management bootstrap
|
|
(setq package-enable-at-startup nil
|
|
package-archive-exclude-alist
|
|
'(("melpa" org-trello)
|
|
("melpa" org)
|
|
("marmalade" org)
|
|
("gnu" org))
|
|
delete-old-versions t)
|
|
|
|
(let ((default-directory *elisp-dir))
|
|
(normal-top-level-add-to-load-path '("."))
|
|
(normal-top-level-add-subdirs-to-load-path))
|
|
|
|
(require 'use-package)
|
|
(require 'diminish)
|
|
|
|
(require 'core-ui)
|
|
(require 'core-editor)
|
|
(if is-mac (require 'core-osx))
|
|
|
|
(add-hook 'after-init-hook (lambda() (require 'my-keymaps)))
|