/
screenshot.red
43 lines (40 loc) · 1.69 KB
/
screenshot.red
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Red [
Title: "screenshot.1.red"
Build: [0.0.0.1.1 {Initial version}]
]
do https://redlang.red/chrome/take-screenshot.red
system/lexer/pre-load: func [src part][
parse src [
any [
s: [
["take-screenshot:" | "take-screenshot." | "Usage: take-screenshot" | "sysTake-Screenshot" | ":take-screenshot"]
] skip
|
s: [
[ [
"take-screenshot" | "make-screenshot"
|
["takescreenshot" |
["take" | "make" | "do" | "create"]
some space ["a" some space |] ["web" any space |]
"screen" any space "shot"
]
| "shoot"
| "screenshot"
| "screencopy"
| "webscreenshot"
] [ some space "of" | ] some space copy arg1 to some space
[ some space "in" some space | some space "to" some space | some space ]
copy arg2 [to newline | to end ]
] (new: rejoin ["take-screenshot" { } arg1 { } arg2] )
] e: (s: change/part s new e) :s
| skip
]
]
]
; do {take-screenshot https://google.com c:\test\test.png} ; ok
; do {take-screenshot of https://google.com in c:\test\test.png} ; ok
; do {take screenshot https://google.com c:\test\test.png} ; ok
; do {take screenshot of https://google.com in c:\test\test.png} ; ok
; do {take webscreenshot of https://google.com in c:\test\test.png} ; ok
; do {take web screenshot of https://google.com in c:\test\test.png} ; ok