Source file `key_sequence0.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open! Core_kernel
open! Import

module Z = struct
  module Input_event = Input_event0
end

open Z

include Value.Make_subtype (struct
    let name = "key-sequence"
    let here = [%here]
    let is_in_subtype t = Value.is_string t || Value.is_vector t
  end)

let description = Funcall.("key-description" <: t @-> return string)
let sexp_of_t t = [%sexp (description t : string)]
let create_exn = Funcall.("read-kbd-macro" <: string @-> return t)
let length = Funcall.("length" <: t @-> return int)
let get = Funcall.("elt" <: t @-> int @-> return Input_event.t)
let to_list = Funcall.("listify-key-sequence" <: t @-> return (list Input_event.t))