55 lines
2.4 KiB
EmacsLisp
55 lines
2.4 KiB
EmacsLisp
(add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10:antialias=true"))
|
|
|
|
(setq-default indent-tabs-mode nil) ; spaces, no tabs
|
|
(setq inhibit-startup-message t ; don't show welcome screen
|
|
require-final-newline t ; always append a newline to a
|
|
; file, if it doesn't have one
|
|
font-lock-maximum-decoration t ; denotes my interest in maximum
|
|
; possible fontification
|
|
inhibit-default-init t ; don't load default init
|
|
scroll-conservatively 10000 ; scroll only one line
|
|
browse-url-browser-function 'browse-url-generic
|
|
browse-url-generic-program "conkeror"
|
|
whitespace-style '(face trailing)
|
|
backup-directory-alist ; backup file location
|
|
`((".*" .
|
|
,temporary-file-directory))
|
|
auto-save-file-name-transforms ; autosave file location
|
|
`((".*" ,temporary-file-directory
|
|
t)))
|
|
|
|
(if (not window-system)
|
|
(setq linum-format "%d ")) ; add a space if we're in text
|
|
; mode
|
|
|
|
(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 line numbers in 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 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
|
|
(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)))
|
|
(let ((suffix (file-name-extension fname)))
|
|
(if (string-equal suffix "el")
|
|
(byte-compile-file fname))))))
|
|
(add-hook 'emacs-startup-hook
|
|
(lambda ()
|
|
(fullscreen)))
|