# zshrc/40_paste
#
# adapters for rafb.pl
#
# Copyright © 1994–2008 martin f. krafft <madduck@madduck.net>
# Released under the terms of the Artistic Licence 2.0
#
# Source repository: http://git.madduck.net/v/etc/zsh.git
#

p()
{
  local url
  eval url="$($BINDIR/rafb -n $USERNAME -d 'paste by $USERNAME' $*)"
  [[ -z $url ]] && return 1
  echo "${url:r}.txt"
}

vp()
{
  local tmpfile="$(vit)"
  setopt localtraps
  trap "rm -f '$tmpfile'" 0
  p "$tmpfile"
}

# vim:ft=zsh