.emacs
author Oleksandr Gavenko <gavenkoa@gmail.com>
Thu, 28 Jan 2010 21:31:18 +0200
changeset 276 35d90ffc94e7
parent 235 e8dde6202139
child 277 c37e79da4b53
permissions -rw-r--r--
Load autoloads instead all mode files for speed.

;; -*- mode: lisp; coding: cp1251 -*-
;;
;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
;;
;; This file placed in public domain.
;;
;; ~/.emacs firstly load ~/.emacs-pre, then ~/.emacs-my, then ~/.emacs-post.

;; ======================================================================
;; Load path.
(defvar my-usr-el-dir
  (expand-file-name "~/usr/share/emacs/site-lisp")
  "Here live additional lisp packages.")
(add-to-list 'load-path my-usr-el-dir t)
(defvar my-lisp-dir
  (expand-file-name "~/.emacs.d/my-lisp")
  "Here live my lisp packages.")
(add-to-list 'load-path my-lisp-dir t)

(defvar my-autoload (concat my-lisp-dir "/autoload-my.el")
  "Path to autoload for mode files.")
(defvar dot-emacs-pre (expand-file-name "~/.emacs-pre")
  "Path to file with pre-loaded custom settings.")
(defvar dot-emacs-post (expand-file-name "~/.emacs-post")
  "Path to file with post-loaded custom settings.")

(add-to-list 'auto-mode-alist '("\\.emacs-.*" . emacs-lisp-mode) t)

;; pre-load custom settings
(if (file-exists-p dot-emacs-pre)
    (load dot-emacs-pre))

(if (file-exists-p my-autoload)
    (load my-autoload))

;; load main customization
(load "~/.emacs-my")

;; post-load custom settings
(if (file-exists-p dot-emacs-post)
    (load dot-emacs-post))

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(pc-select-meta-moves-sexps t)
 '(read-quoted-char-radix 16)
 )
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(hl-line ((t (:inherit highlight :background "light yellow")))))