Module Ecaml.Timer

You can set up a timer to call a function at a specified future time or after a certain length of idleness.

Emacs cannot run timers at any arbitrary point in a program; it can run them only when Emacs could accept output from a subprocess: namely, while waiting or inside certain primitive functions such as sit-for or read-event which _can_ wait. Therefore, a timer's execution may be delayed if Emacs is busy. However, the time of execution is very precise if Emacs is idle.

(Info-goto-node "(elisp)Timers")

include Ecaml__.Import.Value.Subtype
type value
type t = private value

We expose private value for free identity conversions when the value is nested in some covariant type, e.g. (symbols : Symbol.t list :> Value.t list) rather than List.map symbols ~f:Symbol.to_value.

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val eq : t -> t -> bool

eq t1 t2 = Value.eq (to_value t1) (to_value t2), i.e. eq checks whether the Emacs values underlying t1 and t2 are physically equal. This is different than phys_equal t1 t2, because we don't always wrap eq Emacs values in phys_equal OCaml values. I.e. phys_equal t1 t2 implies eq t1 t2, but not the converse.

val is_in_subtype : value -> bool
include Ecaml_value__.Valueable0.S with type t := t
type t
type 'a type_
val of_value_exn : Ecaml_value__.Value0.t -> t
val to_value : t -> Ecaml_value__.Value0.t
val type_ : t type_
val t : t type_
val all_scheduled : unit -> t list

(describe-variable 'timer-list)

val is_scheduled : t -> bool
val run_after : ?⁠repeat:Core_kernel.Time_ns.Span.t -> Core_kernel.Source_code_position.t -> Core_kernel.Time_ns.Span.t -> f:(unit -> unit) -> name:Symbol.t -> t

(describe-function 'run-at-time) (Info-goto-node "(elisp)Timers")

val run_after_i : ?⁠repeat:Core_kernel.Time_ns.Span.t -> Core_kernel.Source_code_position.t -> Core_kernel.Time_ns.Span.t -> f:(unit -> unit) -> name:Symbol.t -> unit

run_after_i s f = ignore (run_after s f)

val cancel : t -> unit

(describe-function 'cancel-timer) (Info-goto-node "(elisp)Timers")

val sit_for : ?⁠redisplay:bool -> Core_kernel.Time_ns.Span.t -> unit Async_kernel.Deferred.t

(describe-function 'sit-for) (Info-goto-node "(elisp)Waiting")

val sleep_for : Core_kernel.Time_ns.Span.t -> unit Async_kernel.Deferred.t

(describe-function 'sleep-for) (Info-goto-node "(elisp)Waiting")