Source

aura / Aura / Pkgbuild / Base.hs

Full commit
{-

Copyright 2012, 2013, 2014 Colin Woodbury <colingw@gmail.com>

This file is part of Aura.

Aura is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

Aura is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with Aura.  If not, see <http://www.gnu.org/licenses/>.

-}

module Aura.Pkgbuild.Base where

import Control.Monad ((>=>))

import Aura.Bash
import Aura.Core
import Aura.Monad.Aura
import Aura.Pkgbuild.Editing

---

pkgbuildCache :: FilePath
pkgbuildCache = "/var/cache/aura/pkgbuilds/"

toFilename :: String -> FilePath
toFilename = (++ ".pb")

pkgbuildPath :: String -> FilePath
pkgbuildPath p = pkgbuildCache ++ toFilename p

trueVersion :: Namespace -> String
trueVersion ns = pkgver ++ "-" ++ pkgrel
    where pkgver = head $ value ns "pkgver"
          pkgrel = head $ value ns "pkgrel"

-- | Yields the value of the `depends` field.
depends :: Namespace -> [String]
depends = flip value "depends"

makedepends :: Namespace -> [String]
makedepends = flip value "makedepends"

checkdepends :: Namespace -> [String]
checkdepends = flip value "checkdepends"

-- One of my favourite functions in this code base.
pbCustomization :: Buildable -> Aura Buildable
pbCustomization = foldl (>=>) return [customizepkg,hotEdit]

-- | Package a Buildable, running the customization handler first.
packageBuildable :: Buildable -> Aura Package
packageBuildable b = do
    b' <- pbCustomization b
    ns <- namespace (baseNameOf b') (pkgbuildOf b')
    return Package
        { pkgNameOf        = baseNameOf b'
        , pkgVersionOf     = trueVersion ns
        , pkgDepsOf        = map parseDep $ concatMap ($ ns)
                             [depends,makedepends,checkdepends]
        , pkgInstallTypeOf = Build b' }