                             ;;'invisible t
 			                    'link-key link-key
 			                    'target-key target-key)))
-                    (write-view children (+ indent 4))))))
+                    (write-view children key-indent (+ tree-indent 4))))))
 
 
 ;; VIEWS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		            (let ((line "") (key (concat link-key ":" target-key ":")))
		                (setq line (concat
		                    line
		                    (light-gray key "grey95")))
		                (let ((space ""))
                            (loop for i from 1 to (- indent (length key)) do (setq space (concat space " ")))
                            (setq line (concat line (light-gray space "grey95") " ")))
					    (if meta (setq line (concat line (dark-gray "(" "white"))))
					    (setq line (concat line

                        (if (> length max) (setq max length))))
                max)))

(defun write-view (children key-indent tree-indent)
    (loop for json across children do
    (let (
        (meta (eq t (cdr (assoc 'meta json))))
