 (setq exo-current-line 1)
 (setq exo-mode nil)  ;; Note: 'view-mode' is used by Emacs.
 (setq exo-viewstyle exo-sharability-viewstyle)
+(setq exo-view-properties nil)
 (setq exo-value-truncation-length 100)
 
 

			(list :foreground "black"))))

(defun create-id-infix (id)
    (light-gray (concat (propertize (concat " :" id) 'invisible t) ":") "white"))

(defun write-view (editable children tree-indent)
    (loop for json across children do


(defun get-alias (atom)
    (let ((x (assoc 'alias atom)))
        (if x (cdr x) nil)))

(defun get-shortcut (atom)
    (let ((x (assoc 'shortcut atom)))
        (if x (cdr x) nil)))

(defun get-type (atom)
