Added a function to squash code-block's content.

src/blocks/code.lisp

@@ -1,5 +1,7 @@
 (uiop:define-package #:reblocks-text-editor/blocks/code
-  (:use #:cl))
+  (:use #:cl)
+  (:import-from #:reblocks-text-editor/document/ops
+                #:map-document))
 (in-package #:reblocks-text-editor/blocks/code)
 
 
@@ -9,3 +11,31 @@
     (if children
         (common-doc:text (first children))
         "")))
+
+
+(defun normalize (root-node)
+  "Normalizes code-block nodes by joining it's children into a single text-node.
+
+   This helper is required until this issue will be resolved:
+
+   https://github.com/CommonDoc/scriba/issues/15"
+  (labels ((normalize-code-blocks (current-node depth)
+             (declare (ignore depth))
+             (when (typep current-node 'common-doc:code-block)
+               (let ((children (common-doc:children current-node)))
+                 (when (not (and (= (length children) 1)
+                                 (typep (first children)
+                                        'common-doc:text-node)))
+                   (setf (common-doc:children current-node)
+                         (list (squash current-node))))))
+             current-node)
+           (squash (code-block)
+             (common-doc:make-text
+              (with-output-to-string (s)
+                (common-doc.ops:with-document-traversal (code-block node)
+                  (etypecase node
+                    (common-doc:text-node
+                     (write-string (common-doc:text node) s))
+                    (common-doc:content-node
+                     nil)))))))
+    (map-document root-node #'normalize-code-blocks)))

src/utils/common-doc.lisp

@@ -0,0 +1,15 @@
+(uiop:define-package #:reblocks-text-editor/utils/common-doc
+  (:use #:cl)
+  (:export
+   #:print-tree))
+(in-package #:reblocks-text-editor/utils/common-doc)
+
+
+(defun print-tree (doc)
+  "Prints CommonDoc nodes as a nested tree, to visualize document structure."
+  (common-doc.ops:with-document-traversal (doc node depth)
+    (loop repeat (1- depth)
+          do (write-char #\Space)
+             (write-char #\Space))
+    (format t "~A~%" node))
+  (values doc))