 ;;; C-x C-z: switch personal configs
+
+(require 'git)
 
 (defvar kotct/user-current-username
   nil


(defun kotct/user-fetch-config (username)
  (message "fetching config for %s" username)
  (error "not gonna happen cause i suck"))

(defun kotct/user-get-default-username ()
  "Look up the default username set on this machine."

  (unless username
    (setf username
          (ido-completing-read "Switch to username: "
                               (directory-files "~/.emacs.d/lisp/user/users/" nil "^[^.].*$"))))
  (kotct/user-unload-username)
  ;; make sure that if the load fails we reload the stuff we just unloaded
  ;; so that we are actually loaded with current-username's config

  (message "loading with username: %s" username)
  (condition-case err
      (kotct/user-load-username username)
    (test (message "handling error, username: %s" kotct/user-current-username)
           (kotct/user-load-username kotct/user-current-username)
           (signal (car err) (cdr err))))
  ;; maybe then also reload/rerun all the hooks and stuff for open buffers
  )
