Skip formatting for unsupported file types

Author: zaneduffield

CHANGELOG.md

@@ -7,6 +7,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+### Fixed
+
+* Ignore formatting requests for files without matching file extensions (pas, dpr, dpk, inc).
+
 ## [0.2.0] - 2025-03-18
 
 ### Added

Pasfmt.FormatEditor.pas

@@ -27,7 +27,8 @@ implementation
   Pasfmt.Log,
   System.StrUtils,
   Vcl.Dialogs,
-  System.UITypes;
+  System.UITypes,
+  System.IOUtils;
 
 //______________________________________________________________________________________________________________________
 
@@ -89,8 +90,14 @@ procedure TEditBufferFormatter.Format(Buffer: IOTAEditBuffer);
   SourceEditor: IOTAEditorContent;
   DebuggerServices: IOTADebuggerServices;
   Cursors: TCursors;
+  Extension: string;
 begin
-  if not Supports(Buffer, IOTAEditorContent, SourceEditor) then begin
+  Extension := TPath.GetExtension(Buffer.FileName);
+  if not MatchText(Extension, ['.pas', '.dpr', '.dpk', '.inc']) then begin
+    Log.Debug('Format request ignored: unsupported file extension "%s"', [Extension]);
+    Exit;
+  end
+  else if not Supports(Buffer, IOTAEditorContent, SourceEditor) then begin
     Log.Debug('Format request ignored: the editor is not formattable', [Buffer.FileName]);
     Exit;
   end