Anri/pusk
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages 1 Wiki Activity Actions

WIP: Send a tweet

Browse source
This commit is contained in:
Mylloon 2023-05-15 15:05:34 +02:00
parent 62b04965c3
commit fba2d3b4f9
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bin/main.ml
View file

@ -38,7 +38,11 @@ let rec check ctx =
in in
if 0 = timeout if 0 = timeout
then ( then (
print_endline "TODO: We are tweeting here. :)"; (* Tweet and returns to profile page *)
tweet
ctx
"This tweet is for the Twitter's CTO: Don't suspend my account for inactivity.";
go_to_profile ctx;
(* Wait the maximum time since we just tweeted *) (* Wait the maximum time since we just tweeted *)
recheck max_time) recheck max_time)
else (* Wait the amount of time calculated from the post *) else (* Wait the amount of time calculated from the post *)

2
bin/twitter.ml
View file

@ -133,3 +133,5 @@ let find_latest_tweet ctx =
(* Returns the most recent date *) (* Returns the most recent date *)
Some (List.fold_left max min_int datetimes) Some (List.fold_left max min_int datetimes)
;; ;;
let tweet _ctx _msg = ()