summaryrefslogtreecommitdiff
path: root/src/wasp-bus.el
diff options
context:
space:
mode:
Diffstat (limited to 'src/wasp-bus.el')
-rw-r--r--src/wasp-bus.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/src/wasp-bus.el b/src/wasp-bus.el
index aa950b29..cc75a26c 100644
--- a/src/wasp-bus.el
+++ b/src/wasp-bus.el
@@ -80,11 +80,12 @@
(defun w/pub (ev &optional d)
"Publish the data D to the event EV."
- (process-send-string
- w/bus-process
- (s-concat
- (format "%S" `(pub ,ev ,@d))
- "\n")))
+ (let ((s (s-concat (format "%S" `(pub ,ev ,@d)) "\n")))
+ (w/write-log (format "sending: %s" s))
+ (process-send-string
+ w/bus-process
+ s
+ )))
(defun w/sub-all ()
"Subscribe to all events in `w/bus-event-handlers'."