diff options
Diffstat (limited to 'emacs.d/10-settings.el')
| -rw-r--r-- | emacs.d/10-settings.el | 48 |
1 files changed, 30 insertions, 18 deletions
diff --git a/emacs.d/10-settings.el b/emacs.d/10-settings.el index d5ede72..b7e3f85 100644 --- a/emacs.d/10-settings.el +++ b/emacs.d/10-settings.el @@ -1,32 +1,44 @@ (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10:antialias=true")) -(setq inhibit-startup-message t) ; don't show welcome screen -(setq require-final-newline t) ; always append a newline to a - ; file, if it doesn't have one +(setq inhibit-startup-message t) ; don't show welcome screen +(setq require-final-newline t) ; always append a newline to a + ; file, if it doesn't have one (setq font-lock-maximum-decoration t) ; denotes my interest in maximum - ; possible fontification -(setq inhibit-default-init t) ; don't load default init -(setq-default indent-tabs-mode nil) ; spaces, no tabs + ; possible fontification +(setq inhibit-default-init t) ; don't load default init +(setq-default indent-tabs-mode nil) ; spaces, no tabs +(setq scroll-conservatively 10000) ; scroll only one line +(setq whitespace-style '(face trailing)) -(setq backup-directory-alist `((".*" . ,temporary-file-directory))) - ; backup file location -(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))) - ; autosave file location +(setq backup-directory-alist ; backup file location + `((".*" . + ,temporary-file-directory))) +(setq auto-save-file-name-transforms ; autosave file location + `((".*" ,temporary-file-directory + t))) (fset 'yes-or-no-p 'y-or-n-p) ; switch yes or no to y or n -(tool-bar-mode -1) ; no toolbar -(menu-bar-mode -1) ; no menubar -(scroll-bar-mode -1) ; no scrollbars -(line-number-mode -1) ; don't show line number in splitter -(global-linum-mode t) ; show them in the gutter -(column-number-mode t) ; show column number in splitter +(tool-bar-mode -1) ; no toolbar +(menu-bar-mode -1) ; no menubar +(scroll-bar-mode -1) ; no scrollbars +(line-number-mode -1) ; don't show line number in + ; splitter +(global-linum-mode t) ; show them in the gutter +(column-number-mode t) ; show column number in splitter (global-font-lock-mode t) ; show syntax highlighting, old (delete-selection-mode t) ; delete selection upon typing -(show-paren-mode t) +(show-paren-mode t) ; show the opposite paren + +(defun buffer-major-mode (buffer-or-string) + (with-current-buffer buffer-or-string major-mode)) ;; Byte-compile elisp files on save -(add-hook 'before-save-hook 'delete-trailing-whitespace) +(add-hook 'before-save-hook + (lambda () + (if (not (eq (buffer-major-mode (current-buffer)) + 'markdown-mode)) + (delete-trailing-whitespace)))) (add-hook 'after-save-hook (lambda () (let ((fname (buffer-file-name))) |