From e1aa49f24a227b1b888504c9c282b47211a2c7ae Mon Sep 17 00:00:00 2001
From: stevan <stevan@3efe9002-19ed-0310-8735-a98156148065>
Date: Sun, 10 Feb 2008 17:40:27 +0000
Subject: [PATCH] adding in the use drag command

git-svn-id: http://code2.0beta.co.uk/moose/svn/Moose-TM_bundle/trunk@3600 3efe9002-19ed-0310-8735-a98156148065
---
 Moose.tmbundle/DragCommands/use.tmDragCommand | 59 +++++++++++++++++++
 Moose.tmbundle/info.plist                     | 46 +++++++++------
 2 files changed, 88 insertions(+), 17 deletions(-)
 create mode 100644 Moose.tmbundle/DragCommands/use.tmDragCommand

diff --git a/Moose.tmbundle/DragCommands/use.tmDragCommand b/Moose.tmbundle/DragCommands/use.tmDragCommand
new file mode 100644
index 0000000..75d1464
--- /dev/null
+++ b/Moose.tmbundle/DragCommands/use.tmDragCommand
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>beforeRunningCommand</key>
+	<string>nop</string>
+	<key>command</key>
+	<string>#!/usr/bin/perl -w
+
+use strict;
+
+my $module_name = $ENV{TM_DROPPED_FILEPATH};
+
+$module_name =~ s/\.pm//;
+
+my @path = grep { !/\.\./ } split '/' =&gt; $module_name;
+
+do {
+	shift @path;
+} until ($path[0] eq 'lib');
+
+shift @path;
+
+$module_name = join '::' =&gt; @path;
+
+my $use_statement = 
+	$ENV{TM_MODIFIER_FLAGS} =~ /OPTION/
+		? "use_ok('$module_name');"	
+		: "use $module_name;";
+
+if ($ENV{TM_MODIFIER_FLAGS} =~ /COMMAND/) {
+	if ($ENV{TM_CURRENT_LINE} =~ /^\s*$/) {
+		$use_statement = "$use_statement\n";
+	}
+ 	$use_statement = "\n$use_statement";
+}
+
+print "$use_statement";
+
+#print join "\n" =&gt; 
+#	map { "$_ =&gt; $ENV{$_}" }
+#	grep { /^TM_/ }
+#	keys %ENV;</string>
+	<key>draggedFileExtensions</key>
+	<array>
+		<string>pm</string>
+	</array>
+	<key>input</key>
+	<string>selection</string>
+	<key>name</key>
+	<string>use</string>
+	<key>output</key>
+	<string>insertAsSnippet</string>
+	<key>scope</key>
+	<string>source.perl.moose</string>
+	<key>uuid</key>
+	<string>AB4BFB75-C6F3-499E-BF02-4FA8B466A5CC</string>
+</dict>
+</plist>
diff --git a/Moose.tmbundle/info.plist b/Moose.tmbundle/info.plist
index 4dad248..cba1298 100644
--- a/Moose.tmbundle/info.plist
+++ b/Moose.tmbundle/info.plist
@@ -2,23 +2,35 @@
 <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 <plist version="1.0">
 <dict>
-	<key>name</key>
-	<string>Moose</string>
-	<key>ordering</key>
-	<array>
-		<string>09D0B47F-8CF4-498E-ABB0-CFDA07749A16</string>
-		<string>A8B31369-129E-4434-98B0-A2842E283995</string>
-		<string>01655046-2EF4-4629-8BEF-18FAAEDB5ADA</string>
-		<string>B66E1E6A-C593-4B84-9519-ACD90A84679F</string>
-		<string>FE31C261-480F-4E87-86AD-E9E1D2A76DA1</string>
-		<string>88C17DEE-2F55-4793-ABDB-BB311F8F2404</string>
-		<string>95A6BB0F-B46E-4ED0-B5AC-4CF4B047F6A0</string>
-		<string>D13FA99A-93ED-4326-9300-CC103426CAE9</string>
-		<string>790DEF12-4956-4A08-96C0-261EDA93FDE4</string>
-		<string>5135BB5F-C3DA-453E-806A-47390B95226B</string>
-		<string>912327D9-A5D7-4575-B9C4-79233E3C6244</string>
-		<string>96B00D6A-7982-4052-BF3A-01546BBEA95F</string>
-	</array>
+	<key>changed</key>
+	<dict>
+		<key>ordering</key>
+		<array>
+			<string>09D0B47F-8CF4-498E-ABB0-CFDA07749A16</string>
+			<string>A8B31369-129E-4434-98B0-A2842E283995</string>
+			<string>55F400AB-7C31-4477-9331-F5B17C43A7EB</string>
+			<string>01655046-2EF4-4629-8BEF-18FAAEDB5ADA</string>
+			<string>B66E1E6A-C593-4B84-9519-ACD90A84679F</string>
+			<string>FE31C261-480F-4E87-86AD-E9E1D2A76DA1</string>
+			<string>88C17DEE-2F55-4793-ABDB-BB311F8F2404</string>
+			<string>95A6BB0F-B46E-4ED0-B5AC-4CF4B047F6A0</string>
+			<string>D13FA99A-93ED-4326-9300-CC103426CAE9</string>
+			<string>790DEF12-4956-4A08-96C0-261EDA93FDE4</string>
+			<string>5135BB5F-C3DA-453E-806A-47390B95226B</string>
+			<string>912327D9-A5D7-4575-B9C4-79233E3C6244</string>
+			<string>9400BEE4-8742-480A-9F5F-9E92D5D38D25</string>
+			<string>96B00D6A-7982-4052-BF3A-01546BBEA95F</string>
+			<string>FDA7FA2C-2BD0-438C-9224-A1867A3A363F</string>
+			<string>440F46B6-AAE0-4DA5-96B5-339126CADA04</string>
+			<string>90362A37-0C85-4A10-9542-D04F50B2DBB7</string>
+			<string>EC6571E9-46CB-4185-9C85-6BC956743681</string>
+			<string>AB4BFB75-C6F3-499E-BF02-4FA8B466A5CC</string>
+		</array>
+	</dict>
+	<key>deleted</key>
+	<array/>
+	<key>isDelta</key>
+	<true/>
 	<key>uuid</key>
 	<string>9B9C960E-D75D-4CEF-A3D2-BFEA907565BC</string>
 </dict>