Add tcsh completion

.cshrc

@@ -151,3 +151,19 @@ foreach cmd ( `tpope aliases` )
   alias $cmd "tpope $cmd"
 end
 # }}}1
+# Completion {{{1
+
+if ( $?tcsh ) then
+  if ( -f /etc/complete.tcsh ) source /etc/complete.tcsh
+  set hosts=(localhost `tpope host list`)
+  alias _extract_subcommands 'grep "^  [a-z-]*[|)]" \!*|sed -e "s/) .*//"|tr "|" " "'
+  complete tpope 'p@1@`_extract_subcommands "$HOME/bin/tpope"`@' \
+  'n@host@`_extract_subcommands $HOME/bin/tpope-host`@' 'N/host/$hosts/' \
+  'n@config@`_extract_subcommands $HOME/bin/tpope-config`@' 'N/config/$hosts/' \
+  'n/*/f/'
+  foreach cmd ( start stop restart reload force-reload status )
+    complete $cmd 'p@1@`(cd /etc/init.d; echo *)`@'
+  end
+endif
+
+# }}}1