Magit with multiple profiles

magit-profiles.el

;;;; ================= Way 1 =================

;; Before commit with work profile use M-x magit-status-work
;; 
(defun magit-status-work ()
 (interactive)
 (setenv "GIT_AUTHOR_NAME"  "work user")
 (setenv "GIT_AUTHOR_EMAIL" "[email protected]")
 (magit-status default-directory))

;; Before commit with home profile use M-x magit-status-home
;;
(defun magit-status-home ()
  (interactive)
  (setenv "GIT_AUTHOR_NAME"  "home-user")
  (setenv "GIT_AUTHOR_EMAIL" "[email protected]")
  (magit-status default-directory))

;;; ============== Way 2 ==================
;;
;;  set magit user definitively for current Emacs session before run magit-status.
;;

(defun magit-home-mode ()
  (interactive)
  (setenv "GIT_AUTHOR_NAME"  "home-user")
  (setenv "GIT_AUTHOR_EMAIL" "[email protected]"))

(defun magit-work-mode ()
  (interactive)
   (setenv "GIT_AUTHOR_NAME"  "work user")
   (setenv "GIT_AUTHOR_EMAIL" "[email protected]"))