 ;; Profile Properties:
 ;;  - External:
 ;;  - Internal:
-;; :root-dir :project-name :inited :init
+;; :root-dir :project-name :inited :initfun
 ;; :remote-prefix :remote-host :root-stem
 
 ;; hooks
-(defvar prof-on-profile-inited '()
-  "Hooks run when a profile is first loaded.
+(defvar prof-on-profile-pre-init '()
+  "Hooks run just before a profile is first initialized.
+Hook functions are called with one parameter, the new profile.")
+(defvar prof-on-profile-post-init '()
+  "Hooks run just after a profile is first initialized.
 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-09 17:25:23 dharms>
;; Modified by: Dan Harms
;; Keywords: profiles project


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-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)
