From 8fe93f30aca7771836f547bf0a7419196d5ffe38 Mon Sep 17 00:00:00 2001
From: Aidan Woods <aidantwoods@gmail.com>
Date: Fri, 25 Jan 2019 20:54:25 +0000
Subject: [PATCH] Add easy way to remove Components from InlineTyes and
 BlockTypes

---
 psalm.xml                         |  1 +
 src/Components/Inlines/Link.php   |  7 ++++++-
 src/Configurables/BlockTypes.php  | 21 +++++++++++++++++++++
 src/Configurables/InlineTypes.php | 18 ++++++++++++++++++
 tests/CommonMarkTestStrict.php    |  5 ++++-
 5 files changed, 50 insertions(+), 2 deletions(-)

diff --git a/psalm.xml b/psalm.xml
index 8b58482..d3d69ec 100644
--- a/psalm.xml
+++ b/psalm.xml
@@ -30,6 +30,7 @@
                  <referencedMethod name="Erusev\Parsedown\Html\Renderables\Container::__construct" />
                  <referencedMethod name="Erusev\Parsedown\Configurables\BlockTypes::settingMarked" />
                  <referencedMethod name="Erusev\Parsedown\Configurables\BlockTypes::settingUnmarked" />
+                 <referencedMethod name="Erusev\Parsedown\Configurables\BlockTypes::removing" />
             </errorLevel>
         </PossiblyUnusedMethod>
     </issueHandlers>
diff --git a/src/Components/Inlines/Link.php b/src/Components/Inlines/Link.php
index d382bff..ddbfb7d 100644
--- a/src/Components/Inlines/Link.php
+++ b/src/Components/Inlines/Link.php
@@ -6,6 +6,7 @@ use Erusev\Parsedown\AST\Handler;
 use Erusev\Parsedown\AST\StateRenderable;
 use Erusev\Parsedown\Components\Inline;
 use Erusev\Parsedown\Configurables\DefinitionBook;
+use Erusev\Parsedown\Configurables\InlineTypes;
 use Erusev\Parsedown\Configurables\SafeMode;
 use Erusev\Parsedown\Html\Renderables\Element;
 use Erusev\Parsedown\Html\Renderables\Text;
@@ -126,10 +127,14 @@ final class Link implements Inline
                     $attributes['href'] = Element::filterUnsafeUrl($attributes['href']);
                 }
 
+                $NewState = $State->setting(
+                    $State->get(InlineTypes::class)->removing([Url::class])
+                );
+
                 return new Element(
                     'a',
                     $attributes,
-                    $State->applyTo($Parsedown->line($this->label))
+                    $State->applyTo((new Parsedown($NewState))->line($this->label))
                 );
             }
         );
diff --git a/src/Configurables/BlockTypes.php b/src/Configurables/BlockTypes.php
index cafe0ae..ff5bdff 100644
--- a/src/Configurables/BlockTypes.php
+++ b/src/Configurables/BlockTypes.php
@@ -100,6 +100,27 @@ final class BlockTypes implements Configurable
         return new self($this->blockTypes, $newUnmarkedBlockTypes);
     }
 
+    /**
+     * @param class-string<Block>[] $removeBlockTypes
+     * @return self
+     */
+    public function removing(array $removeBlockTypes)
+    {
+        return new self(
+            \array_map(
+                /**
+                 * @param class-string<Block>[] $blockTypes
+                 * @return class-string<Block>[]
+                 */
+                function ($blockTypes) use ($removeBlockTypes) {
+                    return \array_diff($blockTypes, $removeBlockTypes);
+                },
+                $this->blockTypes
+            ),
+            \array_diff($this->unmarkedBlockTypes, $removeBlockTypes)
+        );
+    }
+
     /**
      * @param string $marker
      * @return class-string<Block>[]
diff --git a/src/Configurables/InlineTypes.php b/src/Configurables/InlineTypes.php
index f056eb3..909908f 100644
--- a/src/Configurables/InlineTypes.php
+++ b/src/Configurables/InlineTypes.php
@@ -59,6 +59,24 @@ final class InlineTypes implements Configurable
         return new self(self::$defaultInlineTypes);
     }
 
+    /**
+     * @param class-string<Inline>[] $removeInlineTypes
+     * @return self
+     */
+    public function removing(array $removeInlineTypes)
+    {
+        return new self(\array_map(
+            /**
+             * @param class-string<Inline>[] $inlineTypes
+             * @return class-string<Inline>[]
+             */
+            function ($inlineTypes) use ($removeInlineTypes) {
+                return \array_diff($inlineTypes, $removeInlineTypes);
+            },
+            $this->inlineTypes
+        ));
+    }
+
     /**
      * @param string $marker
      * @return class-string<Inline>[]
diff --git a/tests/CommonMarkTestStrict.php b/tests/CommonMarkTestStrict.php
index e2201d5..9eab638 100644
--- a/tests/CommonMarkTestStrict.php
+++ b/tests/CommonMarkTestStrict.php
@@ -2,6 +2,8 @@
 
 namespace Erusev\Parsedown\Tests;
 
+use Erusev\Parsedown\Components\Inlines\Url;
+use Erusev\Parsedown\Configurables\InlineTypes;
 use Erusev\Parsedown\Configurables\StrictMode;
 use Erusev\Parsedown\Parsedown;
 use Erusev\Parsedown\State;
@@ -21,7 +23,8 @@ class CommonMarkTestStrict extends TestCase
     protected function setUp()
     {
         $this->parsedown = new Parsedown(new State([
-            StrictMode::enabled()
+            StrictMode::enabled(),
+            InlineTypes::initial()->removing([Url::class]),
         ]));
         // $this->parsedown->setUrlsLinked(false);
     }