(require 'map)
(require 'shell-maker)
(defvar greeter-shell--config
  (make-shell-maker-config
   :name "Greeter"
   :execute-command
   (lambda (command shell)
     (funcall (map-elt shell :write-output)
              (format "Hello \"%s\"." command))
     (funcall (map-elt shell :finish-output) t))))
(defun greeter-shell ()
  "Start a Greeter shell."
  (interactive)
  (shell-maker-start greeter-shell--config))

(require 'map)
(require 'shell-maker)
(defvar greeter-shell--config
  (make-shell-maker-config
   :name "Greeter"
   :execute-command
   (lambda (command shell)
     (mapc (lambda (char)
             (sit-for 0.008)
             (funcall (map-elt shell :write-output)
                      (format "%c" char)))
           (format "Hello \"%s\". Nice to see you again!

It's been %d days since I last saw you."
                   command (random 30)))
     (funcall (map-elt shell :finish-output) t))))
(defun greeter-shell ()
  "Start a Greeter shell."
  (interactive)
  (shell-maker-start greeter-shell--config))