 
 (add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))
 
+; https://github.com/ajtulloch/dots/tree/master/emacs
+
 ; common lisp goodies, loop
 (require 'cl)
 
-;; Functions (load all files in defuns-dir)
-;(setq defuns-dir (expand-file-name "lisp/defuns" user-emacs-directory))
-;(dolist (file (directory-files defuns-dir t "\\w+"))
-;  (when (file-regular-p file)
-;    (load file)))
-
 (require 'use-package)
-;(setq use-package-verbose t)
 
 ; Load setup/init files
 (mapc 'load (directory-files (expand-file-name "lisp" user-emacs-directory) t "^[0-9]+.*\.el$"))

; No splash screen please ... jeez
(setq inhibit-startup-message t)
(setq is-mac (equal system-type 'darwin))
(setq is-linux (equal system-type 'gnu/linux))
(setq is-windows-nt (equal system-type 'windows-nt))


(setq custom-file (expand-file-name "lisp/99-custom.el" user-emacs-directory))

;; (add-hook 'after-init-hook (lambda ()
;; 			     (setq initial-scratch-message
;;                  (message "Startup time: %s" (emacs-init-time)))))
