   (unless username
     (setf username
           (ido-completing-read "Switch to username: "
-                               (cddr (directory-files "~/.emacs.d/lisp/user/users/")))))
+                               (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)
-    (error (kotct/user-load-username kotct/user-current-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
   )


(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."

;;; C-x C-z: switch personal configs

(require 'git)

(defvar kotct/user-current-username
  nil
