 (defun light-gray (text background)
     (propertize text
 	    'face (if full-colors-supported
-		    (list :foreground "white" :background background)
-;;		    (list :foreground "grey80" :background background)
+		    (list :foreground "grey80" :background background)
 			(list :foreground "black"))))
 
 (defun dark-gray (text background)

		            (if (not target-weight) (error (concat "missing weight for target with key " target-key)))
		            (if (not target-sharability) (error (concat "missing sharability for target with key " target-key)))
		            (let ((line "") (key (concat link-key ":" target-key ":")))
		                (setq line (concat
		                    line
		                    (light-gray key "white")))
		                (let ((space ""))
                            (loop for i from 1 to (- key-indent (length key)) do (setq space (concat space " ")))
                            (setq line (concat line (light-gray space "white"))))
                        (let ((space ""))
                            (loop for i from 1 to tree-indent do (setq space (concat space " ")))
                            (setq line (concat line (light-gray space "white") " ")))

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

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