 This may or may not be for the first time."
   (unless (prof-get prof :inited)
     (prof-put prof :inited t)
-    (run-hook-with-args 'prof-on-profile-inited prof)
-    (prof--safe-funcall prof :init)
+    (run-hook-with-args 'prof-on-profile-pre-init prof)
+    (prof--safe-funcall prof :initfun)
+    ;; todo (profile-load prof)
+    (run-hook-with-args 'prof-on-profile-post-init prof)
     (prof--log-profile-loaded prof)
     )
   (unless (eq prof prof-current)

;; Profile Properties:
;;  - External:
;;  - Internal:
;; :root-dir :project-name :inited :init
;; :remote-prefix :remote-host :root-stem

;; hooks
(defvar prof-on-profile-inited '()
  "Hooks run when a profile is first loaded.
Hook functions are called with one parameter, the new profile.")
(defvar prof-on-profile-loaded '()
  "Hooks run whenever a profile becomes active.

;; Author: Dan Harms <enniomore@icloud.com>
;; Created: Thursday, November  3, 2016
;; Version: 1.0
;; Modified Time-stamp: <2017-01-16 08:41:48 dharms>
;; Modified by: Dan Harms
;; Keywords: profiles project

