Upgrade boot script to Tidal 1.4.8

Author: munshkr

Tidal.ghci

@@ -1,57 +1,72 @@
 :set -XOverloadedStrings
 :set prompt ""
-:set prompt-cont ""
 
 import Sound.Tidal.Context
 
+import System.IO (hSetEncoding, stdout, utf8)
+
+hSetEncoding stdout utf8
+
 -- total latency = oLatency + cFrameTimespan
 tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20})
 
+:{
 let p = streamReplace tidal
-let hush = streamHush tidal
-let list = streamList tidal
-let mute = streamMute tidal
-let unmute = streamUnmute tidal
-let solo = streamSolo tidal
-let unsolo = streamUnsolo tidal
-let once = streamOnce tidal
-let asap = once
-let nudgeAll = streamNudgeAll tidal
-let all = streamAll tidal
-let resetCycles = streamResetCycles tidal
-let setcps = asap . cps
-let xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
-let xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
-let histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
-let wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
-let waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
-let jump i = transition tidal True (Sound.Tidal.Transition.jump) i
-let jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
-let jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
-let jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
-let mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
-let interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
-let interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
-let clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
-let clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
-let anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
-let anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
-let forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
-let d1 = p 1
-let d2 = p 2
-let d3 = p 3
-let d4 = p 4
-let d5 = p 5
-let d6 = p 6
-let d7 = p 7
-let d8 = p 8
-let d9 = p 9
-let d10 = p 10
-let d11 = p 11
-let d12 = p 12
-let d13 = p 13
-let d14 = p 14
-let d15 = p 15
-let d16 = p 16
+    hush = streamHush tidal
+    list = streamList tidal
+    mute = streamMute tidal
+    unmute = streamUnmute tidal
+    solo = streamSolo tidal
+    unsolo = streamUnsolo tidal
+    once = streamOnce tidal
+    first = streamFirst tidal
+    asap = once
+    nudgeAll = streamNudgeAll tidal
+    all = streamAll tidal
+    resetCycles = streamResetCycles tidal
+    setcps = asap . cps
+    xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
+    xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
+    histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
+    wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
+    waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
+    jump i = transition tidal True (Sound.Tidal.Transition.jump) i
+    jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
+    jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
+    jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
+    mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
+    interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
+    interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
+    clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
+    clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
+    anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
+    anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
+    forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
+    d1 = p 1 . (|< orbit 0)
+    d2 = p 2 . (|< orbit 1)
+    d3 = p 3 . (|< orbit 2)
+    d4 = p 4 . (|< orbit 3)
+    d5 = p 5 . (|< orbit 4)
+    d6 = p 6 . (|< orbit 5)
+    d7 = p 7 . (|< orbit 6)
+    d8 = p 8 . (|< orbit 7)
+    d9 = p 9 . (|< orbit 8)
+    d10 = p 10 . (|< orbit 9)
+    d11 = p 11 . (|< orbit 10)
+    d12 = p 12 . (|< orbit 11)
+    d13 = p 13
+    d14 = p 14
+    d15 = p 15
+    d16 = p 16
+:}
+
+:{
+let setI = streamSetI tidal
+    setF = streamSetF tidal
+    setS = streamSetS tidal
+    setR = streamSetR tidal
+    setB = streamSetB tidal
+:}
 
 :set prompt "tidal> "
+:set prompt-cont ""