anchor.diff:      Process.Start "http://localhost:8083/index.html" |> ignore
   
   Target "GenerateSlides" (fun _ ->
  -    !! "slides/*.md"
  -      ++ "slides/*.fsx"
  +    !! (__SOURCE_DIRECTORY__ @@ "slides/*.md")
  +      ++ (__SOURCE_DIRECTORY__ @@ "slides/*.fsx")
       |> Seq.map fileInfo
       |> Seq.iter generateFor
   )
   
   Target "KeepRunning" (fun _ ->
  -    use watcher = new FileSystemWatcher(DirectoryInfo("slides").FullName,"*.*")
  +    use watcher = new FileSystemWatcher(DirectoryInfo(__SOURCE_DIRECTORY__ @@ "slides").FullName,"*.*")
       watcher.EnableRaisingEvents <- true
       watcher.IncludeSubdirectories <- true
       watcher.Changed.Add(handleWatcherEvents)
  
positive.code: open Suave.Http
  open Suave.Http.Files
  
  let outDir = "output"
  
  Target "Clean" (fun _ ->
      CleanDirs [outDir]
  
negative.code: 
  let copyPics() =
      try
        !! (__SOURCE_DIRECTORY__ @@ "slides/images/*.*")
        |> CopyFiles (outDir @@ "images")
      with
      | exn -> traceImportant <| sprintf "Could not copy picture: %s" exn.Message    
  