steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: steve:cff1fe747b7b2cad1f6f4ce0fbb8736abb4b12eb
Branches Tags
steve:master
...
compare: steve:4873994655c4421d0ce4f06632c45ccf7ef93bd1
Branches Tags
steve:master

2 Commits
cff1fe747b ... 4873994655

Author SHA1 Message Date
Steve Ayerhart 4873994655
adding piggy,chick 2022-02-16 08:43:45 -05:00
Steve Ayerhart 0f0a49f83d
test->text 2022-02-14 16:41:03 -05:00
2 changed files with 4 additions and 4 deletions
Show Stats Expand all files Collapse all files

2
bonerbonerboner/api/api.factor
View File

@ -10,7 +10,7 @@ IN: bonerbonerboner.api
TUPLE: bbb < dispatcher ; TUPLE: bbb < dispatcher ;
: bbb-themes ( -- themes ) : bbb-themes ( -- themes )
{ "bbb" "bones" "float" "hockey" "rocket" "burger" "wakeywakey" "dog" } ; { "bbb" "bones" "float" "hockey" "rocket" "burger" "wakeywakey" "dog" "piggy" "chick" } ;
: v-valid-theme ( str -- theme ) : v-valid-theme ( str -- theme )
dup bbb-themes member? [ "not a valid theme" throw ] unless ; dup bbb-themes member? [ "not a valid theme" throw ] unless ;

6
web-driver/web-driver.factor
View File

@ -300,11 +300,11 @@ TUPLE: rect x y width height ;
: accept-alert ( -- ) : accept-alert ( -- )
f "alert/accept" <session-post-request> http-web-driver-request drop ; f "alert/accept" <session-post-request> http-web-driver-request drop ;
: get-alert-test ( -- text ) : get-alert-text ( -- text )
"alert/accept" <session-get-request> http-web-driver-request ; "alert/text" <session-get-request> http-web-driver-request ;
: send-alert-text ( text -- ) : send-alert-text ( text -- )
'H{ { "text" _ } } "alert/accept" <session-post-request> http-web-driver-request drop ; 'H{ { "text" _ } } "alert/text" <session-post-request> http-web-driver-request drop ;
! Screen capture ! Screen capture
! https://www.w3.org/TR/webdriver/#screen-capture ! https://www.w3.org/TR/webdriver/#screen-capture