From 1eeeaccdf0ae09c515bdadd9479ab26865473186 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 6 Jul 2023 22:03:39 +0200
Subject: [PATCH] add Arc Dark HL preset

---
 src/u_d2synpresets.pas | 64 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)

diff --git a/src/u_d2synpresets.pas b/src/u_d2synpresets.pas
index abfc2b04..ff8ab640 100644
--- a/src/u_d2synpresets.pas
+++ b/src/u_d2synpresets.pas
@@ -595,6 +595,70 @@ begin
     selection.Foreground := clNone;
     getHl.calls.Assign(getHl.identifiers);
   end;
+  with fPresets.insertPreset(5) do
+  begin
+    fIsHardcoded := true;
+    name := 'Arc Dark';
+
+    getHl.phobosStyleType := False;
+    getHl.foldKinds := [fkBrackets, fkRegion];
+    getHl.whites.FrameEdges := sfeNone;
+    getHl.numbers.Foreground := 16761218;
+    getHl.numbers.FrameEdges := sfeNone;
+    getHl.symbols.Foreground := clYellow;
+    getHl.symbols.FrameEdges := sfeNone;
+    getHl.identifiers.Foreground := clWhite;
+    getHl.identifiers.FrameEdges := sfeNone;
+    getHl.comments.Foreground := 10664152;
+    getHl.comments.FrameEdges := sfeNone;
+    getHl.strings.Foreground := 5157104;
+    getHl.strings.FrameEdges := sfeNone;
+    getHl.keywords.Foreground := 8511369;
+    getHl.keywords.FrameEdges := sfeNone;
+    getHl.ddoc.Foreground := 14671730;
+    getHl.ddoc.FrameEdges := sfeNone;
+    getHl.inlineAsm.Foreground := 15500491;
+    getHl.inlineAsm.FrameEdges := sfeNone;
+    getHl.special.Foreground := 9684887;
+    getHl.special.FrameEdges := sfeNone;
+    getHl.errors.Foreground := 14807024;
+    getHl.attributes.Foreground := 8441210;
+    getHl.attributes.FrameEdges := sfeNone;
+    getHl.types.Foreground := 14807024;
+    getHl.calls.Foreground := clWhite;
+    getHl.calls.Style := [fsItalic];
+
+    background := 5391680;
+
+    bracketMatch.Background := clNone;
+    bracketMatch.Foreground := clGradientActiveCaption;
+    bracketMatch.FrameStyle := slsDashed;
+    bracketMatch.FrameEdges := sfeNone;
+    bracketMatch.Style := [fsBold];
+
+    currentLine.Background := 8816262;
+    currentLine.Foreground := clNone;
+    currentLine.BackAlpha := 50;
+
+    folding.Background := 7303023;
+    folding.Foreground := clYellow;
+    folding.FrameColor := clGray;
+
+    identifierMatch.Background := clMoneyGreen;
+    identifierMatch.Foreground := clNone;
+    identifierMatch.FrameColor := clInfoText;
+    identifierMatch.FrameEdges := sfeBottom;
+    identifierMatch.BackPriority := 1;
+    identifierMatch.BackAlpha := 30;
+
+    mouseLink.Background := clNone;
+    mouseLink.Foreground := clNone;
+    mouseLink.Style := [fsBold, fsUnderline];
+
+    selection.Background := 5987166;
+    selection.Foreground := clNone;
+    selection.BackPriority := 2;
+  end;
 
   fEditor := TSynEdit.Create(self);
   fEditor.Parent:= self;