 		            (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"))))
+		                (loop for i from 1 to (- key-indent (length key)) do (setq key (concat key " ")))
+                        (setq line (concat line
+                            (propertize (light-gray key "white") 'invisible (not editable))))
                         (let ((space ""))
                             (loop for i from 1 to tree-indent do (setq space (concat space " ")))
                             (setq line (concat line (light-gray space "white") " ")))

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


;; VIEWS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

(defun dark-gray (text background)
