geochan/src/js/js_post_form.ml

let log = Format.printf

(* called by clicking post_id *)
(* insert id into reply form *)
let insert_quote post_id _event =
  log "quote@\n";
  Option.iter
    (fun textarea ->
      let content = Jv.to_string @@ Jv.get textarea "value" in
      let new_content =
        if String.ends_with ~suffix:"\n" content || String.length content = 0
        then Format.sprintf "%s>>%s " content post_id
        else Format.sprintf "%s@\n>>%s " content post_id
      in
      ignore @@ Jv.set textarea "value" (Jv.of_string new_content) )
    Jv.(find global "reply-comment")

let () =
  log "add inser_quote event on post links@\n";
  let document = Jv.get Jv.global "document" in
  let quote_links =
    Jv.to_jv_list
    @@ Jv.call document "getElementsByClassName" [| Jv.of_string "quote-link" |]
  in
  log "quote_links leng %d@\n" (List.length quote_links);
  let add_click quote_link =
    let post_id =
      Jv.to_string
      @@ Jv.call quote_link "getAttribute" [| Jv.of_string "data-id" |]
    in
    ignore
    @@ Jv.call quote_link "addEventListener"
         [| Jv.of_string "click"; Jv.repr (insert_quote post_id) |]
  in
  List.iter add_click quote_links

(* make image description field visible when a file is selected*)
let make_visible el _event =
  let el_style = Jv.get el "style" in
  ignore @@ Jv.set el_style "display" (Jv.of_string "block")

let () =
  log "change image description visibility@\n";
  Option.iter
    (fun file_input ->
      let alt_input = Jv.get Jv.global "alt" in
      let alt_label = Jv.get Jv.global "alt-label" in
      ignore
      @@ Jv.call file_input "addEventListener"
           [| Jv.of_string "change"; Jv.repr (make_visible alt_input) |];
      ignore
      @@ Jv.call file_input "addEventListener"
           [| Jv.of_string "change"; Jv.repr (make_visible alt_label) |] )
    Jv.(find global "file")