c_extras.sh

#!/bin/bash

_basename_no_extension () {
  sed -e 's/^.*\/\(.*\)\.inc$/\1/'
}

_composure_functions () {
  _list_composure_files | _basename_no_extension
}

_load_tab_completions () {
  # support tab completion for 'revise' command
  # you may disable this by adding the following line to your shell startup:
  # export COMPOSURE_TAB_COMPLETION=0

  if [ "$COMPOSURE_TAB_COMPLETION" = "0" ]; then
    return  # if you say so...
  fi

  case "$(_shell)" in
    zsh)
      read -r -d '' SCRIPT <<ZSHDATA
_zsh_revise_complete () {
   typeset word completions
   word="\$1"
   completions="\$(_composure_functions)"
   reply=( "\${(ps:\n:)completions}" )
}
compctl -K _zsh_revise_complete revise
ZSHDATA
      eval "$SCRIPT"
      unset SCRIPT
      ;;
    bash)
      read -r -d '' SCRIPT <<BASHDATA
_bash_revise_complete () {
  typeset cur
  cur=\${COMP_WORDS[COMP_CWORD]}
  COMPREPLY=( \$(compgen -W "\$(_composure_functions)" -- \$cur) )
  return 0
}
complete -F _bash_revise_complete revise
BASHDATA
      eval "$SCRIPT"
      unset SCRIPT
      ;;
    *)
      echo "composure tab completions unavailable"
      ;;
  esac
}

# Second-order functions for composure

findgroup ()
{
    about 'finds all functions belonging to group'
    param '1: name of group'
    example '$ findgroup tools'
    group 'composure'

    typeset func
    for func in $(_typeset_functions)
    do
        typeset group="$(typeset -f $func | metafor group)"
        if [ "$group" = "$1" ]; then
            echo "$func"
        fi
    done
}

overview ()
{
    about 'gives overview of available shell functions, by group'
    group 'composure'

    # display a brief progress message...
    printf '%s' 'building documentation...'
    typeset grouplist=$(mktemp /tmp/grouplist.XXXX);
    typeset func;
    for func in $(_typeset_functions);
    do
        typeset group="$(typeset -f $func | metafor group)";
        if [ -z "$group" ]; then
            group='misc';
        fi;
        typeset about="$(typeset -f $func | metafor about)";
        _letterpress "$about" $func >> $grouplist.$group;
        echo $grouplist.$group >> $grouplist;
    done;
    # clear progress message
    printf '\r%s\n' '                          '
    typeset group;
    typeset gfile;
    for gfile in $(cat $grouplist | sort | uniq);
    do
        printf '%s\n' "${gfile##*.}:";
        cat $gfile;
        printf '\n';
        command rm $gfile 2> /dev/null;
    done | less
    command rm $grouplist 2> /dev/null
}

recompose ()
{
    about 'loads a stored function from ~/.composure repo'
    param '1: name of function'
    example '$ load myfunc'
    group 'composure'

    . $(_get_composure_dir)/$1.inc
}

unique_metafor ()
{
    about 'displays all unique metadata for a given keyword'
    param '1: keyword'
    example '$ unique_metafor group'
    group 'composure'

    typeset keyword=$1

    typeset file=$(mktemp /tmp/composure.XXXX)
    typeset -f | metafor $keyword >> $file
    cat $file | sort | uniq
    command rm $file 2>/dev/null
}

compost () {
	about 'delete function stored in composure repo'
	param '1: name of function'
	example '$ compost myfunc'
	group 'composure'

  typeset func=$1
  [ -z "$func" ] && echo "you must specify a function name!" && return 1

  (
	  cd $(_get_composure_dir)
    git rm "$func.inc" && git commit -m "Delete function $func"
  )
}

_load_tab_completions