Move more general config stuff around

This commit is contained in:
Ivan Malison 2016-06-15 21:01:55 -07:00
parent a8b89206c4
commit 2d039442f1

View File

@ -32,6 +32,10 @@ Death to any gui elements in emacs! Do this EARLY so that emacs doesn't redispla
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) (when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(setq visible-bell nil) (setq visible-bell nil)
#+END_SRC #+END_SRC
Tooltips are annoying:
#+BEGIN_SRC emacs-lisp
(if (fboundp 'tooltip-mode) (tooltip-mode -1) (setq tooltip-use-echo-area t))'
#+END_SRC
** Byte-Compiler ** Byte-Compiler
These definitions silence the byte-compiler These definitions silence the byte-compiler
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -139,6 +143,18 @@ This appears here so that it can accurately benchmark as much of startup as poss
(use-package benchmark-init (use-package benchmark-init
:if (and (boundp 'imalison:do-benchmark) imalison:do-benchmark)) :if (and (boundp 'imalison:do-benchmark) imalison:do-benchmark))
#+END_SRC #+END_SRC
** Sane Defaults
#+BEGIN_SRC emacs-lisp
(global-auto-revert-mode)
(show-paren-mode 1)
(setq reb-re-syntax 'string)
#+END_SRC
** Line Numbers
#+BEGIN_SRC emacs-lisp
(line-number-mode t)
(column-number-mode t)
(global-linum-mode t)
#+END_SRC
** Backups ** Backups
*** Put them all in one directory *** Put them all in one directory
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -160,23 +176,58 @@ This appears here so that it can accurately benchmark as much of startup as poss
(setq ns-pop-up-frames nil) (setq ns-pop-up-frames nil)
(setq pop-up-frames nil) (setq pop-up-frames nil)
#+END_SRC #+END_SRC
*** boolean (yes-or-no)
#+BEGIN_SRC emacs-lisp
(defadvice yes-or-no-p (around prevent-dialog activate)
"Prevent yes-or-no-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
(defadvice y-or-n-p (around prevent-dialog-yorn activate)
"Prevent y-or-n-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
(defalias 'yes-or-no-p 'y-or-n-p)
#+END_SRC
*** No dialog boxes
#+BEGIN_SRC emacs-lisp
(setq use-dialog-box nil)
#+END_SRC
** Splitting
#+BEGIN_SRC emacs-lisp
(defun split-horizontally-for-temp-buffers () (split-window-horizontally))
(add-hook 'temp-buffer-setup-hook 'split-horizontally-for-temp-buffers)
(setq split-height-threshold nil)
(setq split-width-threshold 160)
#+END_SRC
** Fill Setup ** Fill Setup
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq sentence-end-double-space nil) (setq sentence-end-double-space nil)
#+END_SRC #+END_SRC
** Encoding
UTF-8 everywhere
#+BEGIN_SRC emacs-lisp
(set-language-environment 'utf-8)
(set-keyboard-coding-system 'utf-8-mac) ; For old Carbon emacs on OS X only
(setq locale-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(unless (eq system-type 'windows-nt)
(set-selection-coding-system 'utf-8))
(prefer-coding-system 'utf-8)
#+END_SRC
Disable CJK coding/encoding (Chinese/Japanese/Korean characters)
#+BEGIN_SRC emacs-lisp
(setq utf-translate-cjk-mode nil)
#+END_SRC
** Misc ** Misc
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(put 'set-goal-column 'disabled nil) (put 'set-goal-column 'disabled nil)
(auto-fill-mode -1) (auto-fill-mode -1)
(setq indent-tabs-mode nil) (setq indent-tabs-mode nil)
;; No hsplits. EVER. ;; No hsplits. EVER.
(defun split-horizontally-for-temp-buffers () (split-window-horizontally))
(add-hook 'temp-buffer-setup-hook 'split-horizontally-for-temp-buffers)
(setq split-height-threshold nil)
(setq split-width-threshold 160)
(setq confirm-nonexistent-file-or-buffer nil) (setq confirm-nonexistent-file-or-buffer nil)
@ -188,31 +239,13 @@ This appears here so that it can accurately benchmark as much of startup as poss
(setq inhibit-startup-message t (setq inhibit-startup-message t
inhibit-startup-echo-area-message t) inhibit-startup-echo-area-message t)
(if (fboundp 'tooltip-mode) (tooltip-mode -1) (setq tooltip-use-echo-area t))
(setq use-dialog-box nil)
(defadvice yes-or-no-p (around prevent-dialog activate)
"Prevent yes-or-no-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
(defadvice y-or-n-p (around prevent-dialog-yorn activate)
"Prevent y-or-n-p from activating a dialog"
(let ((use-dialog-box nil))
ad-do-it))
(global-auto-revert-mode)
;; This makes it so that emacs --daemon puts its files in ~/.emacs.d/server ;; This makes it so that emacs --daemon puts its files in ~/.emacs.d/server
;; (setq server-use-tcp t) ;; (setq server-use-tcp t)
;; Display line and column numbers in mode line. ;; Display line and column numbers in mode line.
(line-number-mode t)
(column-number-mode t)
(global-linum-mode t)
(setq visible-bell t)
(show-paren-mode 1)
;; Make buffer names unique. ;; Make buffer names unique.
(setq uniquify-buffer-name-style 'forward) (setq uniquify-buffer-name-style 'forward)
@ -231,7 +264,6 @@ This appears here so that it can accurately benchmark as much of startup as poss
;; Preserve pastes from OS when saving a new item to the kill ;; Preserve pastes from OS when saving a new item to the kill
;; ring. Why wouldn't this be enabled by default? ;; ring. Why wouldn't this be enabled by default?
(setq save-interprogram-paste-before-kill t)
(setq-default cursor-type 'box) (setq-default cursor-type 'box)
(setq-default cursor-in-non-selected-windows 'bar) (setq-default cursor-in-non-selected-windows 'bar)
@ -247,7 +279,7 @@ This appears here so that it can accurately benchmark as much of startup as poss
(setq display-time-format "%a, %b %d, %T ") (setq display-time-format "%a, %b %d, %T ")
(display-time-mode 1) (display-time-mode 1)
(setq reb-re-syntax 'string) ;; the only sane option... ;; the only sane option...
(setq ediff-split-window-function 'split-window-horizontally) (setq ediff-split-window-function 'split-window-horizontally)
(setq ediff-window-setup-function 'ediff-setup-windows-plain) (setq ediff-window-setup-function 'ediff-setup-windows-plain)
@ -264,18 +296,6 @@ This appears here so that it can accurately benchmark as much of startup as poss
(setq initial-scratch-message "") (setq initial-scratch-message "")
(setq utf-translate-cjk-mode nil) ; disable CJK coding/encoding
; (Chinese/Japanese/Korean
; characters)
(set-language-environment 'utf-8)
(set-keyboard-coding-system 'utf-8-mac) ; For old Carbon emacs on OS X only
(setq locale-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(unless (eq system-type 'windows-nt)
(set-selection-coding-system 'utf-8))
(prefer-coding-system 'utf-8)
(setq checkdoc-force-docstrings-flag nil (setq checkdoc-force-docstrings-flag nil
checkdoc-arguments-in-order-flag nil) checkdoc-arguments-in-order-flag nil)
@ -285,7 +305,6 @@ This appears here so that it can accurately benchmark as much of startup as poss
(setq sentence-end-double-space nil) (setq sentence-end-double-space nil)
;; y and n instead of yes and no ;; y and n instead of yes and no
(defalias 'yes-or-no-p 'y-or-n-p)
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq-default c-basic-offset 4 (setq-default c-basic-offset 4