rafb adapters

diff --git a/.zsh/zshrc/40_paste b/.zsh/zshrc/40_paste
new file mode 100644 (file)
index 0000000..2bbf6f5
--- /dev/null
+++ b/.zsh/zshrc/40_paste
@@ -0,0 +1,27 @@
+# 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