##// END OF EJS Templates
Update mercurial.ini file packaged in win32 installer...
Pascal Quantin -
r7662:8aa338cd default
parent child Browse files
Show More
@@ -5,6 +5,13 b''
5
5
6 [ui]
6 [ui]
7 editor = notepad
7 editor = notepad
8 ; show changed files and be a bit more verbose if True
9 ; verbose = True
10
11 ; username data to appear in commits
12 ; it usually takes the form: Joe User <joe.user@host.com>
13 ; username = Joe User <j.user@example.com>
14
8
15
9 ; By default, we try to encode and decode all files that do not
16 ; By default, we try to encode and decode all files that do not
10 ; contain ASCII NUL characters. What this means is that we try to set
17 ; contain ASCII NUL characters. What this means is that we try to set
@@ -37,5 +44,6 b' hgext.win32text ='
37
44
38 ; Alternatively, you can explicitly specify each file extension that
45 ; Alternatively, you can explicitly specify each file extension that
39 ; you want decoded (any you omit will be left untouched), like this:
46 ; you want decoded (any you omit will be left untouched), like this:
47 ; **.txt = dumbdecode:
40
48
41 ; **.txt = dumbdecode:
49
@@ -1,8 +1,7 b''
1 ; Script generated by the Inno Setup Script Wizard.
1 ; Script generated by the Inno Setup Script Wizard.
2 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
2 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
3
4 [Setup]
3 [Setup]
5 AppCopyright=Copyright 2005-2008 Matt Mackall and others
4 AppCopyright=Copyright 2005-2009 Matt Mackall and others
6 AppName=Mercurial
5 AppName=Mercurial
7 AppVerName=Mercurial snapshot
6 AppVerName=Mercurial snapshot
8 InfoAfterFile=contrib/win32/postinstall.txt
7 InfoAfterFile=contrib/win32/postinstall.txt
@@ -18,7 +17,7 b' OutputBaseFilename=Mercurial-snapshot'
18 DefaultDirName={pf}\Mercurial
17 DefaultDirName={pf}\Mercurial
19 SourceDir=..\..
18 SourceDir=..\..
20 VersionInfoDescription=Mercurial distributed SCM
19 VersionInfoDescription=Mercurial distributed SCM
21 VersionInfoCopyright=Copyright 2005-2008 Matt Mackall and others
20 VersionInfoCopyright=Copyright 2005-2009 Matt Mackall and others
22 VersionInfoCompany=Matt Mackall and others
21 VersionInfoCompany=Matt Mackall and others
23 InternalCompressLevel=max
22 InternalCompressLevel=max
24 SolidCompression=true
23 SolidCompression=true
@@ -32,7 +31,8 b' Source: contrib\\mercurial.el; DestDir: {'
32 Source: contrib\vim\*.*; DestDir: {app}/Contrib/Vim
31 Source: contrib\vim\*.*; DestDir: {app}/Contrib/Vim
33 Source: contrib\zsh_completion; DestDir: {app}/Contrib
32 Source: contrib\zsh_completion; DestDir: {app}/Contrib
34 Source: contrib\win32\ReadMe.html; DestDir: {app}; Flags: isreadme
33 Source: contrib\win32\ReadMe.html; DestDir: {app}; Flags: isreadme
35 Source: contrib\win32\mercurial.ini; DestDir: {app}; DestName: Mercurial.ini; Flags: confirmoverwrite
34 Source: contrib\mergetools.hgrc; DestDir: {tmp};
35 Source: contrib\win32\mercurial.ini; DestDir: {app}; DestName: Mercurial.ini; Check: CheckFile; AfterInstall: ConcatenateFiles;
36 Source: contrib\win32\postinstall.txt; DestDir: {app}; DestName: ReleaseNotes.txt
36 Source: contrib\win32\postinstall.txt; DestDir: {app}; DestName: ReleaseNotes.txt
37 Source: dist\hg.exe; DestDir: {app}; AfterInstall: Touch('{app}\hg.exe.local')
37 Source: dist\hg.exe; DestDir: {app}; AfterInstall: Touch('{app}\hg.exe.local')
38 Source: dist\library.zip; DestDir: {app}
38 Source: dist\library.zip; DestDir: {app}
@@ -64,8 +64,32 b' Filename: "{app}\\add_path.exe"; Paramete'
64
64
65 [UninstallDelete]
65 [UninstallDelete]
66 Type: files; Name: "{app}\hg.exe.local"
66 Type: files; Name: "{app}\hg.exe.local"
67 [Code]
68 var
69 WriteFile: Boolean;
70 CheckDone: Boolean;
67
71
68 [Code]
72 function CheckFile(): Boolean;
73 begin
74 if not CheckDone then begin
75 WriteFile := True;
76 if FileExists(ExpandConstant(CurrentFileName)) then begin
77 WriteFile := MsgBox('' + ExpandConstant(CurrentFileName) + '' #13#13 'The file already exists.' #13#13 'Would you like Setup to overwrite it?', mbConfirmation, MB_YESNO) = idYes;
78 end;
79 CheckDone := True;
80 end;
81 Result := WriteFile;
82 end;
83
84 procedure ConcatenateFiles();
85 var
86 MergeConfigs: TArrayOfString;
87 begin
88 if LoadStringsFromFile(ExpandConstant('{tmp}\mergetools.hgrc'),MergeConfigs) then begin
89 SaveStringsToFile(ExpandConstant(CurrentFileName),MergeConfigs,True);
90 end;
91 end;
92
69 procedure Touch(fn: String);
93 procedure Touch(fn: String);
70 begin
94 begin
71 SaveStringToFile(ExpandConstant(fn), '', False);
95 SaveStringToFile(ExpandConstant(fn), '', False);
General Comments 0
You need to be logged in to leave comments. Login now