Skip to content

Instantly share code, notes, and snippets.

@feuery

feuery/madness i say.el

Created April 13, 2020 15:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save feuery/2e12a0ea4ff113b8155ee5b9f058001c to your computer and use it in GitHub Desktop.
Save feuery/2e12a0ea4ff113b8155ee5b9f058001c to your computer and use it in GitHub Desktop.
Download ZIP
emacs madness
Raw
madness i say.el
(let* ((buffer-name (concatenate 'string "qmapper-" (prin1-to-string (random))))
(proc (open-network-stream buffer-name (get-buffer-create buffer-name)
qmapper-server qmapper-editor-port
:nowait nil)))
(process-send-string proc "LIST-TILESETS;\n")
(set-process-sentinel proc (lambda (p e)
(with-current-buffer (get-buffer buffer-name)
(message (buffer-string)))
(kill-buffer buffer-name)))
nil)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment