forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

blame, add early exit for when the initial data are not yet collected

This commit is contained in:
Basile Burg 2024-03-30 11:15:00 +01:00
parent 877072dc48
commit ccbc12a16c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/u_blame.pas
View File

@ -1,6 +1,6 @@
unit u_blame; unit u_blame;
{$mode ObjFPC}{$H+} {$I u_defines.inc}
interface interface
@ -450,7 +450,7 @@ end;
procedure TBlameWidget.btnCpyPrevHashClick(Sender: TObject); procedure TBlameWidget.btnCpyPrevHashClick(Sender: TObject);
begin begin
if fDocData.isAssigned and fDoc.isAssigned then if fDocData.isAssigned and (length(fDocData.lineData) <> 0) and fDoc.isAssigned then
Clipboard.AsText := fDocData.lineData[fDoc.CaretY-1].hash; Clipboard.AsText := fDocData.lineData[fDoc.CaretY-1].hash;
end; end;
@ -462,7 +462,7 @@ end;
procedure TBlameWidget.btnLogPrevClick(Sender: TObject); procedure TBlameWidget.btnLogPrevClick(Sender: TObject);
begin begin
if fDocData.isAssigned and fDoc.isAssigned then if fDocData.isAssigned and (length(fDocData.lineData) <> 0) and fDoc.isAssigned then
showLog(fDocData.lineData[fDoc.CaretY-1].hash); showLog(fDocData.lineData[fDoc.CaretY-1].hash);
end; end;
@ -470,11 +470,14 @@ procedure TBlameWidget.showLog(const hash: string);
var var
p: TProcess; p: TProcess;
g: TStringList; g: TStringList;
n: string = '';
begin begin
if not checkTool(n) or hash.isEmpty() or (hash = 'HEAD') then
exit;
p := TProcess.Create(nil); p := TProcess.Create(nil);
g := TStringList.Create; g := TStringList.Create;
try try
p.Executable := exeFullName('git' + exeExt); p.Executable := n;
p.Options := [poUsePipes, poNoConsole]; p.Options := [poUsePipes, poNoConsole];
p.ShowWindow := swoHIDE; p.ShowWindow := swoHIDE;
p.CurrentDirectory:= getGitCwd(); p.CurrentDirectory:= getGitCwd();