1
2
3
4
5
6
7
8
9
open! Core_kernel
open! Async_kernel
open! Import
let initialize () = ()
let kill_ring = Var.Wrap.("kill-ring" <: list Text.t)
let kill_ring_as_value = Var.create kill_ring.symbol Value.Type.value
let is_empty () = Value.is_nil (Current_buffer.value_exn kill_ring_as_value)
let kill_new = Funcall.("kill-new" <: Text.t @-> return nil)