(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 proc (make-network-process
            :name "stomp-client"
            :buffer "stomp-messages"
            :host "127.0.0.1"
            :service 61613
            :filter (stomp-filter-function (lambda (message) (message "%s" message)))))

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