 
 (defun sayid-pprint-buf-exit ()
   (interactive)
-  (pop-to-buffer (car sayid-buf-spec)))
+  (sayid-pop-to-buffer-reuse-visible-sayid (car sayid-buf-spec)))
 
 (defun sayid-get-views ()
   (sayid-req-get-value '("op" "sayid-get-views")))

      (if id-at-point
          (try-goto-prop 'id id-at-point)
        (goto-char 1)))
    (pop-to-buffer orig-buf)))

(defun colorize ()
  (interactive)

  (sayid-req-insert-meta-ansi (list "op" "sayid-buf-pprint-at-point"
                                    "trace-id" (get-text-property (point) 'id)
                                    "path" (get-text-property (point) 'path)))
  (goto-char 1)
  (sayid-select-default-buf))

