(in-package :browserhack)
(use-package :oli)

(defun my-color-interrogator (node name)
  (declare (ignore name))
  (let* ((objname (BrowserNode-objPname node))
        (objlist (oli:sd-string-split (BrowserNode-objPath node) "\""))
        (objpath (if (> (length objlist) 1) (second objlist) (first objlist)))
        (obj (oli:sd-pathname-to-obj objpath))
        )
    (if (oli:sd-string-match-pattern-p "*.*" objname) "#808080")
    )
  )
(sd-browser-add-interrogator "parcel-gbrowser"
                             :interrogator-type :text-color 
                             :interrogator-func 'my-color-interrogator)