emacs madness

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)