Skip to content

Instantly share code, notes, and snippets.

@miguel-negrao
miguel-negrao / vivid-0.1.0.3.nix
Created March 30, 2015 11:02
nix file for vivid generated by cabal2nix
{ mkDerivation, base, binary, bytestring, containers, deepseq
, hashable, mtl, network, split, stdenv, stm
}:
mkDerivation {
pname = "vivid";
version = "0.1.0.3";
sha256 = "034kjk2lxfbb4hd8z1axccz9alfkm76mpgw39nisvxngjs6si158";
editedCabalFile = "de2442ab5d53f8044c99cd0489281bf902ef6615028be780e0df937ae60266da";
revision = "0";
buildDepends = [
@miguel-negrao
miguel-negrao / config.nix
Created March 30, 2015 10:58
config.nix for vivid
{
packageOverrides = pkgs : rec {
haskellngPackages = pkgs.haskellngPackages.override {
overrides = self: super: rec {
vividNew = self.callPackage ./haskell/vivid-0.1.0.3.nix {};
};
};
ihaskell-with-packages = pkgs.callPackage ./haskell/ng-wrapper.nix {
@miguel-negrao
miguel-negrao / miguelpastebin.hs
Created December 5, 2014 10:34
my attempt at a pastebin clone
{-# LANGUAGE OverloadedStrings, DeriveDataTypeable, TypeFamilies, TemplateHaskell #-}
module Main (main) where
import Web.Scotty
--import qualified Network.Wai.Parse as P
import qualified Data.ByteString.Char8 as B8
import Lucid
import Lucid.Base
import Web.Scotty.Session
import Network.HTTP.Types.Status
@miguel-negrao
miguel-negrao / sc3.7-qt5.nix
Last active August 29, 2015 14:09
sc 3.7 dev qt5 branch
with (import <nixpkgs> {});
#{ stdenv, fetchurl, cmake, pkgconfig
#, jack2, libsndfile, fftw, curl
#, libXt, qt, readline
#, useSCEL ? false, emacs
#}:
let optional = stdenv.lib.optional; useSCEL = false; in
module Main where
import System.Directory
import Control.Monad (when)
rename :: String -> String
rename xs = "20"++take 2 xs++"_"++f 2++"_"++(take 5 $ drop 4 xs)++"_"++f 9++"_"++drop 11 xs
where f n = take 2 $ drop n xs
main :: IO ()
{-# LANGUAGE OverloadedStrings #-}
module Main where
import System.Environment ( getArgs ) --part of base
import System.Console.GetOpt --part of base
import Shelly (shelly, run_, verbosely, Sh)
import qualified Data.ByteString.Char8 as B
import qualified Data.Text as T
//jeffs pad example
(
SynthDef(\frp1, {
var x = Saw.ar( \freq.kr(440) ) * 0.5.dup;
var env = EnvGen.ar( Env.adsr, \gate.kr(1) );
Out.ar(0, x*env)
}).add
@miguel-negrao
miguel-negrao / transferHttp.hs
Created March 9, 2014 18:49
A tiny web server to send one file over http
module Main where
import System.Posix
import Network
import qualified Data.ByteString.Lazy as B
import Data.Binary
import Network.Socket (close)
import Control.Monad (forever, replicateM_)
import System.Environment (getArgs)
import System.IO
@miguel-negrao
miguel-negrao / synthDefParser.hs
Created March 1, 2014 13:59
SynthDef parser written in Haskell
import qualified Data.ByteString.Lazy as B
import qualified Data.ByteString.Char8 as C
import Data.Binary.Get
import Data.Word
import Data.Binary.IEEE754
import Control.Monad (replicateM)
import Text.Show.Pretty
deffile = "/home/miguel/.local/share/SuperCollider/synthdefs/testSynthDefParsing.scsyndef"
#!/usr/local/bin/sclang -l/home/miguel/bin/langconf.yaml
(
var jack_device = if("jack_lsp | grep firewire".systemCmd == 0){
"firewire_pcm"
}{
"system"
};
"SC_JACK_DEFAULT_INPUTS".setenv(jack_device);
"SC_JACK_DEFAULT_OUTPUTS".setenv(jack_device);