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

terminal, prevent consecutive "cd"

This commit is contained in:
Basile Burg 2018-04-15 23:15:18 +02:00
parent 41a4749b60
commit bd792efe0d
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_term.pas
View File

@ -56,6 +56,7 @@ type
fTerm: TTerminal;
fOpts: TCETerminalOptions;
fFirst: boolean;
fLastCd: string;
procedure docNew(document: TCESynMemo);
procedure docFocused(document: TCESynMemo);
@ -223,9 +224,15 @@ begin
end;
procedure TCETermWidget.docFocused(document: TCESynMemo);
var
s: string;
begin
if fOpts.followEditors and document.fileName.fileExists then
fTerm.Command('cd ' + document.fileName.extractFileDir);
s := document.fileName.extractFileDir;
if fOpts.followEditors and s.fileExists and not SameText(s, fLastCd) then
begin
fLastCd := s;
fTerm.Command('cd ' + s);
end;
end;
procedure TCETermWidget.docChanged(document: TCESynMemo);
@ -249,9 +256,15 @@ begin
end;
procedure TCETermWidget.projFocused(project: ICECommonProject);
var
s: string;
begin
if fOpts.followProjects and project.fileName.fileExists then
fTerm.Command('cd ' + project.fileName.extractFileDir);
s := project.fileName.extractFileDir;
if fOpts.followProjects and s.dirExists and not SameText(s, fLastCd) then
begin
fLastCd := s;
fTerm.Command('cd ' + s);
end;
end;
procedure TCETermWidget.projCompiling(project: ICECommonProject);