lsp-docker.el

(defun lsp-docker--with-plist-keys (list &rest required-keys happy-fn sad-fn)
  "handle when keys exist & don't exist"
  (let* ((existing-keys (mapcar 'car list))
         (difference (-difference required-keys existing-keys)))
    (if (> 0 (length difference))
        (funcall happy-fn (--map (plist-get list it) required-keys))
      (error "list is missing %s" difference))))


(defun lsp-docker--docker-command (config)
  "Return the exact docker command to run to turn on the LSP server"
  (lsp-docker--with-plist-keys config '(:docker-image-name
                                        :container-name
                                        :container-command
                                        :host-work-dir
                                        :container-work-dir)
                               (lambda (docker-image-name
                                        container-name
                                        container-command
                                        host-work-dir
                                        container-work-dir)
                                 (split-string
                                  (format "docker run --name %s --rm -v %s:%s -i %s %s"
                                          container-name
                                          host-work-dir
                                          container-work-dir
                                          docker-image-name
                                          container-command)))))