 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; load-path ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (eval-and-compile
-  (defvar my/user-directory (expand-file-name
+  (defconst my/user-directory (expand-file-name
                              (if (boundp 'user-emacs-directory)
                                  user-emacs-directory
                                "~/.emacs.d/")))
-  (defvar my/scratch-directory (concat my/user-directory "etc/"))
-  (defvar my/elisp-directory (concat my/user-directory "elisp/"))
-  (defvar my/plugins-directory (concat my/user-directory "plugins/"))
+  (defconst my/scratch-directory (concat my/user-directory "etc/"))
+  (defconst my/elisp-directory (concat my/user-directory "elisp/"))
+  (defconst my/plugins-directory (concat my/user-directory "plugins/"))
   (add-to-list 'load-path my/plugins-directory)
   (add-to-list 'load-path my/elisp-directory)
   (add-to-list 'load-path (concat my/user-directory "modes/"))
   (add-to-list 'load-path (concat my/user-directory "custom/"))
   )
-(defvar my/user-settings
+(defconst my/user-settings
   (concat my/user-directory "settings/user/" user-login-name))
 (load my/user-settings t)
+(defconst my/system-name
+  (car (reverse (split-string (symbol-name system-type) "\\/" t)))
+  "A simplified result from uname.")
+(defconst my/os-dir
+  (concat my/user-directory "settings/os/" my/system-name "/")
+  "Directory in which os-specific settings reside.")
+(defconst my/gui-dir
+  (concat my/user-directory "settings/gui/")
+  "A path to a directory containing window-system-specific settings.")
+
 
 (set-register ?~ (cons 'file "~/"))
 (set-register ?\C-i (cons 'file user-init-file)) ;edit init file

         (time-stamp)
         ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; site ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my/load-site-file (name)
  "Load a site file associated with site NAME, and perform related

;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Friday, February 27, 2015
;; Version: 1.0
;; Modified Time-stamp: <2016-01-20 16:56:11 dharms>
;; Modified by: Dan Harms
;; Keywords:

