Skip to content

Instantly share code, notes, and snippets.

#r "System.Web.Extensions"
let json = """
{ "FirstName":"Foo",
"LastName":"Bar",
"Hobbies":
[
{"Sport":"FootBall","Music":"Rock"}
]} """
@nrolland
nrolland / Setup.fsx
Created April 4, 2012 20:46 — forked from ovatsus/Setup.fsx
Script to setup F# Interactive session, loading everything in the current solution. works with many project with a bit of hand cleaning
#if INTERACTIVE
#r "System.Xml"
#r "System.Xml.Linq"
#endif
open System
open System.IO
open System.Xml.Linq
open System.Text.RegularExpressions
@nrolland
nrolland / display keyboard applescript
Created March 7, 2011 10:17
display keyboard applescript/lion et SL
set proc_ to "/System/Library/Input\\ Methods/KeyboardViewer.app/Contents/MacOS/KeyboardViewer"
set app_ to "KeyboardViewer"
try
do shell script "ps -axwww | grep" & space & proc_ & space & "| grep -v grep"
tell application app_ to quit
on error
do shell script proc_ & space & "> /dev/null 2>&1 &"
end try