Docker compose in a ansi-term

docker-compose.el

(defun open-project-docker-compose ()
  (interactive)
  (let ((current-ansi-window (get-buffer-window "*ansi-term*")))
    (select-window current-ansi-window)
    (split-window)
    (ansi-term "/bin/zsh" "docker-compose")
    (comint-send-string "*docker-compose*" "cd /Users/billsb/code/keymaker\n")
    (comint-send-string "*docker-compose*" "docker-compose exec keymaker /bin/sh\n")
    (message "Split window %s" current-ansi-window)))

setkeys.el

(global-set-key (kbd "<f19>") 'open-project-docker-compose)