From 1be8984162e6f40324106dd784c8891db215b1ef Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sat, 9 Apr 2016 17:38:38 +0200
Subject: [PATCH] GTK: fixup withCopyModeDialog

By adding a more specialized showRenameDialog function
and also cleaning up the responses/return values for
showCopyModeDialog.
---
 src/HSFM/GUI/Gtk/Dialogs.hs | 45 ++++++++++++++++++++++++++++---------
 1 file changed, 35 insertions(+), 10 deletions(-)

diff --git a/src/HSFM/GUI/Gtk/Dialogs.hs b/src/HSFM/GUI/Gtk/Dialogs.hs
index b0f3df4..9e3bca6 100644
--- a/src/HSFM/GUI/Gtk/Dialogs.hs
+++ b/src/HSFM/GUI/Gtk/Dialogs.hs
@@ -102,7 +102,8 @@ showConfirmationDialog str = do
 
 
 -- |Asks the user which directory copy mode he wants via dialog popup
--- and returns 'DirCopyMode'.
+-- and returns 'DirCopyMode'. Default is always Strict, so this allows
+-- switching to Merge/Replace/Rename.
 showCopyModeDialog :: IO (Maybe CopyMode)
 showCopyModeDialog = do
   chooserDialog <- messageDialogNew Nothing
@@ -117,7 +118,7 @@ showCopyModeDialog = do
   rID <- dialogRun chooserDialog
   widgetDestroy chooserDialog
   case rID of
-    ResponseUser 0 -> return (Just Strict)
+    ResponseUser 0 -> return Nothing
     ResponseUser 1 -> return (Just Merge)
     ResponseUser 2 -> return (Just Replace)
     ResponseUser 3 -> do
@@ -128,6 +129,29 @@ showCopyModeDialog = do
     _              -> throw  UnknownDialogButton
 
 
+-- |Stipped version of `showCopyModeDialog` that only allows cancelling
+-- or Renaming.
+showRenameDialog :: IO (Maybe CopyMode)
+showRenameDialog = do
+  chooserDialog <- messageDialogNew Nothing
+                                    [DialogDestroyWithParent]
+                                    MessageQuestion
+                                    ButtonsNone
+                                    "Target exists, how to proceed?"
+  _ <- dialogAddButton chooserDialog "Cancel"  (ResponseUser 0)
+  _ <- dialogAddButton chooserDialog "Rename"  (ResponseUser 1)
+  rID <- dialogRun chooserDialog
+  widgetDestroy chooserDialog
+  case rID of
+    ResponseUser 0 -> return Nothing
+    ResponseUser 1 -> do
+      mfn   <- textInputDialog "Enter new name"
+      forM mfn $ \fn -> do
+        pfn <- P.parseFn (P.userStringToFP fn)
+        return $ Rename pfn
+    _              -> throw  UnknownDialogButton
+
+
 -- |Attempts to run the given function with the `Strict` copy mode.
 -- If that raises a `FileDoesExist` or `DirDoesExist`, then it prompts
 -- the user for action via `showCopyModeDialog` and then carries out
@@ -136,16 +160,17 @@ withCopyModeDialog :: (CopyMode -> IO ()) -> IO ()
 withCopyModeDialog fa =
   catch (fa Strict) $ \e ->
     case e of
-      FileDoesExist _ -> doIt
-      DirDoesExist  _ -> doIt
-      SameFile _ _    -> doIt
+      FileDoesExist _ -> doIt showCopyModeDialog
+      DirDoesExist  _ -> doIt showCopyModeDialog
+      SameFile _ _    -> doIt showRenameDialog
       e'              -> throw e'
   where
-    doIt = do mcm <- showCopyModeDialog
-              case mcm of
-                (Just Strict) -> return () -- don't try again
-                (Just cm)     -> fa cm
-                Nothing       -> return ()
+    doIt getCm = do
+      mcm <- getCm
+      case mcm of
+        (Just Strict) -> return () -- don't try again
+        (Just cm)     -> fa cm
+        Nothing       -> return ()
 
 
 -- |Shows the about dialog from the help menu.