anchor.diff:          ()
           ))
   
  +    let private ShowBuildList () =
  +        buildListView |> Option.iter(fun (model, view) ->
  +            view.show()
  +            model.focusFilterEditor() |> ignore
  +            let m = BuildList
  +                    |> Seq.sortBy(fun n -> n.Start)
  +                    |> Seq.map(fun n ->
  +                        let name = sprintf "%s - %s %s" n.Name (n.Start.ToShortDateString()) (n.Start.ToShortTimeString())
  +                        {ListView.data = name } :> obj)
  +                    |> Seq.toArray
  +                    |> Array.rev
  +
  +            model.setItems m |> ignore
  +            ()
  +        )
  +
       let private FAKENotFound () =
           Process.notice (ref None) true "FAKE error" "FAKE script not found"
   
       let activate () =
           taskListView <- registerTaskList () |> Some
  +        buildListView <- registerBuildList () |> Some
           let p = Globals.atom.project.getPaths().[0]
           let proj (ex : NodeJS.ErrnoException) (arr : string array) =
               let ext = if Process.isWin() then "cmd" else "sh"
  
positive.code: 
  [<ReflectedDefinition>]
  module FAKE =
      let mutable private File : (string * string) option = None
      let mutable private taskListView : (atom.SelectListView * IPanel) option = None
  
      let private viewForItem (desc : ListView.ItemDescription) =
          if JS.isDefined desc then
  
negative.code:                     let build = p + "/" + regex.Groups.[1].Value
                      File <- Some (path, build )
                      Atom.addCommand("atom-workspace", "FAKE: Build", BuildTask)
                      Atom.addCommand("atom-workspace", "FAKE: Show Builds", ShowBuildList)
                  else
                      Atom.addCommand("atom-workspace", "FAKE: Build", FAKENotFound)
                  Globals.console.log File
  