| 
					
				 | 
			
			
				@@ -123,7 +123,7 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    this 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    (let [properties (bean/->clj properties) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          db-based? (config/db-based-graph?) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-         {:keys [redirect format journal schema class]} (bean/->clj opts)] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+         {:keys [redirect format journal schema class customUUID]} (bean/->clj opts)] 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      (p/let [page (<get-block name {:children? false}) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				              new-page (when-not page 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                         (page-handler/<create! 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -133,8 +133,10 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                            :journal? journal 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                            :class? class 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                            :format format} 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           (not db-based?) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                           (assoc :properties properties)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                          (string? customUUID) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                          (assoc :uuid (uuid customUUID)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                          (not db-based?) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                          (assoc :properties properties)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				              _ (when (and db-based? (seq properties)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                  (api-block/db-based-save-block-properties! new-page properties {:plugin this 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                                                                                  :schema schema}))] 
			 |