Permalink
Browse files

Merge branch 'master' of github.com:dnaumov/midje-mode

  • Loading branch information...
2 parents 0c3c72d + 07fc6ce commit 10ad5b6084cd03d5cd268b486a7c3c246d85535f @marick marick committed Aug 9, 2017
Showing with 13 additions and 7 deletions.
  1. +13 −7 midje-mode.el
View
@@ -140,7 +140,7 @@
(narrow-to-region start (point))
(goto-char (point-min))
(fill-paragraph nil)
- (midje-add-midje-comments (point-min) (point-max))_)))
+ (midje-add-midje-comments (point-min) (point-max)))))
(progn
(midje-clear-comments)
(message "The check(s) for this fact succeeded")))))
@@ -226,9 +226,12 @@ Check that fact and also save it for use of
(buffer-substring-no-properties (mark) (point)))))
(setq last-checked-midje-fact string)
(midje-goto-above-fact)
- (nrepl-send-string string
- (nrepl-check-fact-handler (current-buffer))
- (cider-current-ns))))
+ (cider-nrepl-send-request
+ (list "op" "eval"
+ "ns" (cider-current-ns)
+ "code" string
+ "session" (cider-current-session))
+ (nrepl-check-fact-handler (current-buffer)))))
(defun midje-recheck-last-fact-checked ()
"Used when `point` is on or just after a def* form.
@@ -238,9 +241,12 @@ the last fact checked (by `midje-check-fact-near-point')."
(interactive)
(midje-clear-comments)
(midje-goto-below-code-under-test)
- (nrepl-send-string last-checked-midje-fact
- (nrepl-check-fact-handler (current-buffer))
- last-checked-midje-fact-ns))
+ (cider-nrepl-send-request
+ (list "op" "eval"
+ "ns" last-checked-midje-fact-ns
+ "code" last-checked-midje-fact
+ "session" (cider-current-session))
+ (nrepl-check-fact-handler (current-buffer))))
(defun midje-check-fact ()
"If on or near a Midje fact, check it with

0 comments on commit 10ad5b6

Please sign in to comment.