forgot to commit this new file
This commit is contained in:
parent
844e772910
commit
580f22f45d
1 changed files with 28 additions and 0 deletions
28
Assistant/Install/Menu.hs
Normal file
28
Assistant/Install/Menu.hs
Normal file
|
@ -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"]
|
Loading…
Add table
Add a link
Reference in a new issue