From 707b84012b480ee671aef3e920e77128d51f2bf1 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 13 Aug 2015 00:23:30 -0400
Subject: bog-file-ask-on-conflict: Use base name in prompt

---
 bog.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bog.el b/bog.el
index 05d0df0..6e22c1a 100644
--- a/bog.el
+++ b/bog.el
@@ -640,7 +640,7 @@ controls the default string for the prompt."
          (setq new-file-name
                (read-string
                 (format "File %s already exists.  Name to use instead: "
-                        citekey-file)
+                        (file-name-base citekey-file))
                 new-file-name nil nil '(new-file-name)))
          (setq citekey-file (expand-file-name new-file-name dir))
          (rename-file staged-file citekey-file))))
-- 
cgit v1.2.3