(in-package :lila)
(use-package :OLI)

(defun browser-clipping-flag (node name)
  (declare (ignore name))
  (let ((node-item (sd-pathname-to-obj (BrowserNode-objPath node))))
    (if (and (sd-inq-part-p node-item) 
             (eql (sd-inq-obj-clipping-flag node-item) :ON))
      "#F000F0"
      nil
    )
  );let
)


(sd-browser-add-interrogator "parcel-gbrowser"
                             :interrogator-type :text-color
                             :interrogator-func 'browser-clipping-flag)