mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: support Finder Tag on macOS 15.6+

Browse source 
https://github.com/doublecmd/doublecmd/discussions/2506
This commit is contained in:
rich2014 2025-10-10 21:57:19 +08:00
commit 22a8fdb239
1 changed files with 26 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/platform/unix/darwin/udarwinfindermodel.pas
View file

@ -96,11 +96,18 @@ type
implementation
const
FINDER_TAGS_DATABASE_PATH_14plus = '/Library/Daemon Containers/F6F9E4C1-EF5D-4BF3-BEAD-0D777574F0A0/Data/com.apple.kvs/com.apple.KeyValueService-Production.sqlite';
FINDER_TAGS_DATABASE_PATH_15plus = '/Library/Daemon Containers/EC9E0408-42BF-4F2F-93FC-5DC028346EC8/Data/com.apple.kvs/com.apple.KeyValueService-Production.sqlite';
FINDER_TAGS_DATABASE_PATH_14to15 = '/Library/Daemon Containers/F6F9E4C1-EF5D-4BF3-BEAD-0D777574F0A0/Data/com.apple.kvs/com.apple.KeyValueService-Production.sqlite';
FINDER_TAGS_DATABASE_PATH_12to13 = '/Library/SyncedPreferences/com.apple.kvs/com.apple.KeyValueService-Production.sqlite';
FINDER_TAGS_FILE_PATH_11minus = '/Library/SyncedPreferences/com.apple.finder.plist';
FAVORITE_FINDER_TAGS_FILE_PATH = '/Library/Preferences/com.apple.finder.plist';
const
FINDER_TAGS_DATABASE_PATHS: TStringArray = (
FINDER_TAGS_DATABASE_PATH_15plus,
FINDER_TAGS_DATABASE_PATH_14to15,
FINDER_TAGS_DATABASE_PATH_12to13 );
{ TFinderTag }
class function TFinderTag.tagWithParams( const name: NSString; const colorIndex: Integer;
@ -534,6 +541,21 @@ begin
end;
class function uDarwinFinderModelUtil.getTagsDataFromDatabase: TBytes;
function getDatabasePath: String;
var
i: Integer;
path: String;
begin
for i:=0 to Length(FINDER_TAGS_DATABASE_PATHS)-1 do begin
path:= NSHomeDirectory.UTF8String + FINDER_TAGS_DATABASE_PATHS[i];
if FileExists( path ) then begin
Result:= path;
Exit;
end;
end;
Result:= EmptyStr;
end;
var
connection: TSQLConnection = nil;
transaction: TSQLTransaction = nil;
@ -545,11 +567,9 @@ begin
connection:= TSQLite3Connection.Create( nil );
transaction:= TSQLTransaction.Create( connection );
connection.Transaction:= transaction;
if NSAppKitVersionNumber >= NSAppKitVersionNumber14_0 then
databasePath:= FINDER_TAGS_DATABASE_PATH_14plus
else
databasePath:= FINDER_TAGS_DATABASE_PATH_12to13;
databasePath:= NSHomeDirectory.UTF8String + databasePath;
databasePath:= getDatabasePath;
if databasePath = EmptyStr then
Exit;
connection.DatabaseName:= databasePath;
query:= TSQLQuery.Create( nil );