         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"

(defun black (text)
    (propertize text 'face (list :foreground "black")))

(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)

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