You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
629 B
EmacsLisp
21 lines
629 B
EmacsLisp
(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"))
|
|
|
|
|