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

		        (target-sharability (get-sharability json))
                (target-has-children (not (equal json-false (cdr (assoc 'hasChildren json)))))
		        (target-alias (get-alias json))
		        (target-meta (get-meta json)))
		            (if target-id (puthash target-id json exo-atoms))
		            (if (not target-id) (error "missing target id"))

        exo-sharability-viewstyle))
    (exo-update-view)
    (message (concat "switched to " exo-viewstyle " view style")))

(defun exo-toggle-properties-view ()
    "enable or disable the explicit display of atom properties as extra lines within views"
    (interactive)
    (setq exo-view-properties (not exo-view-properties))
    (exo-update-view)
    (message (concat (if exo-view-properties "enabled" "disabled") " property view")))

(defun exo-toggle-truncate-lines ()
    "toggle line wrap mode"
