colorlize gantt.fsx

#r "System.Xml.Linq"
open System
open System.Xml
open System.Xml.Linq
open System.IO

if fsi.CommandLineArgs.Length < 2 then
    raise <| new Exception("error: .gan file name not specified.")

let Element name (xelem:XElement) = xelem.Element(XName.Get(name))
let Descendants name (xelem:XElement) = xelem.Descendants(XName.Get(name))
let getAttr name (xelem:XElement) = xelem.Attribute(XName.Get(name)).Value
let setAttr name newValue (xelem:XElement) = xelem.Attribute(XName.Get(name)).Value <- newValue

let path = fsi.CommandLineArgs.[1]
let doc = XDocument.Load(path)
doc.Root
    |> Element "tasks"
    |> Descendants "task"
    |> Seq.filter (getAttr "complete" >> (=) "100")
    |> Seq.iter (setAttr "color" "#cccccc")

doc.Save(path);
printfn "Complete."