          (time-stamp)
          ))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; os ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(let* ((system-file (concat my/os-dir my/system-name)))
+  ;; load os file
+  (load system-file))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gui ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(let ((gui window-system)
+      gui-file)
+  ;; load gui file
+  (setq gui-file (concat my/gui-dir (if (null gui) "tty" (symbol-name gui))))
+  (load gui-file))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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-19 21:05:20 dharms>
;; Modified by: Dan Harms
;; Keywords:



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; load-path ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eval-and-compile
  (defconst my/user-directory (expand-file-name
                             (if (boundp 'user-emacs-directory)
                                 user-emacs-directory
                               "~/.emacs.d/")))
  (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/"))
  )
(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
