                              buf))))))))
 
 (defun write-resp-val-to-buf (val buf)
+  "Write response value VAL to buffer BUF."
   (set-buffer buf)
   (insert (car val))
   (put-text-props (cadr val) buf))
 
 ;; I have no idea why I seem to need this
 (defun read-if-string (v)
+  "Sometimes V is a string? Seems to depend on versions of cider or something."
   (if (stringp v)
       (read v)
     v))

(setq sayid-ring '())

(defun sayid-version ()
  (interactive)
  (message (concat  "clj="
                    (sayid-req-get-value

;;;###autoload
(defun sayid-get-workspace ()
  (interactive)
  (sayid-req-insert-content (list "op" "sayid-get-workspace")))

(defun sayid-refresh-view ()
  (interactive)
  (sayid-req-insert-content (list "op" "sayid-query"
                                    "query" (peek-query-str))))

;;;###autoload
(defun sayid-show-traced (&optional ns)
  (interactive)
  (sayid-select-traced-buf)
  (sayid-req-insert-content (list "op" "sayid-show-traced"
                                    "ns" ns))
  (sayid-select-default-buf))

