feat: created capsule for pascal dialect indicator

Author: ikelaiah

content/about/_index.md

@@ -18,7 +18,7 @@ Wirth believed that a programming language should provide a clear conceptual fra
 ### Readability Above All
 Pascal's English-like syntax makes code self-documenting. When you read Pascal code, you understand not just *what* the program does, but *why* it does it. This clarity reduces bugs, simplifies maintenance, and makes collaboration natural.
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program CalculateAverage;
 var
   numbers: array[1..10] of real;

content/docs/_index.md

@@ -14,7 +14,7 @@ Comprehensive guides and references for Pascal programming.
 
 Pascal uses a clear, structured syntax that emphasizes readability:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program ExampleProgram;
 
 const
@@ -63,7 +63,7 @@ end.
 
 **Structured Types:**
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 { Arrays }
 type
     TScores = array[1..10] of integer;
@@ -87,7 +87,7 @@ type
 
 ### File Operations
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program FileExample;
 var
     inputFile, outputFile: text;
@@ -114,7 +114,7 @@ end.
 
 ### Dynamic Arrays
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program DynamicArrayExample;
 type
     TIntArray = array of integer;
@@ -146,7 +146,7 @@ end.
 
 ### Object-Oriented Programming
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program OOPExample;
 
 type
@@ -214,14 +214,14 @@ end.
 ### Code Style
 
 1. **Use meaningful names:**
-   ```objectpascal
+   ```objectpascal {class="highlight capsule-fpc"}
    var
        studentCount: integer;    // Good
        sc: integer;              // Avoid
    ```
 
 2. **Consistent indentation:**
-   ```objectpascal
+   ```objectpascal {class="highlight capsule-fpc"}
    if condition then
    begin
        statement1;
@@ -230,7 +230,7 @@ end.
    ```
 
 3. **Comment your code:**
-   ```objectpascal
+   ```objectpascal {class="highlight capsule-fpc"}
    { Calculate compound interest }
    function CompoundInterest(principal, rate: real; years: integer): real;
    begin
@@ -240,7 +240,7 @@ end.
 
 ### Error Handling
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program ErrorHandlingExample;
 var
     number, divisor: integer;
@@ -298,7 +298,7 @@ end.
 The System unit is automatically included and provides core functionality:
 
 **Memory Management:**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 { Dynamic memory allocation }
 var
     ptr: ^integer;
@@ -311,7 +311,7 @@ end;
 ```
 
 **String Functions:**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program StringFunctions;
 var
     text: string;
@@ -334,7 +334,7 @@ end.
 
 Provides extended system utilities:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 uses SysUtils;
 
 program SysUtilsExample;
@@ -364,7 +364,7 @@ end.
 
 Mathematical functions and constants:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 uses Math;
 
 program MathExample;
@@ -391,7 +391,7 @@ end.
 
 ### Generic Programming
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program GenericExample;
 
 {$mode objfpc}
@@ -462,7 +462,7 @@ end.
 
 ### Interface Programming
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program InterfaceExample;
 
 {$mode objfpc}
@@ -551,7 +551,7 @@ end.
 
 ### Multi-threading
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program ThreadExample;
 
 {$mode objfpc}
@@ -613,7 +613,7 @@ end.
 
 ### SQLite Integration
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program DatabaseExample;
 
 {$mode objfpc}
@@ -684,7 +684,7 @@ end.
 
 ### Basic Form Application
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 unit MainForm;
 
 {$mode objfpc}{$H+}
@@ -738,7 +738,7 @@ end.
 
 ### Memory Management Tips
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program PerformanceExample;
 
 type
@@ -778,7 +778,7 @@ end.
 
 ### Compiler Directives
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program CompilerDirectives;
 
 {$mode objfpc}          // Object Pascal mode
@@ -814,7 +814,7 @@ end.
 
 ### Unit Testing Framework
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program TestExample;
 
 {$mode objfpc}

content/learn/_index.md

@@ -23,7 +23,7 @@ Choose your Pascal development environment:
 
 Create a new file called `hello.pas`:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program HelloWorld;
 begin
     writeln('Hello, Pascal!');
@@ -44,7 +44,7 @@ fpc hello.pas
 
 Every Pascal program follows this basic structure:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"} {wrapper="highlight capsule-fpc"}
 program ProgramName;
 
 { Constant declarations }
@@ -87,7 +87,7 @@ end.
 
 Pascal has strong typing with these fundamental and practical types:
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 var
   // Integer types
   age: integer;              // -2,147,483,648 to 2,147,483,647
@@ -134,7 +134,7 @@ var
 
 **Conditional Statements:**
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 if age >= 18 then
   writeln('You are an adult')
 else
@@ -150,7 +150,7 @@ end;
 
 **Loops:**
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 { For loop - counting up }
 for i := 1 to 10 do
   writeln('Number: ', i);
@@ -230,7 +230,7 @@ end;
 
 ### Procedures
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 procedure greetUser(name: string);
 begin
   writeln('Hello, ', name, '!');
@@ -245,7 +245,7 @@ end.
 
 ### Functions
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 function calculateArea(radius: real): real;
 begin
   calculateArea := 3.14159 * radius * radius;
@@ -280,7 +280,7 @@ end.
 ### Arrays and Data Structures
 
 **Static Arrays:**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program ArrayExample;
 var
   scores: array[1..5] of integer;
@@ -303,7 +303,7 @@ end.
 ```
 
 **Records (Structures):**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program RecordExample;
 type
   TStudent = record
