From 28f623ec5eb5065988793c701391c0a9a882844e Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 30 Nov 2010 21:44:43 +0000
Subject: created project folder for 'file associations' plugin

svn path=/trunk/scripts/guiplugins/file_associations/; revision=14544
---
 file_associations-plugin.tcl | 55 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 file_associations-plugin.tcl

diff --git a/file_associations-plugin.tcl b/file_associations-plugin.tcl
new file mode 100644
index 0000000..b44e162
--- /dev/null
+++ b/file_associations-plugin.tcl
@@ -0,0 +1,55 @@
+# this is a plugin for Pd 0.43 that adds the ability to associate Pd patches
+# with filetypes like .wav, .ogg, etc.
+
+package provide file_associations 0.1
+
+namespace eval ::file_associations:: {
+    namespace export pdtk_post
+}
+
+proc ::file_associations::load_file_associations {} {
+    set ::associationsdir "[pwd]/../associations"
+    # TODO this should search the whole path for 'associations' in order to
+    # support user-installed associations, not only included ones
+    puts stderr "find_file_associations $::associationsdir"
+    if { ! [file isdirectory $::associationsdir]} { return }
+    foreach filename [glob -directory $::associationsdir -nocomplain -types {f} -- *.pd] {
+        set extension [file rootname [file tail $filename]]
+        puts "\tAssociating $filename to $extension"
+        lset ::filetypes 0 1 [concat [lindex $::filetypes 0 1] ".$extension"]
+        set ::filetypes [lappend ::filetypes \
+                             [list "[string toupper $extension] files" ".$extension"]]
+    }
+}
+
+proc ::file_associations::menu_open {} {
+    pdtk_post "using menu_open from file_associations.tcl"
+    if { ! [file isdirectory $::pd_menucommands::menu_open_dir]} {
+        set ::pd_menucommands::menu_open_dir $::env(HOME)
+    }
+    set files [tk_getOpenFile -defaultextension .pd \
+                       -multiple true \
+                       -filetypes $::filetypes \
+                       -initialdir $::pd_menucommands::menu_open_dir]
+    if {$files ne ""} {
+        foreach filename $files {
+            set extension [lindex [split $filename .] end]
+            if {$extension == "pd"} {
+                puts "open_file $filename"
+                open_file $filename
+            } else {
+                set assocpatchfile [open [file join $::associationsdir "$extension.pd"]]
+                set patchcontents [regsub -all -- "\\\$FILENAME" [read $assocpatchfile] $filename]
+                close $assocpatchfile
+                pdsend "pd filename [file tail $filename].pd \
+                            [enquote_path $::pd_menucommands::menu_open_dir]"
+                pdsend $patchcontents
+                pdsend "#X pop 1"
+            }
+        }
+        set ::pd_menucommands::menu_open_dir [file dirname $filename]
+    }
+}
+
+#::file_associations::load_file_associations
+# TODO insert code to override built-in menu_open proc
-- 
cgit v1.2.1