From b4c5547aeb88218177fd6a867e51898fc9a7d720 Mon Sep 17 00:00:00 2001
From: Simon Shine <simon@simonshine.dk>
Date: Wed, 27 Nov 2024 20:06:47 +0100
Subject: [PATCH] mere grinch

---
 concieggs/filters/grinch | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/concieggs/filters/grinch b/concieggs/filters/grinch
index 285018892..425669704 100755
--- a/concieggs/filters/grinch
+++ b/concieggs/filters/grinch
@@ -52,11 +52,12 @@ while (my $line = <>) {
     $line =~ s/familier/virksomheder/gi;
     $line =~ s/familie\b/virksomheds/gi;
     $line =~ s/stjerner/fugle/gi;
+    $line =~ s/stjernen/fuglen/gi;
     $line =~ s/stjerne/fugl/gi;
     $line =~ s/engle/fugle/gi;
     $line =~ s/engel/fugl/gi;
     $line =~ s/familie/virksomhed/gi;
-    $line =~ s/salmer?/rockkoncert/gi;
+    $line =~ s/salmer?/kvad/gi;
     $line =~ s/kirke/politisk møde/gi;
     $line =~ s/et træ/en bregne/gi;
     $line =~ s/træet/bregnen/i;
@@ -83,6 +84,16 @@ while (my $line = <>) {
     $line =~ s/slik/havegrød/gi;
     $line =~ s/risengrød/havegrød/gi;
     $line =~ s/rensdyr/slaver/gi;
+    $line =~ s/hall?eluja/helledusseda/gi;
+    $line =~ s/Maria/Marlene/gi;
+    $line =~ s/Josef/Jens/gi;
+    $line =~ s/hyrde/fodermester/gi;
+    $line =~ s/Bethlehem/Slagelse/gi;
+    $line =~ s/\blam/kalv/gi;
+    $line =~ s/hjerte/lunge/gi;
+    $line =~ s/\bløn/salær/gi;
+    $line =~ s/\bfred/fordragelighed/gi;
+    $line =~ s/\bbøn\b/begæring/gi;
 
     # Ban bad foods
     my $food_pattern = '(\b' . join('\b|\b', @bad_foods) . '\b)';