@@ -333,7 +333,7 @@ end.
 ### File Input/Output
 
 **Reading from Files:**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program ReadFile;
 
 uses
@@ -379,7 +379,7 @@ end.
 ```
 
 **Writing to Files:**
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 program NewTextFile;
 
 uses
@@ -451,7 +451,7 @@ end.
 
 ## Debugging Tips
 
-```objectpascal
+```objectpascal {class="highlight capsule-fpc"}
 { Add debug output }
 writeln('Debug: Variable x = ', x);
 writeln('Debug: Entering function Calculate');

layouts/index.html

@@ -48,7 +48,7 @@ <h1>Pascal</h1>
 
   Application.Run;
 end.` }}
-                        {{ highlight $webserverCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $webserverCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-sorting">
@@ -78,7 +78,7 @@ <h1>Pascal</h1>
     Numbers.Free;
   end;
 end.` }}
-                        {{ highlight $sortingCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $sortingCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-json">
@@ -99,7 +99,7 @@ <h1>Pascal</h1>
     JSON.Free;
   end;
 end.` }}
-                        {{ highlight $jsonCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $jsonCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-filestream">
@@ -135,7 +135,7 @@ <h1>Pascal</h1>
      FileStream.Free;
    end;
  end.` }}
-                        {{ highlight $filestreamCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $filestreamCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-sqlite">
@@ -180,7 +180,7 @@ <h1>Pascal</h1>
     Conn.Free;
   end;
 end.` }}
-                        {{ highlight $sqliteCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $sqliteCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-csv">
@@ -217,7 +217,7 @@ <h1>Pascal</h1>
     CSV.Free;
   end;
 end.` }}
-                        {{ highlight $csvCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $csvCode "objectpascal" "linenos=false"}}</div>
                     </div>
 
                     <div class="code-example" id="example-concurrent">
@@ -276,7 +276,7 @@ <h1>Pascal</h1>
 end.
 
 ` }}
-                        {{ highlight $concurrentCode "objectpascal" "linenos=false" }}
+<div class="highlight capsule-fpc">{{ highlight $concurrentCode "objectpascal" "linenos=false"}}</div>
                     </div>
                 </div>
             </div>

static/css/main.css

@@ -424,6 +424,24 @@ a:hover {
   overflow: hidden;
   border: 1px solid var(--border-color);
   box-shadow: 0 2px 4px var(--shadow);
+  position: relative;
+}
+
+/* Pascal compatibility capsule */
+.highlight.capsule-fpc::before {
+  content: 'FPC';
+  position: absolute;
+  top: var(--spacing-sm);
+  right: var(--spacing-sm);
+  background-color: var(--accent-primary);
+  color: white;
+  padding: 0.25rem 0.5rem;
+  border-radius: 12px;
+  font-size: 0.75rem;
+  font-weight: 600;
+  text-transform: uppercase;
+  letter-spacing: 0.5px;
+  z-index: 10;
 }
 
 pre {