Hi list, Thank for this new Pd release !
I'm trying to implement the [+pager] patch from Hans Christoph Steiner with these new features : [file glob], [file splitname] and [list store].
It is a patch which list all pd files in the current directory, close and open them.
In attachment, my solution. . I guess there is a lighter/smarter way. May be someone could find it ?
I wonder how to find the size of [list store] also Best Jerome http://jeromeabel.ney
#N canvas 0 22 420 70 10; #N canvas 170 204 852 679 guts 0; #X obj 60 10 bng 50 450 50 0 \$0-next \$0-next-in > 18 25 0 35 #b8b8b8 #000000 #000000; #X obj 10 10 bng 50 450 50 0 \$0-prev \$0-prev-in < 12 25 0 35 #dcdcdc #000000 #000000; #X msg 62 134 1; #X msg 28 134 -1; #X obj 28 162 t b b f; #X obj 67 208 max 0; #X obj 67 252 change -1; #X obj 67 187 + 1; #X text 658 558 < close; #X text 429 586 < open; #X obj 330 552 pack s s; #X obj 221 185 file glob; #X obj 330 394 list store; #X msg 330 362 append \$1; #X msg 256 376 get \$1; #X obj 194 66 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000; #X obj 221 139 pdcontrol; #X msg 221 116 dir; #X msg 221 162 symbol \$1/*.pd; #X obj 255 277 sel +pager.pd; #X obj 221 208 list split 1; #X obj 67 230 min 10; #X obj 221 231 file splitname; #X obj 221 254 list split 1; #X msg 218 567 label \$1; #X obj 405 338 f; #X obj 432 338 + 1; #X obj 405 362 s \$0-size; #X obj 330 303 t a b; #X obj 111 206 r \$0-size; #X obj 28 372 pack f f; #X msg 28 395 label (\$1/\$2); #X obj 73 325 r \$0-size; #X obj 28 345 + 1; #X obj 73 347 + 1; #X obj 375 531 symbol; #X obj 330 418 t a b; #X obj 330 450 symbol; #X obj 285 139 s \$0-folder; #X obj 375 510 r \$0-folder; #X obj 28 417 s \$0-cnv-pages; #X obj 218 591 s \$0-cnv-file; #X text 440 150 List all pd files in current directory except this one "+pager.pd"; #X obj 194 44 loadbang; #X obj 495 494 symbol empty; #X obj 495 517 sel empty; #X text 562 518 close patch only if patch already opened; #X msg 546 547 \; pd-\$1 menuclose; #X msg 330 575 \; pd open \$1 \$2; #X msg 117 123 0; #X obj 28 191 f; #X obj 194 87 t b b; #X msg 128 395 label empty; #X msg 135 565 label empty; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 4 0 50 0; #X connect 4 1 7 0; #X connect 4 2 7 1; #X connect 5 0 21 0; #X connect 6 0 50 1; #X connect 7 0 5 0; #X connect 10 0 48 0; #X connect 11 0 20 0; #X connect 12 0 36 0; #X connect 13 0 12 0; #X connect 14 0 12 0; #X connect 15 0 51 0; #X connect 16 0 18 0; #X connect 16 0 38 0; #X connect 17 0 16 0; #X connect 18 0 11 0; #X connect 19 1 28 0; #X connect 20 0 22 0; #X connect 21 0 6 0; #X connect 22 0 23 0; #X connect 23 1 19 0; #X connect 24 0 41 0; #X connect 25 0 26 0; #X connect 25 0 27 0; #X connect 26 0 25 1; #X connect 28 0 13 0; #X connect 28 1 25 0; #X connect 29 0 21 1; #X connect 30 0 31 0; #X connect 31 0 40 0; #X connect 32 0 34 0; #X connect 33 0 30 0; #X connect 34 0 30 1; #X connect 35 0 10 1; #X connect 36 0 37 0; #X connect 36 1 44 0; #X connect 37 0 24 0; #X connect 37 0 10 0; #X connect 37 0 44 1; #X connect 39 0 35 0; #X connect 43 0 15 0; #X connect 44 0 45 0; #X connect 45 1 47 0; #X connect 49 0 50 0; #X connect 50 0 7 0; #X connect 50 0 33 0; #X connect 50 0 14 0; #X connect 51 0 49 0; #X connect 51 1 17 0; #X connect 52 0 40 0; #X connect 53 0 41 0; #X coords 0 -1 1 1 100 50 1 10 10; #X restore 6 8 pd guts; #X obj 107 8 cnv 15 300 25 empty \$0-cnv-file empty 5 12 1 20 #fcfcfc #606060 0; #X obj 107 34 cnv 15 60 25 empty \$0-cnv-pages empty 5 12 1 16 #fcfcfc #606060 0; #X coords 0 0 1 1 85 60 0;
_______________________________________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/listinfo/pd-list