From 0495319170faf89ba45b61309b9c846d94f8b08d Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 19 Aug 2017 19:16:59 +0000
Subject: [PATCH] Better %metadata nodes custom keys (pandocOptions,
 thisNodebook) processing to improve notebook control of derivated files
 (Markdown, PDF, etc).

---
 .../GrafoscopioUtils.class.st                 | 32 ++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st b/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
index 95ca750..a700e79 100644
--- a/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
+++ b/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
@@ -8,7 +8,7 @@ Class {
 	#category : #'Grafoscopio-Utils'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #utilities }
 GrafoscopioUtils class >> checksumFor: aFileReference [
 	^ (SHA1 new hashMessage: aFileReference binaryReadStream contents) hex.
 ]
@@ -51,6 +51,17 @@ GrafoscopioUtils class >> getContentsFrom: url withMessage: aString [
 	^ client contents.
 ]
 
+{ #category : #utilities }
+GrafoscopioUtils class >> perform: aString on: anObject [
+
+	| msg |
+	msg := self selectorAndArgumentsFrom: aString.
+	msg 
+		at: 'args'
+		ifPresent: [ ^ anObject perform: (msg at: 'selector') withArguments: (msg at: 'args') ]
+		ifAbsent: [ ^ anObject perform: (msg at: 'selector') ]
+]
+
 { #category : #private }
 GrafoscopioUtils class >> sanitize: url [
 	"I remove white spaces in url's and prepend 'http://' to urls when it is ommited, so
@@ -65,6 +76,25 @@ GrafoscopioUtils class >> sanitize: url [
 	^ sanitized
 ]
 
+{ #category : #utilities }
+GrafoscopioUtils class >> selectorAndArgumentsFrom: aString [
+	"I return from aString a symbol that contains a message and an array of arguments used in it"
+	| msgArray answer |
+	answer := OrderedDictionary new.
+	msgArray := aString splitOn: ':'.
+	msgArray size = 1 
+		ifTrue: [ 
+			^ answer
+				at: 'selector' put: (msgArray at: 1) asSymbol;
+				yourself ].
+	msgArray size = 2
+		ifTrue: [ 
+			^ answer
+				at: 'selector' put: ((msgArray at: 1),':') asSymbol;
+				at: 'args' put: (Array with: (msgArray at: 2)); 
+				yourself ].
+]
+
 { #category : #updating }
 GrafoscopioUtils class >> update [
 	"Updates GrafoscopioUtils with new versions of itself take from the source code repository."