From 8d253a9fdf076cab7a49e88bfd8bc5e3f076fb49 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 13 Feb 2013 18:30:50 -0500
Subject: [PATCH] Support speclj in :A

Closes #45.
---
 plugin/foreplay.vim | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/plugin/foreplay.vim b/plugin/foreplay.vim
index c76a3a2..b144d4d 100644
--- a/plugin/foreplay.vim
+++ b/plugin/foreplay.vim
@@ -1092,8 +1092,10 @@ function! s:alternates() abort
     let alt = [ns[0:-6]]
   elseif ns =~# '\.test\.'
     let alt = [substitute(ns, '\.test\.', '.', '')]
+  elseif ns =~# '-spec$'
+    let alt = [ns[0:-6], ns . '-test']
   else
-    let alt = [ns . '-test', substitute(ns, '\.', '.test.', '')]
+    let alt = [ns . '-test', substitute(ns, '\.', '.test.', ''), ns . '-spec']
   endif
   return map(alt, 'tr(v:val, ".-", "/_") . ".clj"')
 endfunction