Plumber should not care about Perl anymore
This commit is contained in:
parent
f2cdfeba2b
commit
a56f7ba603
1 changed files with 1 additions and 13 deletions
14
plumbing
14
plumbing
|
|
@ -1,22 +1,10 @@
|
||||||
## MUSIC GO TO AFPLAY
|
## MUSIC GO TO AFPLAY
|
||||||
## -----------------------------------------------------------------------------
|
## -----------------------------------------------------------------------------
|
||||||
|
|
||||||
## mac only
|
## macOS only
|
||||||
## todo: rewrite for freebsd / linux
|
|
||||||
|
|
||||||
kind is text
|
kind is text
|
||||||
data matches '[a-zA-Z¡-0-9_\-./]+'
|
data matches '[a-zA-Z¡-0-9_\-./]+'
|
||||||
data matches '([a-zA-Z¡-0-9_\-./]+)\.(mp3|mp4|mpeg)'
|
data matches '([a-zA-Z¡-0-9_\-./]+)\.(mp3|mp4|mpeg)'
|
||||||
data isfile $0
|
data isfile $0
|
||||||
plumb start afplay $file
|
plumb start afplay $file
|
||||||
|
|
||||||
## PERL ERROR MESSAGES GO TO ACME
|
|
||||||
## -----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
type is text
|
|
||||||
data matches '([a-zA-Z¡-0-9_\-.]+\.p[l|m])( line )([0-9]+)?'
|
|
||||||
arg isfile $1
|
|
||||||
data set $file
|
|
||||||
attr add addr=$3
|
|
||||||
plumb to edit
|
|
||||||
plumb client window $editor
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue