diff options
author | 2013-04-20 19:27:36 -0400 | |
---|---|---|
committer | 2013-04-20 19:27:36 -0400 | |
commit | a38b02679e407588090a12d61592ef7c50472b35 (patch) | |
tree | 8a0adee6f85170b1c6d93fb85f093a27045bf94a | |
parent | 55606fab72bb9a54b02a610eda9bcb8bf0744e34 (diff) |
forgot to commit this new file
-rw-r--r-- | Assistant/Install/Menu.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Assistant/Install/Menu.hs b/Assistant/Install/Menu.hs new file mode 100644 index 000000000..14c62245a --- /dev/null +++ b/Assistant/Install/Menu.hs @@ -0,0 +1,28 @@ +{- Assistant menu installation. + - + - Copyright 2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +{-# LANGUAGE CPP #-} + +module Assistant.Install.Menu where + +import Utility.FreeDesktop + +installMenu :: FilePath -> FilePath -> IO () +installMenu command file = do +#ifndef darwin_HOST_OS + writeDesktopMenuFile (fdoDesktopMenu command) file +#endif + +{- The command can be either just "git-annex", or the full path to use + - to run it. -} +fdoDesktopMenu :: FilePath -> DesktopEntry +fdoDesktopMenu command = genDesktopEntry + "Git Annex" + "Track and sync the files in your Git Annex" + False + (command ++ " webapp") + ["Network", "FileTransfer"] |