init-setup.el

(defvar *mh/lisp-base* (file-name-directory (file-truename user-init-file))
  "Base code directory; contains free-standing code and
subdirectories of other projects. Defaults to the directory
containing the user's initialisation file (including following
symlinks).")
(add-to-list 'load-path *mh/lisp-base*)
 
;;; site-specific customisations; for now, assume that this can be
;;; done by platform, since it's linux at work, OSX at home. Just
;;; name the file the same as is reported by system-type (#'load will
;;; stick the ".el" on the end automatically).
(load (subst-char-in-string ?/ ?- (symbol-name system-type))
      t) ; no error if it doesn't exist.