46b6d75274
When quvi is installed, git-annex addurl automatically uses it to detect when an page is a video, and downloads the video file. web special remote: Also support using quvi, for getting files, or checking if files exist in the web. This commit was sponsored by Mark Hepburn. Thanks!
20 lines
475 B
Haskell
20 lines
475 B
Haskell
{- quvi options for git-annex
|
|
-
|
|
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE Rank2Types #-}
|
|
|
|
module Annex.Quvi where
|
|
|
|
import Common.Annex
|
|
import qualified Annex
|
|
import Utility.Quvi
|
|
import Utility.Url
|
|
|
|
withQuviOptions :: forall a. (Query a) -> [CommandParam] -> URLString -> Annex a
|
|
withQuviOptions a ps url = do
|
|
opts <- map Param . annexQuviOptions <$> Annex.getGitConfig
|
|
liftIO $ a (ps++opts) url
|