From e0ecb3b26e102a7278b85b666f5c3debaeb4c84a Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 30 Dec 2013 22:55:00 +0100 Subject: Reorder unconditional settings --- .emacs.d/init.el | 66 +++++++++++++++++++++++++++++--------------------------- 1 file changed, 34 insertions(+), 32 deletions(-) (limited to '.emacs.d/init.el') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 7724987..5199005 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -823,15 +823,45 @@ If no direction is given, don't split." (defalias 'yes-or-no-p 'y-or-n-p) (defalias 'dabbrev-expand 'hippie-expand) +;;;; Unconditional settings + +(setq gnus-init-file "~/.emacs.d/site-lisp/gnus-init") + +(set-fontset-font "fontset-default" 'unicode + (font-spec :family "Liberation Mono" + :width 'normal + :size 12.4 + :weight 'normal)) + +(setq-default bidi-paragraph-direction 'left-to-right) +(setq-default tab-width 4) +(setq-default indent-tabs-mode nil) +(setq-default truncate-lines t) +(setq custom-file "~/.emacs.d/custom.el") +(setq default-frame-alist + `((border-width . 0) + (internal-border-width . 0) + (vertical-scroll-bars . nil) + (menu-bar-lines . nil) + (tool-bar-lines . nil) + (font . "Cosmic Sans Neue Mono:pixelsize=17"))) +(setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) +(setq message-log-max 1000) +(setq redisplay-dont-pause t) +(setq use-dialog-box nil) +(setq user-full-name "Tom Willemse") +(setq window-combination-resize t) +(setq scroll-preserve-screen-position t) + +;; Can't be put in an eval-after-load or such because by then it will +;; be too late. +(setq elnode-do-init nil) + ;;;; uniquify (stante-after uniquify (setq uniquify-buffer-name-style 'post-forward)) -;;;; gnus - -(setq gnus-init-file "~/.emacs.d/site-lisp/gnus-init") - ;;;; Visual cues (turn-off menu-bar-mode scroll-bar-mode tool-bar-mode blink-cursor-mode @@ -872,12 +902,6 @@ If no direction is given, don't split." (clisp ("clisp") :coding-system utf-8-unix)) slime-default-lisp 'sbcl)) -(set-fontset-font "fontset-default" 'unicode - (font-spec :family "Liberation Mono" - :width 'normal - :size 12.4 - :weight 'normal)) - (stante-after simple (define-key special-mode-map "z" #'kill-this-buffer)) @@ -1242,29 +1266,7 @@ If no direction is given, don't split." ((vala) oni:vala-mode-func)) -(setq-default bidi-paragraph-direction 'left-to-right) -(setq-default tab-width 4) -(setq-default indent-tabs-mode nil) -(setq-default truncate-lines t) -(setq custom-file "~/.emacs.d/custom.el") -(setq default-frame-alist - `((border-width . 0) - (internal-border-width . 0) - (vertical-scroll-bars . nil) - (menu-bar-lines . nil) - (tool-bar-lines . nil) - (font . "Cosmic Sans Neue Mono:pixelsize=17"))) -(setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) -(setq message-log-max 1000) -(setq redisplay-dont-pause t) -(setq use-dialog-box nil) -(setq user-full-name "Tom Willemse") -(setq window-combination-resize t) -(setq scroll-preserve-screen-position t) (add-to-list 'debug-ignored-errors "^Can't shift all lines enough") -;; Can't be put in an eval-after-load or such because by then it will -;; be too late. -(setq elnode-do-init nil) (enable '(downcase-region narrow-to-page narrow-to-region scroll-left upcase-region)) -- cgit v1.2.3-54-g00ecf