ver 2010.02 → 2010.08

data/config/commands/Standard ML.rb

@@ -0,0 +1,38 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SML:=sml}\"\necho \"CM.make \\\"sources.cm\\\";\"|\"$TM_SML\"|pre",
+  input: "none",
+  keyEquivalent: "^R",
+  name: "Build CM",
+  output: "showAsHTML",
+  scope: "source.ml",
+  uuid: "1EA6E877-4B4E-44EC-9118-9295A0F1432D"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "if [[ -d \"$TM_SMLNJ_HOME/base/system\" ]]; then\n  cd \"$TM_SMLNJ_HOME/base/system\"\n  make\nelse\n  echo \"No such folder: $TM_SMLNJ_HOME/base/system\"\nfi\n",
+  input: "none",
+  keyEquivalent: "@b",
+  name: "Build SML",
+  output: "showAsHTML",
+  scope: "source.ml",
+  uuid: "0E144686-095D-4B69-94D0-6E0ECA41C90D"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "ruby -- \"$TM_SUPPORT_PATH/bin/checknest.rb\" '(?x) (functor|structure) (.+) = (?=\\s*struct)' 'end' 'end (* $1 $2 *)' -n$TM_LINE_NUMBER",
+  input: "document",
+  keyEquivalent: "~@.",
+  name: "Close Module Decl",
+  output: "afterSelectedText",
+  scope: "source.ml",
+  uuid: "C008E916-56AE-4310-9C05-D3070AAF1CF8"},
+ {autoScrollOutput: true,
+  beforeRunningCommand: "nop",
+  command: "require_cmd \"${TM_SML:=sml}\"\n\"$TM_SML\"|pre",
+  input: "selection",
+  keyEquivalent: "@r",
+  name: "Run in SML",
+  output: "showAsHTML",
+  scope: "source.ml",
+  uuid: "18819157-C273-4649-9013-3A2705993795"}]

data/config/commands/Subversion.rb

