Start the server and write the listen port number to
PORT-FILE. This is the entry point for Emacs.
(defn start-server
"Start the server and write the listen port number to
PORT-FILE. This is the entry point for Emacs."
[port-file & opts]
(let [opts (apply hash-map opts)]
(setup-server (get opts :port 0)
(fn announce-port [port]
(announce-port-to-file port-file port)
(simple-announce port))
connection-serve
opts)))
Comments top
No comments for start-server. Log in to add a comment.