diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-11-14 14:55:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-14 14:55:21 -0400 |
| commit | cc7caaa6f1035b3a38966534b3d9c7b8db25fdb9 (patch) | |
| tree | bf9165fe08e1ba70d0754d63d94043a3948ccc79 /Assistant/Install.hs | |
| parent | a471f380bd56373bf9613c3b4bfe7448318a0619 (diff) | |
Add undo action to nautilus and konqueror integration.
Diffstat (limited to 'Assistant/Install.hs')
| -rw-r--r-- | Assistant/Install.hs | 8 |
1 files changed, 5 insertions, 3 deletions
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 |