Skip to content

Instantly share code, notes, and snippets.

{-# LANGUAGE OverloadedStrings #-}
import Turtle hiding (x)
import Prelude hiding (FilePath)
import qualified Control.Foldl as Fold
import Data.List (sortBy)
import qualified Data.Text as T
import qualified Data.Text.IO as TIO (writeFile)
dirIsLeaf :: FilePath -> IO Bool
#!/bin/bash
find $(pwd) -type d > list.txt
{-# LANGUAGE OverloadedStrings #-}
import Turtle hiding (x, options)
import qualified Control.Foldl as Fold
import qualified Data.List as List
import Data.Maybe (fromMaybe)
import qualified Data.Text as T
dmenu = inproc "dmenu" ["-i","-l","50"]
playTrack path = void $ proc "audacious" ["-e", path] empty
{--
(C)opyright 2015 by Miguel Negrão
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Turtle hiding (x)
import Prelude hiding (FilePath)
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Filesystem.Path.CurrentOS (encodeString)
diff --git a/lang/LangPrimSource/PyrUnixPrim.cpp b/lang/LangPrimSource/PyrUnixPrim.cpp
index 769be99..40be03c 100644
--- a/lang/LangPrimSource/PyrUnixPrim.cpp
+++ b/lang/LangPrimSource/PyrUnixPrim.cpp
@@ -115,7 +115,7 @@ struct sc_process {
bool postOutput;
};
-static void string_popen_thread_func(struct sc_process *process)
+static void string_popen_thread_func(std::unique_ptr<sc_process> process)
@miguel-negrao
miguel-negrao / synthdef.ipynb
Created November 18, 2015 09:35
synthdef binary parsing
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
(
Udef(\binaural_encoder,{ |bus|
var angles = \angles.kr([0,0],0.1);
var in = UIn.ar(0,1);
var c = pi/180;
var encoder = FoaEncoderMatrix.newOmni;
var out = FoaEncode.ar( in , encoder );
var bufs, frames;
out = FoaTransform.ar(out, 'push', pi/2, angles[0]*c.neg, angles[1]*c);
out = UGlobalEQ.ar( out );
{
packageOverrides = pkgs : rec {
haskellngPackages = pkgs.haskellngPackages.override {
overrides = self: super: rec {
cmdl = self.callPackage /home/miguel/bin/cmdl-source/default.nix {};
openl = self.callPackage /home/miguel/Development/Haskell/projects/misc/openl/default.nix {};
#hosc2 = self.callPackage ./haskell/hosc2.nix {};
#wxc = self.callPackage ./haskell/wxc.nix {};
vividNew = self.callPackage ./haskell/vivid-0.1.0.3.nix {};
{
"metadata": {
"language": "haskell",
"name": "",
"signature": "sha256:735be6537d97c2ae96006ad36b402104aa3c71394079f9c000424191ecabdbf9"
},
"nbformat": 3,
"nbformat_minor": 0,
"worksheets": [
{