bla

run-process.el

@@ -0,0 +1,13 @@
+(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"))
+
+