Source file q.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
(** [Q] is short for Emacs [quote].  [Q] defines constant symbols.

    The naming convention is to use the emacs name but replace '-' with '_'. *)

open! Core_kernel
open! Import0

let defface = "defface" |> Symbol.intern
let defun = "defun" |> Symbol.intern
let defvar = "defvar" |> Symbol.intern
let face = "face" |> Symbol.intern
let funcall = "funcall" |> Symbol.intern
let list = "list" |> Symbol.intern
let nil = "nil" |> Symbol.intern
let number = "number" |> Symbol.intern
let quote = "quote" |> Symbol.intern
let regexp = "regexp" |> Symbol.intern
let sexp = "sexp" |> Symbol.intern
let symbol = "symbol" |> Symbol.intern
let t = "t" |> Symbol.intern
let vector = "vector" |> Symbol.intern

(** [K] is short for "keyword".  [K] defines a symbols starting with ":". *)
module K = struct
  let around = ":around" |> Symbol.intern
  let background = ":background" |> Symbol.intern
  let box = ":box" |> Symbol.intern
  let family = ":family" |> Symbol.intern
  let file = ":file" |> Symbol.intern
  let filter = ":filter" |> Symbol.intern
  let font = ":font" |> Symbol.intern
  let foreground = ":foreground" |> Symbol.intern
  let foundry = ":foundry" |> Symbol.intern
  let get = ":get" |> Symbol.intern
  let global = ":global" |> Symbol.intern
  let group = ":group" |> Symbol.intern
  let height = ":height" |> Symbol.intern
  let inherit_ = ":inherit" |> Symbol.intern
  let inverse_video = ":inverse-video" |> Symbol.intern
  let key_type = ":key-type" |> Symbol.intern
  let keymap = ":keymap" |> Symbol.intern
  let lighter = ":lighter" |> Symbol.intern
  let must_match = ":must-match" |> Symbol.intern
  let name = ":name" |> Symbol.intern
  let overline = ":overline" |> Symbol.intern
  let pad_right = ":pad-right" |> Symbol.intern
  let right_align = ":right-align" |> Symbol.intern
  let server = ":server" |> Symbol.intern
  let service = ":service" |> Symbol.intern
  let set = ":set" |> Symbol.intern
  let slant = ":slant" |> Symbol.intern
  let stipple = ":stipple" |> Symbol.intern
  let strike_through = ":strike-through" |> Symbol.intern
  let tag = ":tag" |> Symbol.intern
  let type_ = ":type" |> Symbol.intern
  let underline = ":underline" |> Symbol.intern
  let value_type = ":value-type" |> Symbol.intern
  let weight = ":weight" |> Symbol.intern
  let width = ":width" |> Symbol.intern
end