an absolute ton of .emacs cleanup
Getty Ritter
11 days ago
| 1 | ;; basic appearance bits | |
| 2 | ||
| 1 | ;; Global configuration: | |
| 2 | ||
| 3 | ;; don't do the startup stuff | |
| 3 | 4 | (setq initial-scratch-message "") |
| 4 | 5 | (setq inhibit-startup-message t) |
| 5 | 6 | (setq inhibit-startup-screen t) |
| 7 | ||
| 8 | ;; don't show the menu bar | |
| 6 | 9 | (menu-bar-mode 0) |
| 10 | (scroll-bar-mode 0) | |
| 11 | (tool-bar-mode 0) | |
| 12 | ||
| 13 | ;; set up sizing in a reasonable way | |
| 7 | 14 | (setq column-number-mode t) |
| 8 | 15 | (setq default-tab-width 4) |
| 9 | 16 | (setq-default indent-tabs-mode nil) |
| 10 | ||
| 11 | (setq c-default-style "stroustrup") | |
| 12 | (c-set-offset 'substatement-open 0) | |
| 13 | (add-to-list 'auto-mode-alist '("\\.edl\\'" . c-mode)) | |
| 14 | ||
| 15 | (setq scheme-program-name "guile") | |
| 17 | (set-fill-column 120) | |
| 18 | ||
| 19 | ;; miscellaneous global config | |
| 16 | 20 | (setq vc-follow-symlinks t) |
| 17 | ||
| 18 | (if (and (display-graphic-p) | |
| 19 | (not (getenv "BIG"))) | |
| 20 | (progn | |
| 21 | (scroll-bar-mode 0) | |
| 22 | (tool-bar-mode 0))) | |
| 23 | ||
| 24 | 21 | (setq require-final-newline t) |
| 25 | 22 | |
| 26 |
;; |
|
| 23 | ;; change backups to be less inline | |
| 27 | 24 | (make-directory "~/.emacs-autosave" t) |
| 28 | 25 | (make-directory "~/.emacs-backups" t) |
| 29 | 26 | (setq auto-save-file-name-transforms '((".*" "~/.emacs-autosave/" t))) |
| 30 | 27 | (setq backup-directory-alist '(("." . "~/.emacs-backups"))) |
| 31 | 28 | |
| 32 | ||
| 33 | 29 | |
| 34 | ||
| 35 | ;; *elpa setup | |
| 30 | ;; some disables | |
| 31 | (put 'upcase-region 'disabled nil) | |
| 32 | (put 'downcase-region 'disabled nil) | |
| 33 | (put 'narrow-to-region 'disabled nil) | |
| 34 | ||
| 35 | ||
| 36 | 36 | |
| 37 | ;; *elpa and package setup | |
| 37 | 38 | (require 'package) |