diff options
| -rw-r--r-- | bin/dune | 2 | ||||
| -rw-r--r-- | bin/leda.ml | 27 |
2 files changed, 22 insertions, 7 deletions
@@ -1,5 +1,5 @@ (executable (public_name leda) (name leda) - (libraries base gemini lwt lwt_ppx) + (libraries base cmdliner curses gemini lwt lwt_ppx mirage-crypto-rng.lwt) (preprocess (pps lwt_ppx))) diff --git a/bin/leda.ml b/bin/leda.ml index 3aa7c58..80c07af 100644 --- a/bin/leda.ml +++ b/bin/leda.ml @@ -1,15 +1,30 @@ +open Base +open Base.Result + module M = Gemini.MimeTextGemini.MimeTextGemini let test_parse s = M.gemini_to_canon_str (M.str_to_gemini s) module T = Gemini.MimeType.MimeType -module R = Gemini.GeminiTransaction.GeminiTransaction(T) +module R = Gemini.GeminiTransaction.GeminiTransaction(T)(Gemini.TlsUtils.TlsUtils) let () = Lwt_main.run begin - let req = R.make_request ~url:"gemini://gemini.circumlunar.space/\r\n" in - let%lwt response = R.transaction req in - match response with - | Ok (_, _, s) -> Lwt_io.printl s + let%lwt () = Mirage_crypto_rng_lwt.initialize () in + let request : (R.request, string) Base.Result.t = R.make_request (Sys.get_argv()).(1) in + match request with + | Ok request -> + let w = Curses.initscr () in + let () = Curses.wclear w in + (match%lwt R.session request with + | Ok (s, c) -> + let _ = Curses.mvwaddstr w 0 0 ("STATUS: " ^ (R.name_of_status s)) in + let _ = Curses.mvwaddstr w 1 0 ("STATUS LINE: " ^ (R.string_of_status s)) in + let _ = Curses.mvwaddstr w 2 0 c in + let _ = Curses.refresh () in + let _ = Curses.getch () in + let _ = Curses.endwin () in + Lwt.return () + | Error m -> Lwt_io.printl m) | Error m -> Lwt_io.printl m - end + end |