forgot to commit this new file

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"]