From 1f478e401a01d3456ec63cf962ddc086bb5c894d Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Thu, 25 Jun 2015 10:17:58 -0400
Subject: [PATCH] Tweak <cfile>

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

diff --git a/plugin/fireplace.vim b/plugin/fireplace.vim
index c035a5e..c7af283 100644
--- a/plugin/fireplace.vim
+++ b/plugin/fireplace.vim
@@ -1340,17 +1340,17 @@ function! fireplace#cfile() abort
   let file = expand('<cfile>')
   if file =~# '^\w[[:alnum:]_/]*$' &&
         \ synIDattr(synID(line("."),col("."),1),"name") =~# 'String'
-    let file = substitute(expand('%:p'), '[^\/:]*$', '', '').a:file.'.'.expand('%:e')
+    let file = substitute(expand('%:p'), '[^\/:]*$', '', '').a:file
   elseif file =~# '^[^/]*/[^/.]*$' && file =~# '^\k\+$'
     let [file, jump] = split(file, "/")
     if file !~# '\.'
       try
-        let file = tr(fireplace#evalparse('((ns-aliases *ns*) '.s:qsym(file).' '.s:qsym(file).')'), '.', '/')
+        let file = tr(fireplace#evalparse('((ns-aliases *ns*) '.s:qsym(file).' '.s:qsym(file).')'), '.-', '/_')
       catch /^Clojure:/
       endtry
     endif
   elseif file =~# '^\w[[:alnum:]-]\+\.[[:alnum:].-]\+$'
-    let file = tr(file, '.', '/')
+    let file = tr(file, '.-', '/_')
   endif
   if exists('jump')
     return '+sil!dj\ ' . jump . ' ' . fnameescape(file)