package ecaml

  1. Overview
  2. Docs
package ecaml
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file mode_line.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Core
open! Import

module Format = struct
  include Value.Make_subtype (struct
      let name = "mode-line-format"
      let here = [%here]
      let is_in_subtype _ = true
    end)

  let in_buffer = Buffer_local.Wrap.("mode-line-format" <: t)
end

let text = Funcall.Wrap.("format-mode-line" <: Format.t @-> return Text.t)