package ecaml
Library for writing Emacs plugin in OCaml
Install
Dune Dependency
Authors
Maintainers
Sources
ecaml-v0.16.0.tar.gz
sha256=d9c6f98e7b0906a7e3d332d1a30fe950b59586b860e4f051348ea854c3ae3434
doc/src/ecaml/window.ml.html
Source file window.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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79open! Core open! Async_kernel open! Import include Window0 let body_height_exn = Funcall.Wrap.("window-body-height" <: t @-> return int) let buffer = Funcall.Wrap.("window-buffer" <: t @-> return (nil_or Buffer.t)) let buffer_exn t = match buffer t with | Some x -> x | None -> raise_s [%message "Window.buffer_exn" ~_:(t : t)] ;; let get_buffer_window = Funcall.Wrap.("get-buffer-window" <: Buffer.t @-> return (nil_or t)) ;; let height_exn = Funcall.Wrap.("window-height" <: t @-> return int) let is_live = Funcall.Wrap.("window-live-p" <: t @-> return bool) let point_exn = Funcall.Wrap.("window-point" <: t @-> return Position.t) let width_exn = Funcall.Wrap.("window-width" <: t @-> return int) module Blocking = struct let set_buffer_exn = let set_window_buffer = Funcall.Wrap.("set-window-buffer" <: t @-> Buffer.t @-> bool @-> return nil) in fun ?(keep_margins = false) t buffer -> set_window_buffer t buffer keep_margins ;; end let set_buffer_exn ?keep_margins t buffer = Value.Private.run_outside_async [%here] (fun () -> Blocking.set_buffer_exn ?keep_margins t buffer) ;; let set_point_exn = Funcall.Wrap.("set-window-point" <: t @-> Position.t @-> return nil) let set_window_margins = Funcall.Wrap.("set-window-margins" <: t @-> nil_or int @-> nil_or int @-> return nil) ;; let set_window_margins ?left_margin ?right_margin window = set_window_margins window left_margin right_margin ;; let delete_window = Funcall.Wrap.("delete-window" <: nil_or t @-> return nil) let delete_exn t = delete_window (Some t) let delete_other_windows = Funcall.Wrap.("delete-other-windows" <: nil_or t @-> return nil) ;; let start = Funcall.Wrap.("window-start" <: t @-> return Position.t) let set_start = Funcall.Wrap.("set-window-start" <: t @-> Position.t @-> return nil) let window_end = Funcall.Wrap.("window-end" <: t @-> Value.Type.bool @-> return Position.t) ;; let end_ ?(update = false) t = window_end t update let frame = Funcall.Wrap.("window-frame" <: t @-> return Frame.t) let fit_window_to_buffer = Funcall.Wrap.( "fit-window-to-buffer" <: t @-> nil_or int @-> nil_or int @-> nil_or int @-> nil_or int @-> nil_or bool @-> return nil) ;; let fit_to_buffer ?max_columns ?max_lines ?min_columns ?min_lines ?preserve_size t = fit_window_to_buffer t max_lines min_lines max_columns min_columns preserve_size ;;