#!/bin/bash
# This file:
#   http://angg.twu.net/bin/eev-cabal.html
#   http://angg.twu.net/bin/eev-cabal
#           (find-angg "bin/eev-cabal")
# Author: Eduardo Ochs <eduardoochs@gmail.com>
# Version: 2022sep20
#
# This script is used by:
#   (find-angg ".emacs.templates" "find-cabal-links")
#   (find-angg ".emacs.templates" "find-cabal-unpack")
# Tests:
#   (find-cabal-links)
#   (find-cabal-links "hoogle")
#
# (defun e () (interactive) (find-angg "bin/eev-cabal"))

ghc_version          () { ghc --version | awk '{print $NF}'; }
ghc_store_dir        () { echo ~/.cabal/store/ghc-$(ghc_version); }
ghc_store_package_db () { echo ~/.cabal/store/ghc-$(ghc_version)/package.db; }
ghc_pkg_             () { echo ghc-pkg --package-db=$(ghc_store_package_db) $*; }
ghc_pkg              () { $(ghc_pkg_) $*; }
ghc_list_            () { $(ghc_pkg_) list $*; }
ghc_list             () { $(ghc_pkg_) list $* | head -n -1 | tail -n +2; }
ghc_field_           () { ghc_pkg field $*; }
ghc_field            () { ghc_pkg field $* | awk '{print $NF}'; }
ghc_describe         () { ghc_pkg describe $*; }
cabal_tgz            () { echo ~/.cabal/packages/hackage.haskell.org/$1/*/*; }
cabal_tgz_b          () { basename $(cabal_tgz $1) .tar.gz; }

eval $*

: <<'%%%%%'
* (eepitch-bash)
* (eepitch-kill)
* (eepitch-bash)
. eev-cabal
echo $(ghc_pkg_ describe hoogle)
       ghc_pkg  describe hoogle
ghc_field_ hoogle library-dirs
ghc_field  hoogle library-dirs
ghc_describe hoogle
echo $(ghc_store_package_db)/hoogle-*
cabal_tgz    hoogle
cabal_tgz_b  hoogle

# (find-sh "ghc-pkg --help")
# (find-sh "eev-cabal ghc_pkg list")
# (find-sh "eev-cabal ghc_list_")
# (find-sh "eev-cabal ghc_list")
# (find-sh "eev-cabal ghc_field_ hoogle library-dirs")
# (find-sh "eev-cabal ghc_describe hoogle")
# (find-sh "eev-cabal ghc_field hoogle library-dirs")

%%%%%

# Local Variables:
# coding:  utf-8-unix
# End: