pactl load-module module-null-sink sink_name=sink_mix sink_properties=device.description=sink_mix
pactl load-module module-loopback source=jack_in sink=sink_mix

{ pkgs ? import <nixpkgs> {} }:

pkgs.mkShell {
  nativeBuildInputs = [
    pkgs.supercollider_scel
    (pkgs.haskellPackages.ghcWithPackages (hpkgs: [hpkgs.tidal]))
  ];
}

nix-shell ~/org/nix-shells/tidalcycles-shell.nix --run "sclang $@"

(use-package tidal
  :config
  (setq tidal-interpreter "~/bin/tidal-wrapped"))
(add-to-list 'load-path
             (concat (s-chomp (shell-command-to-string
                               (concat
                                "nix-store --query --outputs "
                                "$(nix-instantiate --add-root -E '"
                                "with import <nixpkgs> {}; supercollider_scel"
                                "' 2>/dev/null)")))
                     "/share/emacs/site-lisp/SuperCollider"))
(use-package sclang
  :ensure nil
  :config
  (setq sclang-program "~/bin/sclang-wrapped"))
(use-package sclang-extensions)
(provide 'cce/tidalcycles)

(setq tidal-boot-script-path
  (let ((filepath
         '(("path" . "echo -n data-dir: && nix-shell ~/org/nix-shells/tidalcycles-shell.nix --run \"ghc -e 'import Paths_tidal' -e 'getDataDir>>=putStr'\" 2>/dev/null")
           ("separator" . "/"))))
    (concat
     (string-trim (cadr (split-string
                         (shell-command-to-string (cdr (assoc "path" filepath))) ":")))
     (cdr (assoc "separator" filepath))
     "BootTidal.hs")))

{ pkgs, ... }:
{
   home.packages = [ pkgs.supercollider_scel ];
}

sclang = pkgs.supercollider_scel;

Quarks.checkForUpdates({Quarks.install("SuperDirt", "v1.7.2"); thisProcess.recompile()})

(
s.reboot { // server options are only updated on reboot
	// configure the sound server: here you could add hardware specific options
	// see http://doc.sccode.org/Classes/ServerOptions.html
	s.options.numBuffers = 1024 * 256; // increase this if you need to load more samples
	s.options.memSize = 8192 * 32; // increase this if you get "alloc failed" messages
	s.options.numWireBufs = 64; // increase this if you get "exceeded number of interconnect buffers" messages 
	s.options.maxNodes = 1024 * 32; // increase this if you are getting drop outs and the message "too many nodes"
	s.options.numOutputBusChannels = 2; // set this to your hardware output channel size, if necessary
	s.options.numInputBusChannels = 2; // set this to your hardware output channel size, if necessary
	// boot the server and start SuperDirt
	s.waitForBoot {
		~dirt = SuperDirt(2, s); // two output channels, increase if you want to pan across more channels
		~dirt.loadSoundFiles;   // load samples (path containing a wildcard can be passed in)
		// for example: ~dirt.loadSoundFiles("/Users/myUserName/Dirt/samples/*");
		// s.sync; // optionally: wait for samples to be read
		~dirt.start(57120, 0 ! 12);   // start listening on port 57120, create two busses each sending audio to channel 0

		// optional, needed for convenient access from sclang:
		(
			~d1 = ~dirt.orbits[0]; ~d2 = ~dirt.orbits[1]; ~d3 = ~dirt.orbits[2];
			~d4 = ~dirt.orbits[3]; ~d5 = ~dirt.orbits[4]; ~d6 = ~dirt.orbits[5];
			~d7 = ~dirt.orbits[6]; ~d8 = ~dirt.orbits[7]; ~d9 = ~dirt.orbits[8];
			~d10 = ~dirt.orbits[9]; ~d11 = ~dirt.orbits[10]; ~d12 = ~dirt.orbits[11];
		);
	};

	s.latency = 0.3; // increase this if you get "late" messages
};
);

[[ -s "`which nixGLIntel`" ]] && nixGLIntel nix-shell ~/org/nix-shells/tidalcycles-shell.nix --run "ghci $@"
[[ -s "`which nixGLIntel`" ]] || nix-shell pw-jack ~/org/nix-shells/tidalcycles-shell.nix --run "ghci $@"

d1 $ sound "bd sd:1"

d2 $ sound "hh hh hh hh"

d3 $ sound "arpy"

hush