(require 'package) (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) (add-to-list 'package-archives '("org" . "http://orgmode.org/elpa") t) (package-initialize) (unless (package-installed-p 'org) (package-refresh-contents) (package-install 'org)) (unless (package-installed-p 'use-package) (package-refresh-contents) (package-install 'use-package)) (eval-when-compile (require 'use-package)) (require 'bind-key) (setq user-full-name "Paul Walker") (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) (when (file-exists-p custom-file) (load custom-file)) (when window-system (tool-bar-mode 0) (tooltip-mode 0)) ;; initial window (setq initial-frame-alist '((width . 102) ; characters in a line (height . 44))) ; number of lines ;; sebsequent frame (setq default-frame-alist '((width . 100) ; characters in a line (height . 42))) ; number of lines ;; No welcome screen - opens directly in scratch buffer (setq inhibit-startup-message t initial-scratch-message "" initial-major-mode 'fundamental-mode inhibit-splash-screen t) (setq visible-bell nil) (setq ring-bell-function 'ignore) (fset 'yes-or-no-p 'y-or-n-p) (setq save-abbrevs 'silently) (setq-default abbrev-mode t) (setq gdb-many-windows t gdb-show-main t) (setq tramp-default-method "ssh" tramp-backup-directory-alist backup-directory-alist tramp-ssh-controlmaster-options "ssh") (setq sentence-end-double-space nil) (savehist-mode) ;; Recentf mode changes (setq recentf-max-saved-items 1000 recentf-exclude '("/tmp/" "/ssh:")) (recentf-mode) (global-set-key [C-Z] 'undo)