From 68fbf1c9554b0ec3cd64863024633b2be3079180 Mon Sep 17 00:00:00 2001
From: SantiagoBragagnolo <santiagobragagnolo@gmail.com>
Date: Sat, 22 Feb 2020 16:00:17 +0000
Subject: [PATCH] Passing to taskit shell some usage of pandoc

---
 .../GrafoscopioDocumentation.class.st                |  2 +-
 src/Grafoscopio-Utils/Pandoc.class.st                | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Grafoscopio-Utils/GrafoscopioDocumentation.class.st b/src/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
index 5eadaf0..3c3bd92 100644
--- a/src/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
+++ b/src/Grafoscopio-Utils/GrafoscopioDocumentation.class.st
@@ -159,7 +159,7 @@ GrafoscopioDocumentation >> registerIntoDockingBar [
 			metadata ifNotNil: [ 
 				metadata 
 					at: 'showOnHelp' 
-					ifPresent: [ GrafoscopioDockingBar addToHelpMenu: currentNotebook ] ] ]
+					ifPresent: [  self error:' missing class grafoscopio docking bar' "GrafoscopioDockingBar addToHelpMenu: currentNotebook" ] ] ]
 ]
 
 { #category : #accessing }
diff --git a/src/Grafoscopio-Utils/Pandoc.class.st b/src/Grafoscopio-Utils/Pandoc.class.st
index 0aaa8fd..f10cc1f 100644
--- a/src/Grafoscopio-Utils/Pandoc.class.st
+++ b/src/Grafoscopio-Utils/Pandoc.class.st
@@ -84,14 +84,14 @@ Pandoc class >> htmlToMarkdown: inputFile [
 { #category : #'as yet unclassified' }
 Pandoc class >> listImagesFrom: aFileReference [
 	"I provide a list of all images contained in aFile."
+
 	| filter commandString outputString |
 	filter := FileLocator temp asFileReference / 'image-links.lua'.
-	filter exists ifFalse: [ self downloadLuaFilters ].
-	commandString := 'pandoc ', aFileReference fullName, ' --lua-filter=',filter fullName.
-	Smalltalk platformName = 'unix'
-		ifTrue: [ ^ self extractImagesInUnixFor: aFileReference withFilter: filter  ].
-	Smalltalk platformName = 'Win32'
-		ifTrue: [ self ].
+	filter exists
+		ifFalse: [ self downloadLuaFilters ].
+	commandString := 'pandoc ' , aFileReference fullName
+		, ' --lua-filter=' , filter fullName.
+	^ self extractImagesInUnixFor: aFileReference withFilter: filter
 ]
 
 { #category : #utility }