diff --git a/src/MiniDocs/Pandoc.class.st b/src/MiniDocs/Pandoc.class.st
index f0d6bdd..54bbdf7 100644
--- a/src/MiniDocs/Pandoc.class.st
+++ b/src/MiniDocs/Pandoc.class.st
@@ -61,6 +61,17 @@ Pandoc class >> extractImagesInUnixFor: aFileReference withFilter: aLuaFilter [
 	]
 ]
 
+{ #category : #accessing }
+Pandoc class >> htmlStringToMarkdown: aString [
+
+OSSUnixSubprocess new
+	shellCommand: 'echo "', aString , '" | pandoc -f markdown -t html';
+	redirectStdout;
+	runAndWaitOnExitDo: [ :command :outString |
+		^ outString 					
+	].
+]
+
 { #category : #converters }
 Pandoc class >> htmlToMarkdown: inputFile [