mirrors/netsurf
1
0
Fork 0
mirror of https://github.com/netsurf-browser/netsurf synced 2024-12-21 03:32:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: Add ARexx scripts to play videos via YT

Browse Source 
Credit: Chris Handley
This commit is contained in:
Chris Young 2021-12-17 12:29:30 +00:00
parent 4e6e024dd7
commit 9f305e4c3b
3 changed files with 61 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
frontends/amiga/dist/Rexx/YT_download_page.nsrx vendored Normal file
View File

@ -0,0 +1,21 @@
/* YT play.nsrx by Chris Handley
This script shows download links for a YouTube video using YT (OS4Depot:video/misc/yt.lha)
*/
options results
if ~open('yt','AppDir:YT','R') then do
GETSCREENNAME
address command 'requestchoice >NIL: "NetSurf" "YT must be installed for this script to function.*n*nIt can be downloaded from OS4Depot:video/misc/yt" "OK" PubScreen='||result
OPEN 'http://os4depot.net/?function=showfile&file=video/misc/yt.lha' NEWTAB ACTIVE /* This doesn't work due to a NetSurf(?) bug */
exit
end
close('yt')
GETURL
/*address command 'requestchoice >NIL: "TEST" "'||result||'" "OK"'*/
address command 'AppDir:YT <>CON:0/30/640/256/YT/AUTO/CLOSE "'||result||'" html silent'
/* Hack to activate the newest tab */
OPEN 'file:///RAM:' NEWTAB ACTIVE
CLOSE

21
frontends/amiga/dist/Rexx/YT_open.nsrx vendored Normal file
View File

@ -0,0 +1,21 @@
/* YT play.nsrx by Chris Handley
This script opens a YouTube video using YT (OS4Depot:video/misc/yt.lha)
*/
options results
if ~open('yt','AppDir:YT','R') then do
GETSCREENNAME
address command 'requestchoice >NIL: "NetSurf" "YT must be installed for this script to function.*n*nIt can be downloaded from OS4Depot:video/misc/yt" "OK" PubScreen='||result
OPEN 'http://os4depot.net/?function=showfile&file=video/misc/yt.lha' NEWTAB ACTIVE /* This doesn't work due to a NetSurf(?) bug */
exit
end
close('yt')
address COMMAND 'Run >NIL: RequestChoice Title="NetSurf" BODY="When finished with YT, click OK to return to NetSurf" GADGETS="OK" INACTIVE >NIL:' /* Hack to get Workbench to front */
GETURL
/*address command 'requestchoice >NIL: "TEST" "'||result||'" "OK"'*/
address command 'AppDir:YT <>CON:0/30/640/256/YT/AUTO/CLOSE "'||result||'"'
/*TOBACK*/ /* ideally we'd bring Workbench to front */

19
frontends/amiga/dist/Rexx/YT_play.nsrx vendored Normal file
View File

@ -0,0 +1,19 @@
/* YT play.nsrx by Chris Handley
This script auto-plays a YouTube video using YT (OS4Depot:video/misc/yt.lha)
*/
options results
if ~open('yt','AppDir:YT','R') then do
GETSCREENNAME
address command 'requestchoice >NIL: "NetSurf" "YT must be installed for this script to function.*n*nIt can be downloaded from OS4Depot:video/misc/yt" "OK" PubScreen='||result
OPEN 'http://os4depot.net/?function=showfile&file=video/misc/yt.lha' NEWTAB ACTIVE /* This doesn't work due to a NetSurf(?) bug */
exit
end
close('yt')
GETURL
/*address command 'requestchoice >NIL: "TEST" "'||result||'" "OK"'*/
address command 'AppDir:YT <>CON:0/30/640/256/YT/AUTO/CLOSE "'||result||'" AutoPlay'
/*TOBACK*/ /* ideally we'd bring Workbench to front */