UPD: Move GetUserDataDir function to uXdg unit

This commit is contained in:
Alexander Koblov 2014-12-31 12:00:03 +00:00
commit 2c308c3cfc

View file

@ -194,11 +194,6 @@ function FileIsUnixExecutable(const Filename: UTF8String): Boolean;
function FindMountPointPath(const FileName: UTF8String): UTF8String;
function GetDefaultAppCmd(const FileName: UTF8String): UTF8String;
function GetFileMimeType(const FileName: UTF8String): UTF8String;
{en
Returns a base directory relative to which user-specific data
files should be written.
}
function GetUserDataDir: UTF8String;
{en
Fix separators in case they are broken UTF-8 characters
(FPC takes only first byte as it doesn't support Unicode).
@ -456,14 +451,6 @@ begin
end;
{$ENDIF}
function GetUserDataDir: UTF8String;
begin
Result:= mbGetEnvironmentVariable('XDG_DATA_HOME');
if Length(Result) = 0 then begin
Result:= GetHomeDir + '/.local/share';
end;
end;
procedure FixDateTimeSeparators;
var
TimeEnv: String;