From fff348ccd0b0f27e09346077f4fcc9f49199b010 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Sun, 4 May 2014 18:09:56 -0400
Subject: [PATCH] Respect 'autowrite' in :Require and :RunTests

---
 plugin/fireplace.vim | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/plugin/fireplace.vim b/plugin/fireplace.vim
index 15c0898..b47e4f7 100644
--- a/plugin/fireplace.vim
+++ b/plugin/fireplace.vim
@@ -1105,6 +1105,9 @@ augroup END
 " :Require {{{1
 
 function! s:Require(bang, echo, ns) abort
+  if &autowrite || &autowriteall
+    silent! wall
+  endif
   if expand('%:e') ==# 'cljs'
     let cmd = '(load-file '.s:str(tr(a:ns ==# '' ? fireplace#ns() : a:ns, '-.', '_/').'.cljs').')'
   else
@@ -1437,6 +1440,9 @@ function! fireplace#capture_test_run(expr) abort
 endfunction
 
 function! s:RunTests(bang, echo, ...) abort
+  if &autowrite || &autowriteall
+    silent! wall
+  endif
   let pre = ''
   if a:bang && a:0
     let expr = '(clojure.test/run-all-tests #"'.join(a:000, '|').'")'