From cc7caaa6f1035b3a38966534b3d9c7b8db25fdb9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 14 Nov 2014 14:55:21 -0400 Subject: Add undo action to nautilus and konqueror integration. --- Assistant/Install.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Assistant') diff --git a/Assistant/Install.hs b/Assistant/Install.hs index bba1c5d62..2e57bd38a 100644 --- a/Assistant/Install.hs +++ b/Assistant/Install.hs @@ -92,18 +92,20 @@ installWrapper file content = do installFileManagerHooks :: FilePath -> IO () #ifdef linux_HOST_OS installFileManagerHooks program = do + let actions = ["get", "drop", "undo"] + -- Gnome nautilusScriptdir <- (\d -> d "nautilus" "scripts") <$> userDataDir createDirectoryIfMissing True nautilusScriptdir - genNautilusScript nautilusScriptdir "get" - genNautilusScript nautilusScriptdir "drop" + forM_ actions $ + genNautilusScript nautilusScriptdir -- KDE home <- myHomeDir let kdeServiceMenusdir = home ".kde" "share" "kde4" "services" "ServiceMenus" createDirectoryIfMissing True kdeServiceMenusdir writeFile (kdeServiceMenusdir "git-annex.desktop") - (kdeDesktopFile ["get", "drop"]) + (kdeDesktopFile actions) where genNautilusScript scriptdir action = installscript (scriptdir scriptname action) $ unlines -- cgit v1.2.3