Function: php-ts-mode--webserver-read-args

php-ts-mode--webserver-read-args is a byte-compiled function defined in php-ts-mode.el.gz.

Signature

(php-ts-mode--webserver-read-args &optional TYPE)

Documentation

Helper for php-ts-mode-run-php-webserver.

The optional TYPE can be the symbol "port", "hostname", "document-root" or
"router-script", otherwise it requires all of them.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/php-ts-mode.el.gz
(defun php-ts-mode--webserver-read-args (&optional type)
  "Helper for `php-ts-mode-run-php-webserver'.
The optional TYPE can be the symbol \"port\", \"hostname\", \"document-root\" or
\"router-script\", otherwise it requires all of them."
  (let ((ask-port (lambda ()
                    (read-number "Port: " 3000)))
        (ask-hostname (lambda ()
                        (read-string "Hostname: " "localhost")))
        (ask-document-root (lambda ()
                             (expand-file-name
                              (read-directory-name "Document root: "
                                                   (file-name-directory
                                                    (or (buffer-file-name)
                                                        default-directory))))))
        (ask-router-script (lambda ()
                             (expand-file-name
                              (read-file-name "Router script: "
                                              (file-name-directory
                                               (or (buffer-file-name)
                                                   default-directory)))))))
    (cl-case type
      (port (funcall ask-port))
      (hostname (funcall ask-hostname))
      (document-root (funcall ask-document-root))
      (router-script (funcall ask-router-script))
      (t (list
          (funcall ask-port)
          (funcall ask-hostname)
          (funcall ask-document-root)
          (funcall ask-router-script))))))