35 lines
1.1 KiB
Haskell
35 lines
1.1 KiB
Haskell
module Main where
|
|
|
|
import Options.Applicative
|
|
|
|
import Control.Monad.Buuka
|
|
(BuukaM, runBuukaM)
|
|
|
|
import Data.Environment
|
|
|
|
import UnliftIO.Directory
|
|
(XdgDirectory(XdgData), getXdgDirectory)
|
|
|
|
import System.Environment
|
|
(lookupEnv)
|
|
|
|
import qualified Operations
|
|
|
|
commands :: Parser (BuukaM ())
|
|
commands = subparser
|
|
( command "insert" (info (insertOpts Operations.insert) (progDesc "Insert a new bookmark"))
|
|
<> command "list" (info (pure Operations.list) (progDesc "List all the bookmarks"))
|
|
)
|
|
where
|
|
insertOpts f =
|
|
f <$> strOption (long "url" <> short 'u' <> metavar "URL")
|
|
<*> optional (strOption (long "title"))
|
|
|
|
main :: IO ()
|
|
main = do
|
|
env <- Environment <$> (lookupEnv "BUUKA_HOME" >>= maybe defaultHome pure)
|
|
execParser (info (commands <**> helper) (fullDesc <> progDesc description)) >>= runBuukaM env
|
|
where
|
|
defaultHome = getXdgDirectory XdgData "buuka"
|
|
description = "Bookmarks manager. Stores the bookmarks in a yaml file under your xdg directory or in a folder specified by the BUUKA_HOME environment variable"
|