From cf46a083fda0083c45b0202dea37c7bd5d55c42e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 30 Jun 2023 11:58:56 +0200
Subject: [PATCH] IDE: scan for fpc sources: skip some folders

---
 ide/initialsetupdlgs.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/ide/initialsetupdlgs.pas b/ide/initialsetupdlgs.pas
index 8e7efadd08..ffbbc857af 100644
--- a/ide/initialsetupdlgs.pas
+++ b/ide/initialsetupdlgs.pas
@@ -297,6 +297,24 @@ begin
       if Terminated then Break;
       if (PathInfo.Name='') or (PathInfo.Name[1]='.')
       or ((PathInfo.Attr and faDirectory) = 0) then Continue;
+      case lowercase(PathInfo.Name) of
+      'pictures',
+      'music',
+      'photos',
+      'movies',
+      'videos',
+      'applications',
+      'calendar',
+      'calendars',
+      'mail',
+      'messages',
+      'contacts',
+      'cache',
+      'caches',
+      'trash',
+      'containers',
+      'tmp': continue;
+      end;
       {$IFDEF VerboseFPCSrcScanThead}
       fPath := APath;
       fFileInfo := PathInfo;