load-ini.el

;;; ==================================================================
;;; Author:  Jim Weirich
;;; File:    load-ini.el
;;; Purpose: Load the initialization files
;;; ==================================================================

;;; Debug Messags ====================================================

(defun msg (msg-text)
  "Write a message to the scratch buffer"
  (interactive "sMessage: ")
  (save-excursion
    (set-buffer (get-buffer-create "*msg*"))
    (goto-char (point-max))
    (insert-string msg-text)
    (insert-string "\n") ))

;;; Setup the load path ==============================================
(defun add-to-load-path (fn)
  "Add expanded file name to load path.
Trailing slashes are stripped and duplicate names are not added."
  (msg fn)
  (let ((ffn (expand-file-name fn)))
    (if (eq (substring ffn -1) "/")
	(setq ffn (substring ffn 0 -1)))
    (if (not (member ffn load-path))
	(setq load-path (cons ffn load-path)))))

(defun add-to-info-path (fn)
  "Add expanded file name to load path.
Trailing slashes are stripped and duplicate names are not added."
  (msg fn)
  (require 'info)
  (let ((ffn (expand-file-name fn)))
    (if (eq (substring ffn -1) "/")
	(setq ffn (substring ffn 0 -1)))
    (if (not (member ffn Info-directory-list))
	(setq Info-directory-list (cons ffn Info-directory-list)))))

(defun lib-is-available (lib-name)
  "Return the containing directory if the library name can be found in the load-path."
  (let ((paths load-path)
	(found nil))
    (while (and paths (not found))
      (if (or (file-readable-p (concat (car paths) "/" lib-name))
	      (file-readable-p (concat (car paths) "/" lib-name ".el"))
	      (file-readable-p (concat (car paths) "/" lib-name ".elc")))
	  (setq found (car paths)))
      (setq paths (cdr paths)))
    found))

;;; Loading Function =================================================

(defvar ini-directory (concat elisp-directory "/ini"))

(defvar ini-loaded ()
  "List of files loaded during initialization.")

(defvar ini-not-loaded ()
  "List of files that failed to load during initialization.")

(defun ini-try-load (inifn ext)
  "Attempt to load an ini-type elisp file."
  (let ((fn (concat ini-directory "/" inifn ext)))
    (if (file-readable-p fn)
	(progn
	  (message (concat "Loading " inifn))
	  (load-file fn)
	  (setq ini-loaded (cons inifn ini-loaded)) ))))

(defun ini-load (inifn)
  "Load a ini-type elisp file"
  (cond ((ini-try-load inifn ".elc"))
	((ini-try-load inifn ".el"))
	(t (setq ini-not-loaded (cons inifn ini-not-loaded))
	   (message (concat inifn " not found")))))

(require 'font-lock)

(if (file-readable-p "/usr/local/share/emacs/site-lisp")
    (add-to-load-path "/usr/local/share/emacs/site-lisp") )

;;; Now load all the ini-xxx files in the initialization directory

(let ((ini-directory (concat elisp-directory "/ini"))
      (files (directory-files ini-directory nil "^.*\\.el$")))
  (while (not (null files))
    (ini-load (substring (car files) 0 -3))
    (setq files (cdr files)) ))