Showing git branch in dopus

Help & Support
10

Simple script to display the git branch in the lister and the tab. It reads .git/HEAD directly since WScript seems to not like git being called...perhaps for security reasons.

Please offer any feedback if you think it can be improved.


function FindGitHead(path)
{
  var git_head_path = null;
  var n = path.components;
  for (var i = 0; i < n; ++i) {
    var file_path = DOpus.FSUtil.NewPath(path);
    file_path.Add(".git");
    file_path.Add("HEAD");
    if (DOpus.FSUtil.Exists(file_path)) {
      git_head_path = DOpus.FSUtil.NewPath(file_path);
      break;
    }
    path.Parent();
  }
  return git_head_path;
}

function ReatGitBranch(path)
{
  var git_branch = null;
  var fso = new ActiveXObject("Scripting.FilesystemObject");
  var file = fso.OpenTextFile(path, 1, -2);
  while (!file.AtEndOfStream) {
    var line  = file.ReadLine();
    var re    = /ref: refs\/heads\/(.+)/;
    var match = re.exec(line);
    if (match != null) {
      git_branch = match[1];
    }
  }
  file.Close();
  return git_branch;
}

function UpdateTitleAndLabel(tab)
{
  var label = tab.path.filepart;
  var git_head_path = FindGitHead(tab.path);
  if (git_head_path != null) {
    var git_branch = ReatGitBranch(git_head_path);
    if (git_branch != null) {
      label = label + " (" + git_branch + ")";
    }
  }
  // New DOpus command
  var dopus_cmd = DOpus.NewCommand();
  // Change lister title
  var cmd = "SET LISTERTITLE=\"" + label + "\""; 
  dopus_cmd.RunCommand(cmd);
  // Change tab label
  var cmd = "GO TABNAME=\"" + label + "\""; 
  dopus_cmd.RunCommand(cmd);
}

function OnActivateTab(data)
{
  UpdateTitleAndLabel(data.newtab);
}

function OnAfterFolderChange(data)
{
  if (data.result) {
    UpdateTitleAndLabel(data.tab);
  }
}
1 Like