Merge pull request #8 from sebastianconcept/7-Improve-namedPartial-co…

…nvention-for-yield-aNamedPartialToYield-on-aContext-

7 improve named partial convention for yield a named partial to yield on a context

CHANGES.md

@@ -1,3 +1,7 @@
+Jan 21, 2024
+===================================
+- Adjusted `STT yield:on:` to allow rendering cases like this one `<st= STT yield: 'shared/alerts.html' on: self alerts>` where `shared/alerts.html` has alerts deeper in the partials sent in the rendering context.
+
 Jan 8, 2024
 ===================================
 - Added `README.md` and how-to guides: one to test it with `Teapot` and another one using it to make an `htmx` based Counter app.

STTemplate/STT.class.st

@@ -7,6 +7,25 @@ Class {
 	#category : #'STTemplate-Core'
 }
 
+{ #category : #public }
+STT class >> getTemplateFrom: aNamedPartialToYield in: partialsDictionaryish [
+
+	| parts selector reminder missing |
+	parts := aNamedPartialToYield substrings: '/'.
+	missing := [ 
+	           STTError signal:
+		           ('Partial missing at: {1}' format:
+			            { aNamedPartialToYield asString }) ].
+	parts size > 1 ifTrue: [ 
+		selector := parts first.
+		reminder := '/' join: parts allButFirst.
+		^ self
+			  getTemplateFrom: reminder
+			  in: (partialsDictionaryish at: selector ifAbsent: missing) ].
+
+	^ partialsDictionaryish at: parts first ifAbsent: missing
+]
+
 { #category : #public }
 STT class >> yield: aNamedPartialToYield [
 
@@ -22,16 +41,15 @@ STT class >> yield: aNamedPartialToYield [
 { #category : #public }
 STT class >> yield: aNamedPartialToYield on: aContext [
 
-	| renderingContext partial outStream result |
+	| renderingContext template outStream result |
 	renderingContext := STTCurrentRenderingContext value.
-	partial := renderingContext partials
-		           at: aNamedPartialToYield
-		           ifAbsent: [ 
-			           STTError signal:
-				           ('Partial missing: {1}' format:
-					            { aNamedPartialToYield asString }) ].
+	template := self
+		            getTemplateFrom: aNamedPartialToYield
+		            in: renderingContext partials.
 	outStream := STTCurrentRenderingStream value.
-	result := partial renderOn: aContext partials: renderingContext partials.
+	result := template
+		          renderOn: aContext
+		          partials: renderingContext partials.
 	outStream nextPutAll: result
 ]
 

STTemplate/STTemplate.class.st

@@ -415,6 +415,7 @@ STTemplate >> renderOn: anObject partial: partial [
 	The STTCurrentRenderingContext dynamic variable and STTCurrentRenderingContext gives them
 	access to complete its rendering process."
 
+	self deprecated: 'not used'.
 	^ self
 		  renderOn: anObject
 		  partials: { (#_yield -> partial) } asDictionary