(require 'map)
(load-file "/home/hugo/projects/stomp/stomp.el")

(setq proc (make-process
            :name "stomp-client"
            :buffer "Barry"
            :command "nc localhost 61613"
            :filter (stomp-filter-function (lambda (message) (message "%s" message)))))

(setq message ())
(stomp-send-message proc (map-put message 'command "CONNECT"))