anchor.diff:      Repository.cloneSingleBranch "" (gitHome + "/" + gitName + ".git") "gh-pages" tempDocsDir
   
       fullclean tempDocsDir
  -    CopyRecursive "output" tempDocsDir true |> tracefn "%A"
  +    CopyRecursive outDir tempDocsDir true |> tracefn "%A"
       StageAll tempDocsDir
       Git.Commit.Commit tempDocsDir "Update generated slides"
       Branches.push tempDocsDir
  
positive.code: 
  let copyPics() =
      try
        !! (__SOURCE_DIRECTORY__ @@ "slides/images/*.*")
        |> CopyFiles (outDir @@ "images")
      with
      | exn -> traceImportant <| sprintf "Could not copy picture: %s" exn.Message    
  
negative.code:     Process.Start "http://localhost:8083/index.html" |> ignore
  
  Target "GenerateSlides" (fun _ ->
      !! (slidesDir @@ "*.md")
        ++ (slidesDir @@ "*.fsx")
      |> Seq.map fileInfo
      |> Seq.iter generateFor
  )
  
  Target "KeepRunning" (fun _ ->
      use watcher = new FileSystemWatcher(FullName slidesDir,"*.*")
      watcher.EnableRaisingEvents <- true
      watcher.IncludeSubdirectories <- true
      watcher.Changed.Add(handleWatcherEvents)
  