#!/bin/bash
# This file:
#   http://anggtwu.net/bin/eev-quicklisp.html
#   http://anggtwu.net/bin/eev-quicklisp
#          (find-angg "bin/eev-quicklisp")
# Author: Eduardo Ochs <eduardoochs@gmail.com>
#
# Based on: (find-angg "bin/eev-cabal")
#      See: (find-es "lisp" "eev-quicklisp")
#
# (defun e () (interactive) (find-angg "bin/eev-quicklisp"))
# (defun o () (interactive) (find-angg "bin/eev-cabal"))
# (find-angg ".emacs" "quicklisp")

ql_dir            () { echo ~/quicklisp/; }
ql_releases_dir   () { echo ~/quicklisp/dists/quicklisp/installed/releases/; }
ql_release_file0  () { echo ~/quicklisp/dists/quicklisp/installed/releases/$1.txt; }
ql_release_file   () { cat $(ql_release_file0 $1); }
ql_pkg_dir_short  () { echo "~/quicklisp/$(ql_release_file $1)"; }
ql_pkg_dir        () { echo  ~/quicklisp/$(ql_release_file $1);  }
ql_codecd         () { ql_codecd2 $1 $1; }
ql_codecd2        () {
  echo "(code-c-d \"$1\" \"$(ql_pkg_dir_short $2)\")"
  echo ";; (find-$1file \"\")"
  echo ";; (find-$1sh \"find * | sort\")"
}

eval $*

: <<'%%%%%'
* (eepitch-sh)
* (eepitch-kill)
* (eepitch-sh)
. eev-quicklisp
ql_releases_dir
ql_release_file0 cffi
ql_release_file  cffi
ql_pkg_dir_short cffi
ql_pkg_dir       cffi
ql_codecd        cffi

eev-quicklisp ql_codecd cffi

%%%%%




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