@@ -0,0 +1,181 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"${TM_RUBY:-ruby}\" -r \"$TM_SUPPORT_PATH/lib/shelltokenize.rb\" <<END\n\tsvn = ENV['TM_SVN'] || \"svn\"\n\tputs %x{\#{svn} add \#{TextMate.selected_paths_for_shell}}\nEND",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Add to Repository",
+  output: "showAsTooltip",
+  uuid: "CB149C8E-74CD-11D9-813D-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nexport LANG='EN'\n\"$TM_SVN\" blame -v \"$TM_FILEPATH\" 2>&1 \\\n|\"${TM_RUBY:-ruby}\" -- \"${TM_BUNDLE_SUPPORT}/format_blame.rb\"",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Blame",
+  output: "showAsHTML",
+  uuid: "37113D20-778A-11D9-B053-0011242E4184"},
+ {beforeRunningCommand: "saveModifiedFiles",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nrequire_cmd \"${TM_RUBY:=ruby}\" \"We need Ruby to proceed.\"\n\nexport TM_RUBY\nexport TM_SVN\nexport CommitWindow=\"$TM_SUPPORT_PATH/bin/CommitWindow.app/Contents/MacOS/CommitWindow\"\n\ncd \"${TM_PROJECT_DIRECTORY:-$TM_DIRECTORY}\"\n\"${TM_RUBY:-ruby}\" -- \"${TM_BUNDLE_SUPPORT}/svn_commit.rb\" &> /dev/console &\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Commit…",
+  output: "discard",
+  uuid: "5F2BCB27-7A5B-11D9-A61B-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "if [[ -n \"$TM_SELECTED_FILE\" && -d \"$TM_SELECTED_FILE\" ]]\n   then cd \"$TM_SELECTED_FILE\"\n   else cd \"${TM_PROJECT_DIRECTORY:-$TM_DIRECTORY}\"\nfi\n\n\"${TM_SVN:-svn}\" diff --diff-cmd diff",
+  input: "none",
+  name: "Diff Selected Files With Working Copy (BASE)",
+  output: "openAsNewDocument",
+  uuid: "18D4CF4B-2363-412E-B396-6E33868B2EE4"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"${TM_RUBY:-ruby}\" <<'END'\n#!/usr/bin/env ruby -w\n\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/svn_diff\"\n\nSubversion::diff_active_file('BASE', \"Diff With Working Copy\")\nEND",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Diff With Working Copy (BASE)",
+  output: "openAsNewDocument",
+  uuid: "11D4D7C2-7665-11D9-B58C-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   ". \"$TM_SUPPORT_PATH/lib/webpreview.sh\"\nhtml_header \"Subversion Help\" \"Subversion\"\n\n\"$TM_SUPPORT_PATH/lib/markdown_to_help.rb\" <<'EOF'\n\nThis document describes the commands of the TextMate Subversion bundle and how you can fine-tune their behavior. For general Subversion help and tutorial, you should read the [Subversion book](http://svnbook.red-bean.com/ \"Version Control with Subversion\").\n\n# Command Reference\n\n## Adding, Removing, Updating, Committing\n\nThese commmands operate on the selected files/folders in the project, or the active file if it doesn't belong to a project.\n\n*\t__Add to Repository__\n\n\tSchedules the targets for addition to the repository.\n\n*\t__Remove From Repository&hellip;__\n\n\tSchedules the targets for removal from the repository.\n\n*\t__Revert__\n\n\tReverts the file to the base revision. Any modifications to the file will be lost.\n\n*\t__Update to Newest__\n\n\tUpdates the targets with the newest changes from the repository.\n\n*\t__Commit__\n\n\tCommits your changed files to the repository. A dialog asks you for the description of\n\tyour changes; you may also choose to exclude files from the commit by unchecking them.\n\tIf no files are selected or active, this command does nothing. If the target files\n\thave no local changes, nothing happens.\n\n## Information, Logs, Status\n\n*\t__Blame__\n\n\tDisplays a line-by-line history of the active file, showing you who wrote which line in what revision.\t Click a line to jump to it in an editor window.  Hover over a revision number or author name to see when the corresponding line was last changed. The date format is [adjustable](#tm_svn_date_format). Requires access to the repository.\n\n*\t__Info__\n\n\tDisplays detailed information about the selected files, including the type of file, who last changed the file, the date file was last changed, the repository URL to the file, and other information. Does not require access to the repository.\n\n\tSome parameters are configurable via shell variables; see the [Configuration Options](#tm_svn_info) section below.\n\n*\t__Log__\n\t\n\tDisplays the commit message history for the selected files.\n\tSome parameters are configurable via shell variables; see the [Configuration Options](#tm_svn_log) section below.\n\t\n*\t__View Revision&hellip;__\n\n\tDisplays a different revision of the active file. This command presents you with a list of revisions to choose from.\n\n*\t__Status__\n\n\tDisplays the modification status for each of the selected files/folders, or for the active file's directory if there is no project.\n\tDoes not access the repository.\n\n## Comparing Revisions\n\nThese commands operate on the active file.\n\n*\t__Diff Revisions&hellip;__\n\t\n\tDisplays the differences between two specific revisions of the active file. You will be presented with a list of revisions; please select two.\n\t\n*\t__Diff With Newest (HEAD)__\n\t\n\tDisplays the differences between the active file and the newest available revision of the file on the server.\n\tEquivalent to `svn diff -rHEAD`.\n\t\n*\t__Diff With Working Copy (BASE)__\n\t\n\tDisplays the differences between the active file and an unaltered, pristine copy of the file at the same revision.\n\tEquivalent to `svn diff -rBASE`.\n\t\n*\t__Diff With Previous Revision (PREV)__\n\t\n\tDisplays the differences between the active file and the previous revision of the file.\n\tEquivalent to `svn diff -rPREV`.\n\t\n*\t__Diff With Revision&hellip;__\n\t\n\tDisplays the differences between the active file and a different revision of the same file. This command presents you with a list of revisions to choose from.\n\t\n## Merging Revisions\n\n*\t__Show Available Revisions for Merging__\n\n\tDisplay revisions that can be merged into a selected folder in a project. This command requires the [`svnmerge.py`](http://www.orcaware.com/svn/wiki/Svnmerge.py \"svnmerge.py is a tool for automatic branch management\") script to be installed and for merge tracking to have been previously initiated.\n\n*\t__Resolve Conflicts With FileMerge&hellip;__\n\n\tOpens the active file in FileMerge. This command sets up FileMerge to facilitate conflict resolution.\n\n*\t__Resolved__\n\n\tRemoves conflict-related artifact files for the selected file, allowing the file to be committed after you have fixed the conflicts. Does not remove conflict markers or resolve conflicts itself.\n\n## Check Out\n\n*\t__Check Out&hellip;__\n\t\n\tCheck out a local working copy of a repository directory. Asks for a path to the repository directory to check out.\n\n# Configuration Options\n\nThese shell variables allow you to tweak the behavior of the certain commands if need be. The default values should make sense for normal use. Learn [how to set these variables](?static_variables).\n\n## Tools\n\n*\t`$TM_SVN` (default: `svn`)\n\t\n\tthe path to your svn executable. Must be reachable either as an absolute path or as a relative path from the shell PATH environment variable.\n\t\n*\t`$TM_SVNMERGE` (default: `svnmerge`)\n\t\n\tthe path to your svnmerge.py script.\n\t\n*\t`$TM_RUBY` (default: `ruby`)\n\t\n\tHere you can tweak with what Ruby the formatting scripts will be executed.\n\t\n*\t`$TM_SVN_DIFF_CMD` (default: not set)\n\t\n\tAllows you to set a command that should be used to present file differences. If you want use Apple’s FileMerge application, use [`fmdiff`](http://ssel.vub.ac.be/ssel/internal:fmdiff).\n\n## Date Format\n\n*\t<a name=\"tm_svn_date_format\">`$TM_SVN_DATE_FORMAT`</a> (default: not set&mdash;no changes, just show what SVN shows)\n\t\n\tA date format string that allows you to tweak the format in which Blame, Log and Info show you dates.\t \n\tSee [strftime(3)](http://developer.apple.com/documentation/Darwin/Reference/ManPages/man3/strftime.3.html \"man page for strftime(3)\") for what you can enter here.\n\n## Blame, Info, and Log Options\n\n*\t`$TM_SVN_CLOSE` (default: false)\n\t\n\tAdjust whether the windows of Blame and Info close when you click on a link which opens a file in TM.  Set it to `1` or `true` if windows should close or to something else if they should not.\n\t\n*\t<a name=\"tm_svn_log\">`$TM_SVN_LOG_RANGE`</a> (default: `BASE:1`)\n\t\n\tThe default range to query for log messages.\n\t\n*\t`$TM_SVN_LOG_LIMIT` (default: 15)\n\t\n\tThe number of messages to show.\t 0 means no limit.\n\n*\t<a name=\"tm_svn_info\">`$TM_SVN_INFO_HIDE`</a> (default: nothing)\n\n\tHere you can adjust what keys of the info stream you don't want to see, it is case insensitive and a comma (,) separated list.\n\tIf you enter a `*`, it is assumed that you want to hide all vars, if so, you can make some values visible again with `$TM_SVN_INFO_SHOW`.\n\n*\t`$TM_SVN_INFO_SHOW` (default: everything else)\n\n\tThis is also a comma separated list of keys, it just makes sense if you did hide all with the above var.\n\t`*` has no special meaning here. Everything you enter here will be shown if you want to hide everything else.\n\n*\t`$TM_SVN_IGNORE_BAD_LINES` (default: not set)\n\n\tBy setting this variable, Log will not print unexpected text that may appear at the beginning of Subversion's output. This could be useful if you frequently see this output but you deem it safe to ignore.\n\nEOF\n",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Help",
+  output: "showAsHTML",
+  uuid: "0CE6FB29-8467-11D9-ABBA-0011242E4184"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n: ${TM_RUBY:=ruby}\nFORMAT_INFO=\"${TM_BUNDLE_SUPPORT}/format_info.rb\"\n\nif [[ -z $TM_SELECTED_FILES ]]; then\n   \"$TM_SVN\" info \"$TM_FILEPATH\" 2>&1 \\\n   |\"$TM_RUBY\" -- \"$FORMAT_INFO\"\nelse\n   eval \"$TM_SVN\" info \"$TM_SELECTED_FILES\" 2>&1 \\\n   |\"$TM_RUBY\" -- \"$FORMAT_INFO\"\nfi",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Info",
+  output: "showAsHTML",
+  uuid: "56BE2092-806D-11D9-A0FB-0011242E4184"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n: ${TM_RUBY:=ruby}\n: ${TM_SVN_LOG_RANGE:=HEAD:1}\n: ${TM_SVN_LOG_LIMIT:=15}\nFORMAT_LOG=\"${TM_BUNDLE_SUPPORT}/format_log_xml.rb\"\n\nif [[ $TM_SVN_LOG_LIMIT -eq 0 ]]; then\n\tLIMIT=\"\"\nelse\n\tLIMIT=\"--limit $TM_SVN_LOG_LIMIT\"\nfi\n\nif [[ -z $TM_SELECTED_FILES ]]; then\n   \"$TM_SVN\" log --xml $LIMIT -vr \"$TM_SVN_LOG_RANGE\" \\\n   \"$TM_FILEPATH\" 2>&1 | \"$TM_RUBY\" -- \"$FORMAT_LOG\"\nelse\n   eval \"$TM_SVN\" log --xml $LIMIT -vr \"$TM_SVN_LOG_RANGE\" \\\n   \"$TM_SELECTED_FILES\" 2>&1 | \"$TM_RUBY\" -- \"$FORMAT_LOG\"\nfi",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Log",
+  output: "showAsHTML",
+  uuid: "55048B05-38AA-4B6C-A83C-7F6190F53B6C"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nif [[ -z \"$TM_SELECTED_FILES\" && -z $TM_FILEPATH ]]; then\n   exit_show_tool_tip \"No files selected.\"\nfi\n\nfile_list () {\n   if [[ -n \"$TM_SELECTED_FILES\" ]]; then\n      eval arr=(\"$TM_SELECTED_FILES\")\n      for (( i = 0; i < ${#arr[@]}; i++ )); do\n         FILE=\"${arr[$i]}\"\n         echo \"${FILE#\#$TM_PROJECT_DIRECTORY/}\"\n      done\n   else\n      echo \"$TM_FILENAME\"\n   fi\n}\n\nrv=$(CocoaDialog textbox --float --title \"Remove from Repository\" \\\n   --string-output --no-newline --informative-text \\\n   \"These files will be scheduled for deletion during the next commit.\" \\\n   --text \"$(file_list|sort -f)\" --button1 \"Delete\" --button2 \"Cancel\")\n\nif [[ \"$rv\" == \"Delete\" ]]; then\n   if [[ -n \"$TM_SELECTED_FILES\" ]];\n      then eval \"$TM_SVN\" rm \"$TM_SELECTED_FILES\"\n      else      \"$TM_SVN\" rm \"$TM_FILEPATH\"\n   fi\nfi\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Remove From Repository…",
+  output: "showAsTooltip",
+  uuid: "40EF180F-B8AE-40F7-8237-40A53314B57C"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/bin/bash\n#\n# Wrapper script to use FileMerge to resolve Subversion conflicts\n# [modified slightly from http://ssel.vub.ac.be/svn-gen/bdefrain/fmscripts/fmresolve]\n#\n\nconflictfile=\"$TM_FILEPATH\"\nFM=\"/Developer/Applications/Utilities/FileMerge.app/Contents/MacOS/FileMerge\"\n\nrequire_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nrequire_cmd \"$FM\" \"You must install the Apple developer tools to run FileMerge\"\n\nfunction lookup {\n\tlocal info=$1\n\tlocal wantedkey=$2\n\tlocal key\n\tlocal value\n\t# Split lines in info through word splitting\n\tlocal IFS=$'\\n'\n\tfor line in $info; do\n\t\tkey=${line%%: *}\n\t\tvalue=${line#*: }\n\t\tif [ $key == $wantedkey ]; then\n\t\t\tRETVAL=$value\n\t\t\treturn 0\n\t\tfi\n\tdone\n\treturn 1\n}\n\nfiledir=`dirname \"$conflictfile\"`\ninfo=`\"$TM_SVN\" info \"$conflictfile\"`\nlookup \"$info\" \"Conflict Current Base File\" && leftfile=$RETVAL\nlookup \"$info\" \"Conflict Previous Working File\" && rightfile=$RETVAL\nlookup \"$info\" \"Conflict Previous Base File\" && ancestorfile=$RETVAL\nmergefile=`basename \"$conflictfile\"`\n\nif [ -z \"$leftfile\" ] || [ -z \"$rightfile\" ] || [ -z \"$ancestorfile\" ]; then\n\techo \"Can't obtain conflict info for $conflictfile\" 1>&2\n\texit 2\nfi\n\n#echo Starting FileMerge... 1>&2\n\"$FM\" -left \"${filedir}/${leftfile}\" -right \"${filedir}/${rightfile}\" -ancestor \"${filedir}/${ancestorfile}\" -merge \"${filedir}/${mergefile}\" &>/dev/null &\n\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Resolve Conflicts With FileMerge…",
+  output: "showAsTooltip",
+  uuid: "E8EE6110-2DBA-4FC1-807B-9B19B5DE6737"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"$TM_SVN\" resolved \"$TM_FILEPATH\"\n\n# force TM to refresh the project to get rid of the conflict files..\nrescan_project\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Resolved",
+  output: "showAsTooltip",
+  uuid: "8C299FDF-E050-4AFE-A306-491DC4C4A11A"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\neval '\"$TM_BUNDLE_SUPPORT/revert_file.rb\"' \"${TM_SELECTED_FILES:-'$TM_FILEPATH'}\"\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Revert",
+  output: "showAsTooltip",
+  uuid: "B9F3EC5C-B299-11D9-9356-0011242E4184"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nrequire_cmd \"${TM_RUBY:=ruby}\" \"We need Ruby to proceed.\"\n\nexport TM_RUBY\nexport TM_SVN\nexport CommitWindow=\"$TM_SUPPORT_PATH/bin/CommitWindow.app/Contents/MacOS/CommitWindow\"\n\n{ if [[ -z $TM_SELECTED_FILES ]]\n\tthen\n\texport WorkPath=\"${TM_PROJECT_DIRECTORY:-$TM_DIRECTORY}\"\n\texport TM_SELECTED_FILES=\"'\"${WorkPath//\\'/\\'\\\\\\'\\'}\"'\"\n\t\"$TM_SVN\" status \"$WorkPath\" 2>&1| \"${TM_RUBY:-ruby}\" -KU -- \"${TM_BUNDLE_SUPPORT}/format_status.rb\" \"--status\"\n\telse\n\teval \"$TM_SVN\" status \"$TM_SELECTED_FILES\" 2>&1 |\"${TM_RUBY:-ruby}\" -KU -- \"${TM_BUNDLE_SUPPORT}/format_status.rb\" \"--status\"\nfi; }\n",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Status",
+  output: "showAsHTML",
+  uuid: "01F140D9-749F-11D9-8199-000A95A89C98"},
+ {beforeRunningCommand: "saveModifiedFiles",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nif [[ -n \"$TM_SELECTED_FILE\" && -d \"$TM_SELECTED_FILE\" ]]\n   then WorkPath=\"$TM_SELECTED_FILE\"\n   else WorkPath=\"${TM_PROJECT_DIRECTORY:-$TM_DIRECTORY}\"\nfi\n\nexport TM_SVN\nexport WorkPath\n\n\"$TM_SVN\" update \"$WorkPath\" 2>&1 \\\n|\"${TM_RUBY:-ruby}\" -- \"${TM_BUNDLE_SUPPORT}/format_status.rb\"\n\n# force TM to refresh the current file..\nrescan_project\n",
+  input: "none",
+  name: "Update Selected Files to Newest (HEAD)",
+  output: "showAsHTML",
+  uuid: "A1DEEFE4-7E3A-11D9-81A1-000A95A89C98"},
+ {beforeRunningCommand: "saveModifiedFiles",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"${TM_RUBY:-ruby}\" -r \"$TM_SUPPORT_PATH/lib/shelltokenize.rb\" <<END\n\tsvn = ENV['TM_SVN'] || \"svn\"\n\truby = ENV['TM_RUBY'] || \"ruby\"\n\tsupport = ENV['TM_BUNDLE_SUPPORT']\n\tpaths = TextMate.selected_paths_array\n\t\n\t# TODO: Ideally, we'd like to use a tooltip for one and not others, but we can't switch from a tooltip\n\t# to dynamic HTML output (or maybe we could double-fork a process?)\n\t# if ((paths.size == 1) and not (File.directory? paths[0]))\n\t#\tputs %x{\#{svn} update \#{TextMate.selected_paths_for_shell}}\n\t# else\n\t\tupdate = IO.popen(\"'\#{svn}' update \#{TextMate.selected_paths_for_shell}\", 'r')\n\t\tformat = IO.popen(\"'\#{ruby}' -- '\#{support}/format_status.rb'\", 'w')\n\t\tupdate.each_line { |line| format.puts(line) }\n\t# end\t\nEND\n\n# force TM to refresh the current file..\nrescan_project\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "Update to Newest (HEAD)",
+  output: "showAsHTML",
+  uuid: "175D3D76-74CE-11D9-813D-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nruby >& /tmp/tm_svn_debug <<END &\nbegin\n\trequire \"$TM_BUNDLE_SUPPORT/svn_revision_chooser\"\n\n\tSubversion::view_revision(\"$TM_FILEPATH\")\nrescue Exception => error\n\tTextMate::UI.alert(:warning, \"You’ve discovered a bug\", \"Please report the following text: \#{error}\\n\\n\#{error.backtrace.join(%Q{\\n})}\")\nend\nEND\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: "View Revision…",
+  output: "discard",
+  uuid: "05DF9B5B-AB88-4597-ACD3-DD1DCEDC0BE8"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n# Setup Dialog asking for host\nurl=$(CocoaDialog inputbox --float \\\n    --title \"Subversion Checkout\" \\\n    --informative-text \"URL:\" \\\n    --text \"svn+ssh://\" \\\n    --button1 \"Checkout\" \\\n    --button2 \"Cancel\")\n\n# If user canceled exit.\n[[ \"${url:0:1}\" == \"2\" ]] && exit_discard\n\n# skip the return code so we are left with just the url\nurl=\"${url:2}\"\n\n# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= #\n\n# Setup Dialog asking where to save\nlocation=$(CocoaDialog filesave --float \\\n    --text \"Checking out $url\" \\\n    --with-file \"$(basename \"$url\")\" )\n\n# If user canceled exit.\n[[ -z \"$location\" ]] && exit_discard\n\n# format the checkout output\nexport WorkPath=\"$location\" # format_status will show paths as relative to this value\n\"$TM_SVN\" checkout \"$url\" \"$location\" 2>&1 |\"${TM_RUBY:-ruby}\" -KU -- \"${TM_BUNDLE_SUPPORT}/format_status.rb\" --checkout\n\nopen -b com.macromates.textmate \"$location\"\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Check Out…",
+  output: "showAsHTML",
+  uuid: "03E4CAA8-0F74-4394-8709-4EF0E22F908B"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nruby >& /tmp/tm_svn_debug <<END &\nbegin\n\trequire 'tempfile'\n\trequire \"$TM_BUNDLE_SUPPORT/svn_revision_chooser\"\n\trequire \"$TM_BUNDLE_SUPPORT/svn_diff\"\n\n\tfile = ENV['TM_FILEPATH']\n\trevisions = Subversion::choose_revision(file, \"Diff two revs of \#{File.basename(file)}\", 2)\n\tunless revisions.nil?\n\t\tdiff_text = Subversion::diff_working_copy_with_revision(:paths => [file],\n\t\t\t\t\t\t\t\t:revision => \"\#{revisions[1]}:\#{revisions[0]}\",\n\t\t\t\t\t\t\t\t:command_name => \"Diff Revisions…\")\n\t\tTempfile.open(\"svndiff \#{File.basename(file)}\") do |tempfile|\n\t\t\ttempfile.write(diff_text)\n\t\t\ttempfile.flush\n\t\t\t%x{\"\#{ENV['TM_SUPPORT_PATH']}/bin/mate\" -w \#{e_sh(tempfile.path)}}\n\t\tend\n\tend\n\nrescue Exception => error\n\tTextMate::UI.alert(:warning, \"You’ve discovered a bug\", \"Please report the following text: \#{error}\\n\\n\#{error.backtrace.join(%Q{\\n})}\")\nend\nEND\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Diff Revisions…",
+  output: "discard",
+  uuid: "C7802039-B3C4-11D9-8D63-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"${TM_RUBY:-ruby}\" <<'END'\n#!/usr/bin/env ruby -w\n\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/svn_diff\"\n\nSubversion::diff_active_file('HEAD', \"Diff With Newest\")\nEND\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Diff With Newest (HEAD)",
+  output: "openAsNewDocument",
+  uuid: "DF784C33-74D7-11D9-813D-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\n\"${TM_RUBY:-ruby}\" <<'END'\n#!/usr/bin/env ruby -w\n\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/svn_diff\"\n\nSubversion::diff_active_file('PREV', \"Diff With Previous\")\nEND",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Diff With Previous Revision (PREV)",
+  output: "openAsNewDocument",
+  uuid: "37135380-74CE-11D9-813D-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "require_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nruby >& /tmp/tm_svn_debug <<END &\nbegin\n\trequire 'tempfile'\n\trequire \"$TM_BUNDLE_SUPPORT/svn_revision_chooser\"\n\trequire \"$TM_BUNDLE_SUPPORT/svn_diff\"\n\n\tfile = ENV['TM_FILEPATH']\n\trevisions = Subversion::choose_revision(file, \"Diff \#{File.basename(file)} working copy?\")\n\t\n\tunless revisions.nil?\n\t\tdiff_text = Subversion::diff_working_copy_with_revision(:paths => [file], :revision => revisions[0], :command_name => \"Diff With Revision…\")\n\t\tTempfile.open(\"svndiff \#{File.basename(file)}\") do |tempfile|\n\t\t\ttempfile.write(diff_text)\n\t\t\ttempfile.flush\n\t\t\t%x{\"\#{ENV['TM_SUPPORT_PATH']}/bin/mate\" -w \#{e_sh(tempfile.path)}}\n\t\tend\n\tend\n\nrescue Exception => error\n\tTextMate::UI.alert(:warning, \"You’ve discovered a bug\", \"Please report the following text: \#{error}\\n\\n\#{error.backtrace.join(%Q{\\n})}\")\nend\nEND\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Diff With Revision…",
+  output: "discard",
+  uuid: "32E15B26-B444-11D9-8D63-000A95A89C98"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/bin/bash\n#\nrequire_cmd \"${TM_SVN:=svn}\" \"If you have installed svn, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVN</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nrequire_cmd \"${TM_SVNMERGE:=svnmerge}\" \"If you have installed svnmerge, then you need to either update your <tt>PATH</tt> or set the <tt>TM_SVNMERGE</tt> shell variable (e.g. in Preferences / Advanced)\"\n\nworkpath=\"$TM_SELECTED_FILE\"\nif [[ ! -d \"$workpath\" ]]; then\n\tpre <<< \"Please select a folder in the project drawer.\"\n\texit\nfi\n\nFORMAT_LOG=\"${TM_BUNDLE_SUPPORT}/format_log.rb\"\n\n# svnmerge calls stty if COLUMNS is not set. Apparently Python has no is_tty? equivalent.\nexport COLUMNS=80\n\ncd \"$workpath\"\n\n# check for no or multiple HEADs\nintegratedRevs=`svn propget svnmerge-integrated \"$workpath\"`\nif [[ -z \"$integratedRevs\" ]]; then\n\tpre <<< \"Merge tracking has not been initialized for '$workpath'\"\n\texit\nfi\n\ntheHead=`osascript <<END\n\t-- split heads (yes, svnmerge uses spaces to delimit; hopefully spaces in filenames get URI-style encoded, but I haven't checked)\n\tset AppleScript's text item delimiters to {\" \"}\n\tset theList to (every text item of \"$integratedRevs\")\n\n\t-- split head names from associated revision numbers\n\tset theHeads to {}\n\tset AppleScript's text item delimiters to {\":\"}\n\trepeat with i from 1 to the count of theList\n\t\tset theHeads to (theHeads & (text item 1 of (item i of theList)))\n\tend\n\n\tif the count of theHeads is greater than 1 then\n\t\ttell app \"TextMate\"\n\t\t\tchoose from list theHeads with prompt \"Please choose the HEAD directory for '$workpath':\"\n\t\tend tell\n\telse if the count of theHeads is 1 then\n\t\tset the result to item 1 of theHeads\n\telse\n\t\tset the result to false\n\tend if\nEND`\n\n# exit if user canceled\n[[ \"$theHead\" = \"false\" ]] && exit_discard\n\n\n\"$TM_SVNMERGE\" avail --log -S \"`basename $theHead`\" 2>&1 \\\n\t| \"${TM_RUBY:=ruby}\" -- \"$FORMAT_LOG\" '--title=Revisions Available for Merging'\n",
+  input: "none",
+  keyEquivalent: "^A",
+  name: " Show Available Revisions for Merging",
+  output: "showAsHTML",
+  uuid: "BA4B9C28-6566-46E8-8482-9A52DCB5384D"}]

data/config/commands/TODO.rb

@@ -0,0 +1,32 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  bundleUUID: "0B296803-7D51-11D9-859D-000D93B6E43C",
+  command: 
+   "#!/usr/bin/env bash\n\n. \"$TM_SUPPORT_PATH/lib/webpreview.sh\"\nhtml_header \"TODO Bundle Help\" \"TODO\"\n\n\"$TM_SUPPORT_PATH/lib/markdown_to_help.rb\" <<'MARKDOWN'\n\n# Introduction\n\nThe \"Show TODO List\" command will scan your current document (on disk) or documents in your project for lines containing certain tags (see below).\nYou will be presented with a row of “Tabs” that are counting matches while the search is going on. Once the search finishes a list for each of the tags and their context is shown. Each entry can be clicked to jump to that line in that file. The lists can be ordered by clicking on their column titles. Clicking on the Tabs will jump to the corresponding list.\n\nTextMate will ignore files whose full path matches the regular expression defined by the environment variable `TM_TODO_IGNORE`.\n\nNote: This command requires Ruby 1.8\n\n# Tags\n\nPreconfigured tags are:\n\n* <span style=\"color: #A00000;\">FIXME (or FIX ME)</span>\n* <span style=\"color: #CF830D;\">TODO</span>\n* <span style=\"color: #008000;\">CHANGED</span>\n* <span style=\"color: #0090C8;\">RADAR (as &lt;radar://…&gt; or &lt;rdar://…&gt;)</span>\n\nThose tags can easily be set up via the <span onClick=\"TextMate.system(&apos;&quot;${TM_RUBY:-ruby}&quot; &quot;$TM_BUNDLE_SUPPORT/lib/settings.rb&quot; &amp;&gt;/dev/null &amp;&apos;, null)\">“Preferences”</a> command.\n\n# Hints\n\n* The list can be printed using _Print…_ (⌘P) from the _File_ menu.\n* The Command will abort when the project directory resolves to the root folder.\n* Access keys: `⌃` + first letter of the tag (like `⌃T` for “TODO”) will jump to the respective section.\n\nMARKDOWN\n\nhtml_footer\n",
+  input: "none",
+  name: "Help",
+  output: "showAsHTML",
+  uuid: "46C3E5A1-7E04-11D9-AE69-000D93B6E43C"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -wKU\nrequire ENV['TM_SUPPORT_PATH'] + '/lib/escape.rb'\n\n10.times do |n|\n  start = ENV[\"TM_COMMENT_START\#{\"_\#{n}\" if n > 0}\"].to_s.strip\n  stop  = ENV[\"TM_COMMENT_END\#{\"_\#{n}\"   if n > 0}\"].to_s.strip\n  unless start.empty? || stop.empty?\n    print \"\#{e_sn start}\\n\\tTODO $0\\n\#{e_sn stop}\"\n    exit\n  end\nend\n\nfallback = ENV['TM_COMMENT_START'].to_s.strip\nprint \"\#{e_sn fallback.sub(/.$/, '\\\\0 ')}TODO \"\n",
+  input: "none",
+  name: "Insert TODO List",
+  output: "insertAsSnippet",
+  tabTrigger: "todo",
+  uuid: "D2F7F545-5149-47B9-AC62-DBDC6ACAB9BB"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -wKU\nrequire \"\#{ENV['TM_SUPPORT_PATH']}/lib/tm/detach\"\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib/settings.rb\"\nTextMate.detach { Settings.show_ui }\n",
+  input: "none",
+  name: "Preferences…",
+  output: "showAsTooltip",
+  uuid: "65C4098C-BB16-4CA1-9297-B312BCD0433F"},
+ {beforeRunningCommand: "saveModifiedFiles",
+  command: "\"${TM_RUBY:-ruby}\" -r \"$TM_BUNDLE_SUPPORT/todo.rb\"",
+  input: "none",
+  keyEquivalent: "^T",
+  name: "Show TODO List",
+  output: "showAsHTML",
+  uuid: "14C1643E-7D51-11D9-859D-000D93B6E43C"}]

data/config/commands/Tcl.rb

@@ -0,0 +1,21 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "word=${TM_SELECTED_TEXT:-$TM_CURRENT_WORD}\n\ntry_man () {\n\tif man n -w \"$word\" &>/dev/null; then\n\t\tpage=$(\"$TM_SUPPORT_PATH/bin/html_man.sh\" n \"$word\")\n\t\techo \"<meta http-equiv='Refresh' content='0;URL=tm-file://$page'>\"\n\t\texit_show_html\n\tfi\n}\n\ntry_man\n\necho \"Couldn’t find documentation in 'man n' for “${word}”\"\n",
+  dontFollowNewOutput: true,
+  fallbackInput: "word",
+  input: "selection",
+  keyEquivalent: "^h",
+  name: "Documentation for Word / Selection (man) copy",
+  output: "showAsTooltip",
+  scope: "source.tcl",
+  uuid: "56F8C50E-B263-430C-9301-A34EDF05E9F5"},
+ {beforeRunningCommand: "saveActiveFile",
+  command: "${TM_TCLSH:=tclsh} \"$TM_FILEPATH\"|pre",
+  input: "none",
+  keyEquivalent: "@r",
+  name: "Run",
+  output: "showAsHTML",
+  scope: "source.tcl",
+  uuid: "59700A78-7CB7-11D9-875B-000A95E13C98"}]

data/config/commands/TerminalMate.rb

@@ -0,0 +1,30 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby\n\n$LOAD_PATH << \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib\"\nrequire \"terminal_mate\"\n\nfile_ext = ENV[\"TERMINAL_MATE_FILE_EXTENSION\"].to_s\ntm_filepath = ENV[\"TM_FILEPATH\"]\nif tm_filepath.nil?\n  tmpfile = `mktemp -t TerminalMate`.chomp # Couldn't get Tempfile to work…\n  tmpfile += file_ext\n  File.open(tmpfile, \"w\") do |f| f.write(STDIN.read) end\n  file = tmpfile\n  File.chmod(0755, file) if file_ext == \".sh\"\nelse\n  file = tm_filepath\nend\nTerminalMate::Client.new.send(\"load_file\", ENV[\"TM_SCOPE\"], ENV[\"TERMINAL_MATE_LOAD\"] % file)\n",
+  input: "document",
+  keyEquivalent: "^I",
+  name: "Load File",
+  output: "afterSelectedText",
+  scope: "source",
+  uuid: "964A0E53-3896-4EC6-AC15-038DC8FCEEE2"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby\n$LOAD_PATH << \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib\"\nrequire \"terminal_mate\"\nTerminalMate::Client.new.send(\"new\", ENV[\"TM_SCOPE\"], ENV[\"TM_PROJECT_DIRECTORY\"], ENV[\"TERMINAL_MATE_NEW\"])\n",
+  input: "none",
+  keyEquivalent: "^I",
+  name: "New Terminal",
+  output: "afterSelectedText",
+  scope: "source",
+  uuid: "8F305E73-F68F-4A5D-B04B-A8646F2CC695"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby\n$LOAD_PATH << \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib\"\nrequire \"terminal_mate\"\nTerminalMate::Client.new.send(\"paste\", ENV[\"TM_SCOPE\"], STDIN.read)\n",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "^I",
+  name: "Paste Selection",
+  output: "discard",
+  scope: "source",
+  uuid: "3B47B103-857B-4A75-938B-4D57D4803BC2"}]

