clear messages buffer on startup

repl-electric · Jun 19, 2024 · ee0a66a · ee0a66a
1 parent f2d8b40
commit ee0a66a
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/sonic-pi.el b/sonic-pi.el
@@ -71,11 +71,16 @@
 
 (defun sonic-pi-messages-buffer-init ()
   (when sonic-pi-log-messages
+    (when (get-buffer sonic-pi-message-buffer-name)
+      (with-current-buffer
+          sonic-pi-message-buffer-name
+        (erase-buffer)))
     (start-file-process-shell-command
      "sonic-pi-logs"
      sonic-pi-message-buffer-name
      ;;FIXME properly wait for sonic pi to start
-     (format "sleep 3;%s"(sonic-pi-logs-cmd)))))
+     (format "sleep 5;%s"(sonic-pi-logs-cmd)))
+    (display-buffer sonic-pi-message-buffer-name)))
 
 (defun sonic-pi-sonic-server-cleanup ()
   (when (get-process "sonic-pi-server")