;; -*- 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.

(defun my-find-subdirs (dir)
  (if (file-directory-p dir)
      (cons dir (apply 'append (mapcar 'my-find-subdirs (directory-files dir t "^[^.]")) ) )
    ))
(defun my-add-subdirs-to-load-path (dir)
  (mapc
   (lambda (d)
     (add-to-list 'load-path d t)
     (message "Load-path updated with: %s" d)
     )
   (my-find-subdirs dir)) )

(defvar my-usr-el-dir
  (expand-file-name "~/usr/share/emacs/site-lisp")
  "Here live additional lisp packages.")
(my-add-subdirs-to-load-path my-usr-el-dir)

(defvar my-lisp-dir
  (expand-file-name "~/.emacs.d/my-lisp")
  "Here live my lisp packages.")
(my-add-subdirs-to-load-path my-lisp-dir)

(defvar my-autoload (concat my-lisp-dir "/autoload-my.el")
  "Path to autoload for mode files.")
(defvar my-auth (expand-file-name "~/.emacs-auth")
  "Path to auth info for Emacs.")
(defvar dot-emacs-autogen (expand-file-name "~/.emacs-autogen")
  "Path to automatically generated config file. It content depend on
  installation environment and it was overridden on install.")
(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.")


(if (file-exists-p dot-emacs-autogen)
    (load dot-emacs-autogen))

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

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

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

(setq custom-file "~/.emacs-custom.el")
(if (file-exists-p custom-file)
    (load custom-file))

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

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