aboutsummaryrefslogtreecommitdiff
path: root/add_my_patches_to_media_menu-plugin.tcl
blob: bf9f3ab0a45f201ccae193a3d579bf5665f66524 (plain)
1
2
3
4
5
6
7
8
9
10
11
# this script searches a folder for Pd patches, then adds them to the bottom
# of the Media menu for quick opening

# you probably want to set this to something that makes sense for you:
set mypatch_dir ~/Documents/Pd

.menubar.media add separator

foreach filename [glob -directory $mypatch_dir -nocomplain -types {f} -- *.pd] {
    .menubar.media add command -label [file tail $filename] -command "open_file $filename"
}