vbfox

<Query Kind="Program">
  <NuGetReference>HtmlAgilityPack</NuGetReference>
  <NuGetReference>Lucene.Net</NuGetReference>
  <NuGetReference>MimeKit</NuGetReference>
  <Namespace>HtmlAgilityPack</Namespace>
  <Namespace>Lucene.Net</Namespace>
  <Namespace>Lucene.Net.Analysis</Namespace>
  <Namespace>Lucene.Net.Analysis.Standard</Namespace>
  <Namespace>Lucene.Net.Analysis.Tokenattributes</Namespace>
  <Namespace>Lucene.Net.Documents</Namespace>

vbfox

#r "System.Xml.Linq"

open System
open System.Text.RegularExpressions
open System.Xml.Linq
open System.Xml.XPath
open Microsoft.Win32

let convert () =
    let doc = XDocument.Load(Environment.ExpandEnvironmentVariables(@"%APPDATA%\ConEmu.xml"))

vbfox

#r "../packages/FSharp.Compiler.Service/lib/net45/FSharp.Compiler.Service.dll"

open System
open System.IO
open System.Threading
open System.Threading.Tasks
open System.Net
open Microsoft.FSharp.Compiler
open Microsoft.FSharp.Compiler.Ast
open Microsoft.FSharp.Compiler.Interactive.Shell

vbfox

let genByteArray = Gen.arrayOf Arb.generate<byte>

let genJValue =
    Gen.oneof
        [
            Arb.generate<int> |> Gen.map JValue
            Arb.generate<UInt32> |> Gen.map JValue
            Arb.generate<bool> |> Gen.map JValue
            Arb.generate<char> |> Gen.map JValue
            Arb.generate<DateTime> |> Gen.map JValue

vbfox

module Term

let private esc = string (char 0x1B)
let private csi = esc + "["
let printsequencef f = Printf.kprintf (fun s -> System.Console.Write(esc + s)) f
let printcsif f = Printf.kprintf (fun s -> System.Console.Write(csi + s)) f

let resetToInitialState() = printsequencef "c"
let cursorUp (rows: int) = printcsif "%iA" rows
let cursorDown (rows: int) = printcsif "%iB" rows

vbfox

namespace BlackFox.CommandLine

/// Escape arguments in a form that programs parsing it as Microsoft C Runtime will successfuly understand
/// Rules taken from http://www.daviddeley.com/autohotkey/parameters/parameters.htm#WINARGV
module MsvcrCommandLine =
    open System.Text

    let escapeArg (arg : string) (builder : StringBuilder) =
        let needQuote = arg.Contains(" ") || arg.Contains("\t")
        let rec escape (builder: StringBuilder) pos =

vbfox

module WindowsPath =
    open System
    open System.IO

    let path = lazy (Environment.GetEnvironmentVariable("PATH").Split(';') |> List.ofArray)
    let pathExt = lazy (Environment.GetEnvironmentVariable("PATHEXT").Split(';') |> List.ofArray)

    let find names =
        path.Value
        |> Seq.collect (fun dir -> names |> List.map (fun name -> Path.Combine(dir, name)))

vbfox

open System
open System.Diagnostics
open System.Threading

[<Struct>]
type Vector = 
    val X: float32
    val Y: float32
    val Z: float32

vbfox

// Adapted from https://github.com/broofa/node-uuid/
// Under MIT License

// tslint:disable:no-bitwise

function getRandomFromMathRandom() {
    const result = new Array(16);

    let r = 0;
    for (let i = 0; i < 16; i++) {

vbfox

{
  "fileTypes": [
    "paket.dependencies"
  ],
  "foldingStartMarker": "",
  "foldingStopMarker": "",
  "name": "Paket",
  "patterns": [
    {
      "include": "#line"