From 2d039442f1994315af7b50c8c8574697ad6b9964 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 15 Jun 2016 21:01:55 -0700 Subject: [PATCH] Move more general config stuff around --- dotfiles/emacs.d/README.org | 101 +++++++++++++++++++++--------------- 1 file changed, 60 insertions(+), 41 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index c97ef296..27e6ec01 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -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)) (setq visible-bell nil) #+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 These definitions silence the byte-compiler #+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 :if (and (boundp 'imalison:do-benchmark) imalison:do-benchmark)) #+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 *** Put them all in one directory #+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 pop-up-frames nil) #+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 #+BEGIN_SRC emacs-lisp (setq sentence-end-double-space nil) #+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 #+BEGIN_SRC emacs-lisp - - (put 'set-goal-column 'disabled nil) (auto-fill-mode -1) (setq indent-tabs-mode nil) ;; 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) @@ -188,31 +239,13 @@ This appears here so that it can accurately benchmark as much of startup as poss (setq inhibit-startup-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 ;; (setq server-use-tcp t) ;; 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. (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 ;; ring. Why wouldn't this be enabled by default? - (setq save-interprogram-paste-before-kill t) (setq-default cursor-type 'box) (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 ") (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-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 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 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) ;; y and n instead of yes and no - (defalias 'yes-or-no-p 'y-or-n-p) #+END_SRC #+BEGIN_SRC emacs-lisp (setq-default c-basic-offset 4