   (interactive)
   (nrepl-send-sync-request (list "op" "sayid-set-view"
                                  "view-name" (concat (completing-read "view: "
-                                                                      (sayid-get-views)))))
+                                                                      (sayid-get-views))))
+                           (cider-current-connection))
   (message "View set."))
 
 ;;;###autoload

          (number-sequence (point-min) (- (point-max) 1))))

(defun sayid-req-get-value (req)
  (read-if-string (nrepl-dict-get (nrepl-send-sync-request req)
                                  "value")))

(defun sayid-req-insert-meta-ansi (req)

    (nrepl-send-sync-request (list "op" "sayid-trace-fn"
                                   "fn-name" (get-text-property (point) 'name)
                                   "fn-ns" (get-text-property (point) 'ns)
                                   "type" "outer")
                             (cider-current-connection))
    (sayid-show-traced ns)
    (goto-char pos)))

