- `fossil sqlite3 "SELECT value FROM config WHERE name='project-name'"`
	(or `fossil info`, then extract the line starting with `project-name:`)

____________________________________________________________________________________________________

    TRepoInfo = class
    private
      FRepoClient: TRepoClient;
      FRoot: string;
      FLastCheckRepo: TDateTime;

      FBranch: string;
      FPending: Integer;
      FUntracked: Integer;
      FLastCheckWorkDir: TDateTime;

      FIncoming: Integer;
      FOutgoing: Integer;
      FLastCheckRemote: TDateTime;
    public
      property IsRepo: Boolean         read GetIsRepo;
      property Client: TRepoClient     read FRepoClient;
      property Root: string            read FRoot;
      property Branch: string;         read GetBranch;
      property Pending: Integer        read GetPending;
      property Untracked: Integer      read GetUntracked;
      property Incoming: Integer       read GetIncoming;
      property Outgoing: Integer       read GetOutgoing;
    end;

  - `fossil sqlite3 "SELECT value FROM config WHERE name='project-name'"`
	(or `fossil info`, then extract the line starting with `project-name:`)

____________________________________________________________________________________________________

    TRepoInfo = class
    private
      FVCSClient: TVCSClient;
      FRoot: string;
      FLastCheckRepo: TDateTime;

      FBranch: string;
      FPending: Integer;
      FUntracked: Integer;
      FLastCheckWorkDir: TDateTime;

      FIncoming: Integer;
      FOutgoing: Integer;
      FLastCheckRemote: TDateTime;
    public
      property IsRepo: Boolean         read GetIsRepo;
      property Client: TVCSClient      read FVCSClient;
      property Root: string            read FRoot;
      property Branch: string;         read GetBranch;
      property Pending: Integer        read GetPending;
      property Untracked: Integer      read GetUntracked;
      property Incoming: Integer       read GetIncoming;
      property Outgoing: Integer       read GetOutgoing;
    end;


____________________________________________________________________________________________________

TWizard.Create  // initialize UI part (add icons, create toolbar)
                // create repo cache
                // set up thread queue, timer and/or event handlers
OnTimer // for current repo, check if any timeout has elapsed; if so, add a task to check it.
        // if current repo is already being checked, only add it if the new task has more or other
        //   things to do.
OnFileSaved // for file's repo, reset the workdir status, so it'll have to be refreshed at the next
            //   trigger. Update the UI to reflect current status.
OnSwitchedModule    // if we selected a file in a new repo, update the UI to reflect that. Also
                    //   set up thread to refresh anything out of date for that repo.
ButtonRefresh       // refresh all info for the current module or project's repo.

____________________________________________________________________________________________________


GetFileRepo(AFile)
    AFile > FinalFile
    Map Final to FinalRepoPath in cache,
        else (via client) RepoPath > FinalRepoPath
    Get the repo-info for that FinalRepoPath
    Use the RepoPath when accessing the client

var
  FFileRepoPaths: TDictionary<string,string>;
  FRepoCache: TDictionary<string,TRepoInfo>;

function FindFileRepo(const AFilename: string): TRepoInfo;
var
  FinalFile, RepoRoot, FinalRepoRoot: string;
  VCSClient, Client: TVCSClient;
begin
  Result := Default(TRepoInfo);
  try
    FinalFile := FinalPathName(AFilename);
  except
    FinalFile := AFilename;
  end;
  VCSClient := nil;
  if not FFileRepoPaths.TryGetValue(FinalFile, {out}FinalRepoRoot) then begin
    for Client in VCSClients do begin
      if Client.IsInRepo(AFilename, {out} RepoRoot) then begin
        FinalRepoRoot := FinalPathName(RepoRoot);
        VCSClient := Client;
        Break;
      end;
    end;
    if VCSClient = nil then
      Exit;
  end;
  if not FRepoCache.TryGetValue(FinalRepoRoot, {out}Result) and Assigned(VCSClient) then begin
    Result := TRepoInfo.Create(RepoRoot, VCSClient);
    FRepoCache.Add(FinalRepoRoot, Result);
    FFileRepoPaths.AddOrSetValue(FinalFile, FinalRepoRoot);
  end;
end {FindFileRepo};