 		            (let ((line "") (key (concat link-key ":" target-key ":")))
 		                (setq line (concat
 		                    line
-		                    (light-gray key)))
-					    (loop for i from 0 to (- indent (length key)) do (setq line (concat line " ")))
-					    (if meta (setq line (concat line (dark-gray "("))))
+		                    (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
-					        (colorize (unescape-link-value link-value) link-weight link-sharability t)))
-					    (if meta (setq line (concat line (dark-gray ")"))))
+					        (colorize (unescape-link-value link-value) link-weight link-sharability t "white")))
+					    (if meta (setq line (concat line (dark-gray ")" "white"))))
                         (setq line (concat line
-                            "  "
-                            (colorize target-value target-weight target-sharability nil)
-                            "\n"))
+                            (colorize (concat "  " target-value "\n") target-weight target-sharability nil "white")))
                         (insert (propertize line
                             ;;'invisible t
 			                    'link-key link-key

                    (elt full-colors (+ j (* i 4)))
                    (elt reduced-colors i))))
	    (if bold
        (propertize text 'face (list 'bold 'italic  :foreground color))
        (propertize text 'face (list :foreground color))))))

(defun unescape-link-value (value)
    (replace-regexp-in-string "[ ]" "\\\\ "
        (replace-regexp-in-string "[)]" "\\\\)"
            (replace-regexp-in-string "[(]" "\\\\(" value))))

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

(defun dark-gray (text)
    (propertize text
	    'face (if full-colors-supported
		    '(:foreground "grey50")
			'(:foreground "black"))))

(defun longest-key (json)
    (let ((max 0))

(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)


;; Uncomment only when debugging
(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))