data/config/commands/Text.rb

@@ -0,0 +1,137 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "get_pw () {\n  ruby -rui -e\"print TextMate::UI.request_secure_string(:title => 'Decrypt AES 128 Encrypted Text', :prompt => '$1', :button1 => '$2', :button2 => 'Cancel').to_s\"\n}\n\npw=$(get_pw 'What is the password?' Decrypt)\n[[ -z \"$pw\" ]] && exit_discard\n\nif ! openssl enc -d -aes128 -base64 -pass \"pass:$pw\"; then\n   exit_show_tool_tip\nfi\n",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "^@E",
+  name: "AES Decrypt Document / Selection With Password…",
+  output: "replaceSelectedText",
+  uuid: "4B22577B-BC8E-11D9-8946-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "get_pw () {\n  ruby -rui -e\"print TextMate::UI.request_secure_string(:title => 'Encrypt Text With AES 128', :prompt => '$1', :button1 => '$2', :button2 => 'Cancel').to_s\"\n}\npw1=$(get_pw 'What password should be used?'   Continue)\n[[ -z \"$pw1\" ]] && exit_discard\npw2=$(get_pw 'Enter password again to verify.' Encrypt)\n\nif [[ \"$pw1\" == \"$pw2\" ]];\n  then openssl enc -e -aes128 -base64 -pass \"pass:$pw1\"\n  else exit_show_tool_tip 'Password mismatch! Please play again.'\nfi\n",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "^@E",
+  name: "AES Encrypt Document / Selection With Password…",
+  output: "replaceSelectedText",
+  uuid: "D39DC176-BC8D-11D9-8946-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "cat -n|expand -8",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "",
+  name: "Add Line Numbers to Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "8085013F-8DEA-11D9-B421-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -wKU\nprint STDIN.read.unpack(\"U*\").map { |e| sprintf('0x%02x', e) }.join(' ')",
+  fallbackInput: "character",
+  input: "selection",
+  keyEquivalent: "^X",
+  name: "Convert Character / Selection to Hex",
+  output: "replaceSelectedText",
+  uuid: "7C9736B2-B851-11D9-B05D-00039369B986"},
+ {beforeRunningCommand: "nop",
+  bundleUUID: "B7BC3FFD-6E4B-11D9-91AF-000D93589AF6",
+  command: 
+   "res=$(ruby -rui -e\"print TextMate::UI.request_string(:title => 'Filter Matching Lines', :prompt => 'Enter a pattern:', :button1 => 'Filter', :button2 => 'Cancel').to_s\")\n\n[[ -z \"$res\" ]] && exit_discard\nexport pattern=\"$res\"\n\n# This could be done with grep, but Python's RE is closer to oniguruma\n\"${TM_PYTHON:-python}\" -c '\nimport sys, os, re, traceback\ntry:\n  pattern = re.compile(os.environ[\"pattern\"])\nexcept re.error, e:\n  sys.stderr.write(\"Invalid pattern: %s\" % e)\n  sys.exit(1)\nfor line in sys.stdin:\n  if pattern.search(line):\n    sys.stdout.write(line)\n' || exit_show_tool_tip\n",
+  input: "selection",
+  name: "Copy Matching Lines into New Document",
+  output: "openAsNewDocument",
+  uuid: "965DF29E-4EBD-457A-9A61-56D920C35F72"},
+ {beforeRunningCommand: "nop",
+  bundleUUID: "B7BC3FFD-6E4B-11D9-91AF-000D93589AF6",
+  command: 
+   "res=$(ruby -rui -e\"print TextMate::UI.request_string(:title => 'Filter Non-Matching Lines', :prompt => 'Enter a pattern:', :button1 => 'Filter', :button2 => 'Cancel').to_s\")\n\n[[ -z \"$res\" ]] && exit_discard\nexport pattern=\"$res\"\n\n# This could be done with grep, but Python's RE is closer to oniguruma\n\"${TM_PYTHON:-python}\" -c '\nimport sys, os, re, traceback\ntry:\n  pattern = re.compile(os.environ[\"pattern\"])\nexcept re.error, e:\n  sys.stderr.write(\"Invalid pattern: %s\" % e)\n  sys.exit(1)\nfor line in sys.stdin:\n  if not pattern.search(line):\n    sys.stdout.write(line)\n' || exit_show_tool_tip\n",
+  input: "selection",
+  name: "Copy Non-Matching Lines into New Document",
+  output: "openAsNewDocument",
+  uuid: "8109F2C2-FF63-46F7-83F3-D2318290FC11"},
+ {beforeRunningCommand: "nop",
+  bundleUUID: "B7BC3FFD-6E4B-11D9-91AF-000D93589AF6",
+  command: 
+   "res=$(ruby -rui -e\"print TextMate::UI.request_string(:title => 'Distill Text', :prompt => 'Enter a pattern:', :button1 => 'Filter', :button2 => 'Cancel').to_s\")\n\n[[ -z \"$res\" ]] && exit_discard\nexport pattern=\"$res\"\n\n# This could be done with grep, but Python's RE is closer to oniguruma\n\"${TM_PYTHON:-python}\" -c '\nimport sys, os, re, traceback\ntry:\n  pattern = re.compile(os.environ[\"pattern\"])\nexcept re.error, e:\n  sys.stderr.write(\"Invalid pattern: %s\" % e)\n  sys.exit(1)\nmate = \"\\\"%s/bin/mate\\\" -a\" % os.environ[\"TM_SUPPORT_PATH\"]\npb = os.popen(mate, \"w\")\nfor line in sys.stdin:\n  if pattern.search(line):\n    pb.write(line)\n  else:\n    sys.stdout.write(line)\npb.close()\n' || exit_show_tool_tip\n\n",
+  input: "selection",
+  name: "Distill Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "DA5AD0D9-F7C0-4010-9FDC-FF01B0434F9A"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -wKU\n\n# If there’s a selection, output that twice (as a snippet)\n# leaving the duplicate as the new selected text.\n# Otherwise split the current line around the caret and\n# output “right, left” to duplicate the line, leaving the\n# caret in the same place on the new line\n\nrequire File.join(ENV[\"TM_SUPPORT_PATH\"], \"lib/exit_codes.rb\")\nrequire File.join(ENV[\"TM_SUPPORT_PATH\"], \"lib/escape.rb\")\n\nif ENV['TM_SELECTED_TEXT'] != nil\n\tTextMate.exit_insert_snippet(e_sn(ENV['TM_SELECTED_TEXT']) + \"${0:\" + e_snp(ENV['TM_SELECTED_TEXT']) + \"}\")\nelse\n\tcol   = ENV['TM_LINE_INDEX'].to_i\n\tTextMate.exit_insert_text(ENV['TM_CURRENT_LINE'][col..-1] + \"\\n\" + ENV['TM_CURRENT_LINE'][0...col])\nend",
+  fallbackInput: "none",
+  input: "selection",
+  keyEquivalent: "^D",
+  name: "Duplicate Line / Selection",
+  output: "afterSelectedText",
+  uuid: "C46A9DBC-0B06-49DF-838B-491B529ECF22"},
+ {beforeRunningCommand: "nop",
+  command: "open \"$(cat)\"\n",
+  fallbackInput: "scope",
+  input: "selection",
+  keyEquivalent: "",
+  name: "Open Current URL",
+  output: "discard",
+  scope: "markup.underline.link - markup.underline.link.relative",
+  uuid: "5A08E461-05CC-4C03-9DC8-BF118594EA3E"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "ruby -pe'$_ = (rand * 100000000).round.to_s + \"\\t\" + $_'|sort|cut -f2-",
+  input: "selection",
+  name: "Randomize Lines in Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "90291A6E-34F6-4FD5-BA82-6BB6FB4DD492"},
+ {beforeRunningCommand: "nop",
+  command: "perl -pe 's/[\\t ]+$//g'",
+  fallbackInput: "document",
+  input: "selection",
+  name: "Remove Trailing Spaces in Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "0F8C1F78-6E4C-11D9-91AF-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "perl -pe 's/[^\\t\\n\\x20-\\xFF]|\\x7F|\\xC2[\\x80-\\x9F]//g'",
+  fallbackInput: "document",
+  input: "selection",
+  name: "Remove Unprintable Characters in Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "BEC25DC3-6E4B-11D9-91AF-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "sort -f|uniq",
+  input: "selection",
+  keyEquivalent: "",
+  name: "Sort Lines & Remove Duplicates",
+  output: "replaceSelectedText",
+  uuid: "3010E2A8-6E4F-11D9-A18D-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "sort -f",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "",
+  name: "Sort Lines in Document / Selection",
+  output: "replaceSelectedText",
+  uuid: "273853DF-6E4F-11D9-A18D-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "say `echo \"$TM_SELECTED_TEXT\"` &",
+  input: "selection",
+  name: "Speak Document / Selection",
+  output: "discard",
+  uuid: "D26BEEE3-7439-4B7E-AD9D-9A144CDC5873"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -wKU\n\ndef pretty(number)\n  number.to_s.gsub(/\\d{1,3}(?=\\d{3}+(?!\\d))/, '\\0,')\nend\n\ncounts = `wc -lwc`.scan(/\\d+/)\ncounts[0] = counts[0].to_i + 1 # increase one to the line count\n\n%w[ line word byte ].each do |unit|\n  cnt    = counts.shift\n  plural = cnt.to_i != 1 ? 's' : ''\n  printf(\"%11.11s %s%s\\n\", pretty(cnt), unit, plural)\nend\n",
+  fallbackInput: "document",
+  input: "selection",
+  keyEquivalent: "^N",
+  name: "Statistics for Document / Selection (Word Count)",
+  output: "showAsTooltip",
+  uuid: "AA202E76-8A0A-11D9-B85D-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: "iconv -c -f utf-8 -t ASCII//TRANSLIT",
+  fallbackInput: "word",
+  input: "selection",
+  name: "Transliterate Word / Selection to ASCII",
+  output: "replaceSelectedText",
+  uuid: "3AA8A593-6E4C-11D9-91AF-000D93589AF6"}]

data/config/commands/TextMate.rb

@@ -0,0 +1,100 @@
+# Encoding: UTF-8
+
+[{beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib/doctohtml.rb\"\nprint generate_stylesheet_from_theme()",
+  input: "none",
+  inputFormat: "xml",
+  keyEquivalent: "",
+  name: "Create CSS From Current Theme",
+  output: "openAsNewDocument",
+  uuid: "ED204720-38FC-427C-B91E-D6AE866DAE3A"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -rjcode -Ku\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib/doctohtml.rb\"\nrequire \"\#{ENV['TM_SUPPORT_PATH']}/lib/progress.rb\"\nunit = ENV.has_key?('TM_SELECTED_TEXT') ? 'selection' : 'document'\nTextMate.call_with_progress(:message => \"Creating HTML version of \#{unit}…\") do\n  print document_to_html( STDIN.read, :include_css => !ENV.has_key?('TM_SELECTED_TEXT') )\nend\n",
+  input: "selection",
+  inputFormat: "xml",
+  name: "Create HTML From Document / Selection",
+  output: "openAsNewDocument",
+  uuid: "950B3108-E2E3-414E-9C4C-EE068F59A895"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -rjcode -Ku\nrequire \"\#{ENV['TM_BUNDLE_SUPPORT']}/lib/doctohtml.rb\"\nrequire \"\#{ENV['TM_SUPPORT_PATH']}/lib/progress.rb\"\nunit = ENV.has_key?('TM_SELECTED_TEXT') ? 'selection' : 'document'\nTextMate.call_with_progress(:message => \"Creating HTML version of \#{unit}…\") do\n  print document_to_html( STDIN.read, { :line_numbers => true, :include_css => !ENV.has_key?('TM_SELECTED_TEXT') } )\nend",
+  input: "selection",
+  inputFormat: "xml",
+  name: "Create HTML From Document / Selection With Line Numbers",
+  output: "openAsNewDocument",
+  uuid: "7AE6F783-F162-4063-850D-1441441849D8"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "FILE=\"$HOME/Library/Preferences/com.macromates.edit_in_textmate.plist\"\n[ -e \"$FILE\" ] || cat <<'PLIST' >\"$FILE\"; mate \"$FILE\"\n{\n\tURLAssociations = {\n\t\t'mail.google.com/' = 'mail';\n\t\t'macromates.com/blog/' = 'markdown';\n\t\t'blacktree.cocoaforge.com/forums/' = 'bbcode';\n\t};\n}\n/*\n\tCustom associations used by the Edit in TextMate service when\n\tinvoked from a WebKit-based browser (e.g. Safari or OmniWeb)\n\n\tProvide an URL subset and the extension to use for the temporary\n\tfile when this subset is found in the URL from the calling\n\tapplications current page.\n\n\tThis is to trigger proper syntax highlight.\n\t\n\tIn case of multiple subsets matching the URL, the longest one\n\twill win.\n\n*/\nPLIST",
+  input: "none",
+  name: "Edit in TextMate URL Associations",
+  output: "showAsTooltip",
+  uuid: "4981F52A-F663-45FC-AE25-EE211E88BA05"},
+ {beforeRunningCommand: "nop",
+  command: "open \"http://macromates.com/ticket/show?ticket_id=$(cat)\"",
+  fallbackInput: "scope",
+  input: "selection",
+  keyEquivalent: "",
+  name: "Go to Ticket",
+  output: "discard",
+  scope: "constant.numeric.ticket.release-notes",
+  uuid: "F10674C0-D55D-4EFD-88DE-DC60C3EE6562"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "# This shortcut can crash under Leopard, so blocking\n# out the shortcut for now\n\necho \"WARNING: On Leopard the menu item searching is prone to crashing, so we\nhave disabled the key equivalent. Sorry about the inconvenience.\"",
+  input: "none",
+  keyEquivalent: "@?",
+  name: "Help Menu Crash Preventer",
+  output: "showAsTooltip",
+  uuid: "89CFAC75-FF44-4106-8168-475E685D2018"},
+ {beforeRunningCommand: "nop",
+  command: "cat ${TMP:-/tmp}/TextMate-ScratchSnippet.txt",
+  input: "none",
+  keyEquivalent: "~S",
+  name: "Insert Scratch Snippet",
+  output: "insertAsSnippet",
+  uuid: "ADFED53B-16EC-4956-A6A7-3EA2B8140F86"},
+ {beforeRunningCommand: "nop",
+  command: 
+   ". \"$TM_SUPPORT_PATH/lib/webpreview.sh\"\nhtml_header \"Install “Edit in TextMate…”\"\n\n# javascript which creates the link (by calling out to the shell)\ncat <<HTML\n<script>\nfunction installInputManager () {\n  var cmd = TextMate.system('install_edit_in_tm.sh', null);\n  var res = document.getElementById(\"result\");\n  res.innerHTML = \"<p>\" + cmd.outputString + \"</p>\";\n}\n</script>\nHTML\n\n# documentation which links to the script above\n\"$TM_SUPPORT_PATH/lib/markdown_to_help.rb\" <<\"MARKDOWN\"\n# Intro\n\nIncluded with TextMate is an input manager which can add an “Edit in TextMate” menu item to the Edit menu of other applications.\n\nThis allow you to call upon TextMate to edit the text in the current web form (Safari) or current letter that you are writing (Mail) by pressing &#x2303;&#x2318;E and when done editing the text in TextMate, press &#x2318;S + &#x2318;W to save, close, and have focus (plus edited text) return to the application from which you invoked the Edit in TextMate action.\n\n\n# Installation\n\nThe Input Manager is preferably installed by creating a symbolic link in `~/Library/InputManagers` which point to the location of the input manager (inside the TextMate application bundle).\n\nYou can create this link by using the button below. **Note for Leopard users:** The script requires you to enter an administrator password to install the Input Manager (see [this post](http://blog.macromates.com/2007/inputmanagers-on-leopard/))\n\n<div id=\"result\"><input type=\"Button\" value=\"Create Symbolic Link\" onClick=\"installInputManager();\"></div>\n\n_After creating the link you need to relaunch the applications in which you want to test the functionality (e.g. Mail, Safari, …)_\n\n\n# Excluding Applications\n\nIf you do not want the menu item to appear in a certain application, you can set the `DisableEditInTextMateMenuItem` defaults key to `1` for that application.\n\nFor example to disable the menu item for `Console` we would do:\n\n\tdefaults write -app Console DisableEditInTextMateMenuItem 1  \n\nWe can also disable it for all applications using:\n\n\tdefaults write NSGlobalDomain DisableEditInTextMateMenuItem 1   \n\n\n# File Type Mapping\n\nWhen you initiate editing from an application, the temporary file used will have the application name as extension. For example if you call it from Mail then the extension will be `mail`. Based on this, TextMate will pick the proper language grammar, and if not, you can correct it, which will then stick to that extension.\n\nWhen you call it from a browser, the URL of the page is often indicative of the type you will be editing, for example if the URL is <http://macromates.com/blog/> then you are most likely editing a comment on the blog, which is in Markdown, thus TextMate should pick that syntax.\n\nFor this reason, the service reads a configuration file which maps URL fragments to a file extension that will be used for the temporary file. This only works for WebKit based browsers (e.g. OmniWeb and Safari).\n\nThe file is read as:\n\n\t~/Library/Preferences/com.macromates.edit_in_textmate.plist\n\nHere is an example file:\n\n    {  URLAssociations = {\n          'mail.google.com/'                  = mail;\n          'macromates.com/blog/'              = markdown;\n          'macromates.com/wiki/'              = markdown;\n          'blacktree.cocoaforge.com/forums/'  = bbcode;\n       };\n    }\n\nIf multiple URL fragments match the current URL, the longest match wins.\n\n\n# Custom Key Bindings\n\nYou can use System Preferences &#x2192; Keyboard & Mouse to change the default key equivalent. This however only works as long as the key binding includes the command modifier (&#x2318;). If you want to give it a key that does not include this modifier, you can add an entry to your `~/Library/KeyBindings/DefaultKeyBinding.dict` with the action method set to `editInTextMate:`. With this key binding, you do not need to have the menu item (so you can disable that in the global domain).\n\nFor example I have the following line in my `DefaultKeyBinding.dict`:\n\n\t\"^E\" = \"editInTextMate:\";\n\nThis puts the action on &#x2303;&#x21E7;E.\n\n\n# Compatibility\n\nThe input manager works by adding a category to `NSTextView` and `WebView` (which is used by Mail to edit text). So it will only work for Cocoa applications (and those which use these controls).\n\nPreviously the functionality was provided by a Service, but the synchronous nature of services, and the need to select text first, made it less than ideal.\n\nGenerally the input manager approach works better, but it is a hack, so e.g. if you call upon the Edit in TextMate action and close the window which held the text, or was calling the service from the field editors text view and advance focus, before the text has been returned, do not be surprised if the text does not show up in the proper text view.\n\nThat said, it should be rather robust, and you can even call “Edit in TextMate” from within TextMate (in its Cocoa text views used e.g. in the Bundle Editor).\n\n\n# Source Code\n\nThe source code for the input manager is available here: <http://macromates.com/svn/Bundles/trunk/Tools/Edit%20in%20TextMate/>\n\nMARKDOWN\n\nhtml_footer",
+  input: "none",
+  name: "Install “Edit in TextMate”…",
+  output: "showAsHTML",
+  uuid: "61F92184-1A50-4310-9F75-C9CD2C8819FA"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/usr/bin/env ruby -rjcode -KU\n\nBUNDLE_SUPPORT = ENV['TM_BUNDLE_SUPPORT']\nSUPPORT_PATH = ENV['TM_SUPPORT_PATH']\n\nPASTE_URL = ENV['TM_PASTIE_URL'] || 'http://pastie.textmate.org/pastes'\n\nrequire \"\#{BUNDLE_SUPPORT}/lib/doctohtml.rb\"\nrequire \"\#{SUPPORT_PATH}/lib/textmate\"\nrequire \"\#{SUPPORT_PATH}/lib/tm/detach\"\nrequire \"\#{SUPPORT_PATH}/lib/progress\"\nrequire \"\#{SUPPORT_PATH}/lib/escape\"\nrequire 'cgi'\nrequire 'fileutils'\nrequire 'zlib'\nrequire \"yaml\"\nrequire \"iconv\"\nrequire \"tempfile\"\n\ndef temp_script(script)\n  dest = %x{ /usr/bin/mktemp -t tm_paste }.chomp\n  at_exit { File.delete dest }\n  FileUtils.cp(script, dest)\n  dest\nend\n\n# example: [\"Colloquy\", \"#textmate\"] -> [ 2, 1 ]\ndef indices_for_names(names, tree)\n  name = names.shift\n  node = tree.find { |n| n[\"name\"] == name }\n  return [ 0 ] if node.nil?\n  res  = [ tree.index(node) ]\n  res += indices_for_names(names, node[\"children\"]) unless names.empty? || node[\"children\"].nil?\n  return res\nend\n\n# example: [ 2, 1 ] -> [\"Colloquy\", \"#textmate\"]\ndef names_for_indices(indices, tree)\n  node = tree[indices.shift.to_i]\n  res  = [ node[\"name\"] ]\n  res += names_for_indices(indices, node[\"children\"]) unless indices.empty?\n  return res\nend\n\nPREFS_FILE = \"\#{ENV['HOME']}/Library/Preferences/com.macromates.textmate.paste_online.yaml\"\n\ndef load_prefs(destinations)\n  prefs = File.open(PREFS_FILE) { |file| YAML.load(file) } rescue { }\n  selected = prefs['selectedDestinations'] || [ [ \"Paste to Colloquy:\", \"#textmate\" ] ]\n  selected.collect! { |names| indices_for_names(names, destinations) }\n  return { 'selectedDestinations' => selected }\nend\n\ndef save_prefs(params)\n  selected = params['selectedDestinations'].dup\n  selected.collect! { |indices| names_for_indices(indices.dup, params['destinations']) }\n  File.open(PREFS_FILE, \"w\") { |file| YAML.dump({ 'selectedDestinations' => selected }, file) }\nend\n\ndef get_destinations\n  destinations = []\n  node = nil\n\n  actions = %x{ osascript \#{e_sh temp_script(BUNDLE_SUPPORT + \"/get_destinations.scpt\")} }\n  actions.split(\"\\n\").each do |action|\n    if action =~ /^\\t(.+)/ then\n      (node['children'] ||= [ ]) << { 'name' => $1 }\n    else\n      node = { 'name' => action }\n      destinations << node\n    end\n  end\n\n  destinations.sort! { |a, b| a['name'] <=> b['name'] }\n  destinations.each { |e| e['children'].sort! { |a, b| a['name'] <=> b['name'] } if e.has_key? 'children' }\n\n  prefs = load_prefs(destinations)\n\n  window_title = if ENV.has_key? 'TM_SELECTED_TEXT'; 'Paste Selection Online'; else 'Paste Document Online'; end\n  default_wrap = (ENV['TM_SCOPE'] =~ /^text\\./) ? 1 : 0\n  parameters = {\n    'windowTitle'           => window_title,\n    'destinations'          => destinations,\n    'selectedDestinations'  => prefs['selectedDestinations'],\n    'private'               => true,\n    'lineWrap'              => default_wrap,\n  }.to_plist\n\n  res = %x{ \"$DIALOG\" -cmp \#{e_sh parameters} pastebin }\n  exit if $? != 0\n\n  res = OSX::PropertyList.load(res)\n  exit unless res.has_key? 'returnCode'\n\n  save_prefs(res)\n\n  actions = []\n  res['selectedDestinations'].to_a.each do |index_array|\n    path = []\n    node = destinations\n    index_array.each do |index|\n      path << node[index.to_i]['name']\n      node = node[index.to_i]['children']\n    end\n    actions << path.join(' ')\n  end\n\n  [ actions.join(\"\\n\"), res['private'], res['lineWrap'] ]\nend\n\nTM_APP_PATH = TextMate.app_path\n\ndef find_language_ext\n\tbundle_dirs = [\n\t\tFile.expand_path('~/Library/Application Support/TextMate/Bundles'),\n\t\t'/Library/Application Support/TextMate/Bundles',\n\t\tTM_APP_PATH + '/Contents/SharedSupport/Bundles'\n\t]\n\n  if scope = ENV['TM_SCOPE'] then\n    scope = scope.split(' ').first\n    bundle_dirs.each do |dir|\n      Dir.glob(dir + '/*.tmbundle/Syntaxes/*.{plist,tmLanguage}') do |filename|\n        File.open(filename) do |io|\n          begin\n            plist = OSX::PropertyList.load(io)\n            if scope == plist['scopeName'].to_s then\n              return Array(plist['fileTypes']).first || 'txt'\n            end\n          rescue Exception => e\n            abort \"Error while parsing “\#{filename}”\\n\\n\#{e}\"\n          end\n        end\n      end\n    end\n  end\n\n  ext = File.extname(ENV['TM_FILENAME'].to_s).sub(/\\A\\./, '')\n  ext.empty? ? 'txt' : ext\nend\n\ndef strip_leading(text, ch = ' ')\n  count = text.gsub(/<[^>]+>/, '').split(\"\\n\").map { |e| e =~ /^\#{ch}*(?!\#{ch}|$)/ ? $&.length : nil }.reject { |e| e.nil? }.min\n  text.send(text.respond_to?(:lines) ? :lines : :to_s).map { |line| count.times { line.sub!(/^((<[^>]+>)*)\#{ch}/, '\\1') }; line }.join\nend\n\nURL_REGEXP = %r{\n      \\A(https?://)                             # scheme\n      ([0-9a-z_!~*\\'()-]+\\.)*                   # tertiary domain(s) -- e.g. www. \n      ([0-9a-z][0-9a-z-]{0,61})?[0-9a-z]\\.      # second level domain \n      ([a-z]{2,6})                              # first level domain -- e.g. .com or .museum \n      (:[0-9]{1,4})?                            # port number -- e.g. :80 \n      ((/?)|                                    # a slash isn’t required if there is no file name \n      (/[0-9a-z_!~*\\'().;?:@&=+$,%#-]+)+/?)\\z   # path\n  }xi\n\ndef connect_to_server(name, url, *args)\n  $status, res = :unknown, nil\n\n  server = $1 if url =~ %r{.*?://(.*?)(/.*)?$}\n  TextMate.call_with_progress(:title => \"Paste to \#{name}\", :message => \"Contacting Host “\#{server}”…\", :cancel => lambda { $status = :cancel; Process.kill(\"INT\", -Process.pid) }) do\n    thr = Thread.new { sleep 60.0; $status = :timeout; Process.kill(\"INT\", -Process.pid) rescue nil }\n\n    oldpgid = Process.getpgid(0)\n    Process.setpgid(0, 0)\n    rd, wr = IO.pipe\n    pid = fork do\n      STDOUT.reopen(wr)\n      rd.close\n      exec('curl', url, '-sLo/dev/null', '-w%{url_effective}', *args)\n    end\n    Process.setpgid(0, oldpgid)\n    wr.close\n    res = rd.read\n    Process.wait(pid)\n\n    $status = :success if $?.exitstatus == 0 && $status == :unknown\n\n    thr.kill unless $status == :timeout\n    thr.join\n  end\n\n  $status = :error if res !~ URL_REGEXP || res == url # pastie returns the initial URL on some errors\n  return $status, res\nend\n\ndef paste_stdin(priv, wrap)\n  xml       = STDIN.read\n\n  text_file = Tempfile.new('tm_paste_text')\n  html_file = Tempfile.new('tm_paste_html')\n\n  text_file << CGI::unescapeHTML(xml.gsub(/<[^>]*>/, ''))\n  text_file.close\n\n  gz = Zlib::GzipWriter.new(html_file)\n  gz.write(document_to_html(strip_leading(strip_leading(xml, \" \"), \"\\t\")))\n  gz.close\n  html_file.close\n\n  author = ENV['TM_AUTHOR'] || \"\#{ENV['TM_FULLNAME']} (\#{ENV['USER']})\"\n  ext    = find_language_ext\n\n  start_time   = Time.now\n  $status, res = connect_to_server(\"Pastie\", PASTE_URL,\n    \"-HExpect:\",\n    \"-Fpaste[parser]=plaintext\",\n    \"-Fpaste[restricted]=\#{priv}\",\n    \"-Fpaste[wrap]=\#{wrap}\",\n    \"-Fpaste[display_name]=\#{author}\",\n    \"-Fpaste[file_extension]=\#{ext}\",\n    \"-Fpaste[body]=<\#{text_file.path}\",\n    \"-Fpaste[textmate_html_gz]=<\#{html_file.path}\"\n  )\n\n  open(File.expand_path('~/Library/Logs/Pastie.log'), 'a') do |io|\n    amount       = (File.size(text_file.path) + File.size(html_file.path)).to_s.gsub(/\\d{1,3}(?=(\\d{3})+(?!\\d))/, '\\0,') + \" bytes\"\n    time_elapsed = '%.1f seconds' % (Time.now - start_time)\n    io << start_time.strftime('%F %T %Z: ') <<\n      case $status\n        when :timeout then \"Timeout pasting \#{amount} after \#{time_elapsed}\\n\"\n        when :cancel  then \"User cancelled pasting of \#{amount} after \#{time_elapsed}\\n\"\n        when :error   then \"Unknown error after \#{time_elapsed} pasting \#{amount}\\n\"\n        else           \"Pasted \#{amount} in \#{time_elapsed}: \#{res}\\n\"\n      end\n  end\n\n  paste_via_rafb = \n  case $status\n    when :timeout then TextMate::UI.alert(:warning, \"Timeout Pasting\", \"There was a problem pasting your text (timeout).\\nWould you like to use RAFB.net instead?\", \"Paste via RAFB\", \"Cancel\") != \"Cancel\"\n    when :error   then TextMate::UI.alert(:warning, \"Error Pasting\", \"There was a problem pasting your text (unknown).\\nWould you like to use RAFB.net instead?\", \"Paste via RAFB\", \"Cancel\") != \"Cancel\"\n    else false\n  end\n\n  if paste_via_rafb\n    mode = $& if ENV['TM_MODE'] =~ /^(C89|C|C\\+\\+|C#|Java|Pascal|Perl|PHP|PL\\/I|Python|Ruby|SQL|VB)$/\n    $status, res = connect_to_server(\"RAFB.net\", \"http://rafb.net/paste/paste.php\",\n      \"-Fnick=\#{ENV['USER']}\",\n      \"-Fcvt_tabs=\#{ENV['TM_TAB_SIZE']}\",\n      \"-Ftext=<\#{text_file.path}\",\n      \"-Flang=\#{mode || \"Plain Text\"}\"\n    )\n  end\n\n  return $status == :success ? res : nil\nend\n\nTextMate.detach {\n  dests, priv, wrap = get_destinations\n  unless dests.empty?\n    if url = paste_stdin(priv, wrap)\n      dests = Iconv.iconv('mac', 'utf-8', dests) if %x{ defaults read /System/Library/CoreServices/SystemVersion ProductVersion } =~ /\\A10\\.4/\n      %x{ osascript \#{e_sh temp_script(BUNDLE_SUPPORT + \"/paste_to_destinations.scpt\")} \#{e_sh url} \#{e_sh dests} }\n    end\n  end\n}\n",
+  fallbackInput: "document",
+  input: "selection",
+  inputFormat: "xml",
+  keyEquivalent: "^~V",
+  name: "Paste Document / Selection Online…",
+  output: "discard",
+  uuid: "6E779E48-F146-49BF-B60C-EFDFD1380772"},
+ {beforeRunningCommand: "nop",
+  command: "cat > ${TMP:-/tmp}/TextMate-ScratchSnippet.txt",
+  fallbackInput: "line",
+  input: "selection",
+  keyEquivalent: "^~s",
+  name: "Record Scratch Snippet",
+  output: "discard",
+  uuid: "5F225755-5840-44CF-BC26-2D484DE833A0"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "#!/bin/sh\n\n{ osascript -e \"tell app \\\"$(basename \"$TM_APP_PATH\")\\\" to quit\"\n\n  while ps >/dev/null -xp \"$PPID\"; do\n    if (( ++n == 10 )); then\n      \"$DIALOG\" </dev/null alert --title \"Relaunch Timed Out\" --body \"Unable to exit TextMate.\" --button1 OK\n      exit\n    fi\n    sleep .2;\n  done\n\n  open \"$TM_APP_PATH\"\n\n} &>/dev/null &",
+  input: "none",
+  keyEquivalent: "^@q",
+  name: "Relaunch TextMate",
+  output: "discard",
+  uuid: "E5142394-B07A-11D9-8EC4-000D93589AF6"},
+ {beforeRunningCommand: "nop",
+  command: 
+   "\"${TM_RUBY:=ruby}\" -- \"${TM_BUNDLE_SUPPORT}/bin/list_shortcuts.rb\"",
+  dontFollowNewOutput: true,
+  input: "none",
+  keyEquivalent: "^~@k",
+  name: "Show Keyboard Shortcuts",
+  output: "showAsHTML",
+  uuid: "970BA294-B667-11D9-8D53-00039369B986"}]