From eeffb14e982bb1489977241c376bb633241e47ee Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sun, 15 Jan 2023 19:04:14 -0500
Subject: temp disable music, make some name fixes

---
 virtual-programs/music.folk | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/music.folk b/virtual-programs/music.folk
index c9cd8232..73419745 100644
--- a/virtual-programs/music.folk
+++ b/virtual-programs/music.folk
@@ -1,8 +1,10 @@
 Wish $this has filename "music.folk"
+if {$::isLaptop} { return }
+return ;# temporarily disable
 
-set musicDir $::env(HOME)/music
-exec mkdir -p $musicDir
-set bootTidal [open $musicDir/BootTidal.hs w]
+namespace eval ::Music { variable musicDir $::env(HOME)/music }
+exec mkdir -p $::Music::musicDir
+set bootTidal [open $::Music::musicDir/BootTidal.hs w]
 # https://raw.githubusercontent.com/tidalcycles/Tidal/main/BootTidal.hs
 puts $bootTidal {
 :set -XOverloadedStrings
@@ -89,13 +91,15 @@ let getState = streamGet tidal
 default (Pattern String, Integer, Double)
 }
 close $bootTidal
-set scStartup [open $musicDir/startup.sc w]
+set scStartup [open $::Music::musicDir/startup.sc w]
 puts $scStartup "SuperDirt.start;"
 close $scStartup
 
 set ::env(DBUS_SESSION_BUS_ADDRESS) "unix:path=/run/user/1000/bus"
 
-proc ::finishSetup {} {
+proc ::Music::finishSetup {} {
+  variable musicDir
+
   exec jack_control start
   exec jack_control ds alsa
   exec jack_control dps device hw:HDMI,10
@@ -103,8 +107,8 @@ proc ::finishSetup {} {
   exec jack_control dps nperiods 2
   exec jack_control dps period 64
   
-  exec -ignorestderr xvfb-run --auto-servernum sclang startup.sc
-  
+  exec -ignorestderr xvfb-run --auto-servernum sclang $musicDir/startup.sc
+
   set fifo $musicDir/tidal-input
   exec rm -f $fifo
   exec mkfifo $fifo
@@ -113,16 +117,15 @@ proc ::finishSetup {} {
   exec cat $musicDir/BootTidal.hs > $fifo
 }
 
-proc ::waitForDbus {} {
+proc ::Music::waitForDbus {} {
     puts "waiting now"
     if {[file exists /run/user/1000/bus]} {
         puts "done waiting"
-        ::finishSetup
+        ::Music::finishSetup
     } else {
-        after 100 ::waitForDbus
+        after 100 ::Music::waitForDbus
     }
 }
 
 puts "about to wait"
-::waitForDbus
-
+::Music::waitForDbus
-- 
cgit v1.2.3