From ff5a5ca804a7c1ee6f1b43e20b7816d669f39095 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 29 Jun 2023 08:11:47 -0500
Subject: [PATCH] Extending ordered dictionaries to be converted into tiddlers.

---
 .../TiddlyWiki/OrderedDictionary.extension.st       | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 repository/TiddlyWiki/OrderedDictionary.extension.st

diff --git a/repository/TiddlyWiki/OrderedDictionary.extension.st b/repository/TiddlyWiki/OrderedDictionary.extension.st
new file mode 100644
index 0000000..5882164
--- /dev/null
+++ b/repository/TiddlyWiki/OrderedDictionary.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #OrderedDictionary }
+
+{ #category : #'*TiddlyWiki' }
+OrderedDictionary >> asTiddler [
+	| tiddlerFields response |
+	response := Tiddler new.
+	tiddlerFields := response class slotNames copyWithoutAll:  #('wiki' 'customFields').
+	self keysAndValuesDo: [ :key :value |
+		(tiddlerFields includes: key)
+			ifTrue: [ response writeSlotNamed: key value: value ]
+	].
+	^ response
+]