add convenience method to the turbostreambuilder to remove a componen…

…t such that you do not need to care about the id
SeasideSt · Aug 26, 2023 · 334aa15 · 334aa15
1 parent bdcb561
commit 334aa15
Show file tree

Hide file tree

Showing 14 changed files with 57 additions and 0 deletions.
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/after.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/after.with..st
@@ -1,3 +1,4 @@
 actions
 after: anId with: aRenderable
+
 	self turboStreamAction: 'after' target: anId with: aRenderable
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/append.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/append.with..st
@@ -1,3 +1,4 @@
 actions
 append: anId with: aRenderable
+
 	self turboStreamAction: 'append' target: anId with: aRenderable
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/before.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/before.with..st
@@ -1,3 +1,4 @@
 actions
 before: anId with: aRenderable
+
 	self turboStreamAction: 'before' target: anId with: aRenderable
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/prepend.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/prepend.with..st
@@ -1,3 +1,4 @@
 actions
 prepend: anId with: aRenderable
+
 	self turboStreamAction: 'prepend' target: anId with: aRenderable
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/remove..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/remove..st
@@ -1,3 +1,4 @@
 actions
 remove: anId
+
 	self turboStreamAction: 'remove' target: anId with: nil
diff --git a/...tory/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/removeComponent..st b/...tory/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/removeComponent..st
@@ -0,0 +1,4 @@
+convenience
+removeComponent: aComponent
+
+	self remove: aComponent turboframeDecoration id
diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/replace.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/replace.with..st
@@ -1,3 +1,4 @@
 actions
 replace: anId with: aRenderable
+
 	self turboStreamAction: 'replace' target: anId with: aRenderable
diff --git a/...otwireTurbo.package/WATurboStreamBuilder.class/instance/turboStreamAction.target.with..st b/...otwireTurbo.package/WATurboStreamBuilder.class/instance/turboStreamAction.target.with..st
@@ -1,5 +1,6 @@
 private
 turboStreamAction: aName target: anId with: aRenderable
+
 	(canvas tag: 'turbo-stream')
 		attributeAt: 'action' put: aName;
 		attributeAt: 'target' put: anId;

diff --git a/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/update.with..st b/repository/Seaside-HotwireTurbo.package/WATurboStreamBuilder.class/instance/update.with..st
@@ -1,3 +1,4 @@
 actions
 update: anId with: aRenderable
+
 	self turboStreamAction: 'update' target: anId with: aRenderable
diff --git a/...itory/Seaside-RenderLoop.package/WATurboRenderPhaseContinuation.class/README.md b/...itory/Seaside-RenderLoop.package/WATurboRenderPhaseContinuation.class/README.md
diff --git a/...ide-RenderLoop.package/WATurboRenderPhaseContinuation.class/instance/processRendering..st b/...ide-RenderLoop.package/WATurboRenderPhaseContinuation.class/instance/processRendering..st
@@ -0,0 +1,10 @@
+processing
+processRendering: aResponse
+
+	self requestContext request isTurboFrameRequest
+		ifTrue: [ 
+			aResponse
+				doNotCache;
+				contentType: self application contentType.
+			self renderTurboFrameResponseOn: aResponse stream ]
+		ifFalse: [ super processRendering: aResponse ]
diff --git a/...easide-RenderLoop.package/WATurboRenderPhaseContinuation.class/instance/renderContext..st b/...easide-RenderLoop.package/WATurboRenderPhaseContinuation.class/instance/renderContext..st
@@ -0,0 +1,4 @@
+accessing
+renderContext: anObject
+
+	renderContext := anObject
diff --git a/...Loop.package/WATurboRenderPhaseContinuation.class/instance/renderTurboFrameResponseOn..st b/...Loop.package/WATurboRenderPhaseContinuation.class/instance/renderTurboFrameResponseOn..st
@@ -0,0 +1,18 @@
+rendering
+renderTurboFrameResponseOn: aStream
+	"Render aRenderable on aStream."
+
+	| document turboframeId |
+	turboframeId := self requestContext request headerAt: 'turbo-frame'.
+	document := (WAHtmlDocument on: aStream codec: self requestContext codec)
+		scriptGenerator: self requestContext handler scriptGeneratorClass new;
+		yourself.
+	renderContext 
+		document: document 
+		during: [
+			renderContext 
+				visitor: ((WATurboFramePresenterGuide client: (WARenderVisitor context: renderContext)) id: turboframeId) 
+				during: [
+					self presenter renderWithContext: renderContext ]
+					"self presenter allPresentersDo: [ :p | ((p isKindOf: WATurboFrame) and: [ turboframeId = p id ]) ifTrue:[ self halt. p renderWithContext: renderContext ] ]" ].
+	document scriptGenerator closeOn: document
diff --git a/repository/Seaside-RenderLoop.package/WATurboRenderPhaseContinuation.class/properties.json b/repository/Seaside-RenderLoop.package/WATurboRenderPhaseContinuation.class/properties.json
@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "WARenderPhaseContinuation",
+	"category" : "Seaside-RenderLoop-Continuations",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"renderContext"
+	],
+	"name" : "WATurboRenderPhaseContinuation",
+	"type" : "normal"
+}