From 580f22f45db4c5b0f7f71c214b72ee5b0f152f99 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 20 Apr 2013 19:27:36 -0400 Subject: [PATCH] forgot to commit this new file --- Assistant/Install/Menu.hs | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 Assistant/Install/Menu.hs diff --git a/Assistant/Install/Menu.hs b/Assistant/Install/Menu.hs new file mode 100644 index 0000000000..14c62245a9 --- /dev/null +++ b/Assistant/Install/Menu.hs @@ -0,0 +1,28 @@ +{- Assistant menu installation. + - + - Copyright 2013 Joey Hess + - + - 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"]