;; -*- mode: emacs-lisp; coding: utf-8; fill-column: 78 -*-

;;

;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.

;;

;; This file placed in public domain.

;;

;; For load order see README.

;; ======================================================================

;; Load path.

(defvar my-usr-lisp-dir

  (expand-file-name "~/usr/share/emacs/site-lisp")

  "Here live additional lisp packages.")

(when (file-directory-p my-usr-lisp-dir)

  (add-to-list 'load-path my-usr-lisp-dir)

  (let ((default-directory my-usr-lisp-dir))

    (normal-top-level-add-subdirs-to-load-path)))

(unless (boundp 'user-emacs-directory)

  (setq user-emacs-directory "~/.emacs.d/"))

(defvar my-lisp-dir

  (expand-file-name (concat user-emacs-directory "my/"))

  "Here live my lisp packages.")

(add-to-list 'load-path my-lisp-dir)

(setq custom-file (concat my-lisp-dir ".emacs-custom"))

(if (file-exists-p custom-file)

    (load custom-file))

(defvar my-lisp-autoload (concat my-lisp-dir "loaddefs.el")

  "Path to autoload for mode files.")

(defvar my-lisp-auth (concat my-lisp-dir ".emacs-auth")

  "Path to auth info for Emacs.")

(defvar my-lisp-autogen (concat my-lisp-dir ".emacs-autogen")

  "Path to automatically generated config file. It content depend on

  installation environment and it was overridden on install.")

(defvar my-lisp-pre (concat my-lisp-dir ".emacs-pre")

  "Path to file with pre-settings. Intended for local modifications.")

(defvar my-lisp-dotemacs (concat my-lisp-dir ".emacs-my")

  "Path to file with settings. Overwritten on install.")

(defvar my-lisp-post (concat my-lisp-dir ".emacs-post")

  "Path to file with post-settings. Intended for local modifications.")

(setq save-place-file (concat my-lisp-dir ".emacs-places"))

(mapc

 (lambda (fname)

   (if (file-exists-p fname)

       (load fname)))

 (list custom-file my-lisp-autogen my-lisp-auth my-lisp-pre my-lisp-autoload my-lisp-dotemacs my-lisp-post))