feat(global-options): added support for many global options

Author: vmarcosp

packages/cli/src/core/Config.res

@@ -16,12 +16,31 @@ type status = {
   bg?: string,
   left?: TmuxJsx.element,
   right?: TmuxJsx.element,
+  position?: string,
+}
+
+type options = {
+  terminalOverrides?: string,
+  escapeTime?: int,
+  paneBaseIndex?: int,
+  statusKeys?: string,
+  setTitles?: string,
+  setTitlesString?: string,
+  modeKeys?: string,
+  prefix?: string,
+  baseIndex?: int,
+  historyLimit?: int,
+  defaultTerminal?: string,
+  mouse?: string,
+  renumberWindows?: string,
+  aggressiveResize?: string,
 }
 
 type config = {
   theme?: string,
   status?: status,
   window?: window,
+  options?: options,
 }
 
 type mod = {default: config}

packages/cli/src/core/GlobalOptions.res

@@ -0,0 +1,19 @@
+let tap = (opt, fn) => opt->Option.map(value => fn(value))->ignore
+
+let execute = (options: Config.options) => {
+  options.mouse->tap(v => Tmux.exec(SetGlobal(Mouse(v))))
+  options.terminalOverrides->tap(v => Tmux.exec(SetGlobal(TerminalOverrides(v))))
+  options.escapeTime->tap(v => Tmux.exec(SetGlobal(EscapeTime(v))))
+  options.paneBaseIndex->tap(v => Tmux.exec(SetGlobal(PaneBaseIndex(v))))
+  options.statusKeys->tap(v => Tmux.exec(SetGlobal(StatusKeys(v))))
+  options.modeKeys->tap(v => Tmux.exec(SetGlobal(ModeKeys(v))))
+  options.setTitles->tap(v => Tmux.exec(SetGlobal(SetTitles(v))))
+  options.setTitlesString->tap(v => Tmux.exec(SetGlobal(SetTitlesString(v))))
+  options.prefix->tap(v => Tmux.exec(SetGlobal(Prefix(v))))
+  options.baseIndex->tap(v => Tmux.exec(SetGlobal(BaseIndex(v))))
+  options.historyLimit->tap(v => Tmux.exec(SetGlobal(HistoryLimit(v))))
+  options.defaultTerminal->tap(v => Tmux.exec(SetGlobal(DefaultTerminal(v))))
+  options.renumberWindows->tap(v => Tmux.exec(SetGlobal(RenumberWindows(v))))
+  options.aggressiveResize->tap(v => Tmux.exec(SetGlobal(AggressiveResize(v))))
+}
+

packages/cli/src/core/Runner.res

@@ -20,8 +20,13 @@ let run = async () => {
   | Some(file) => {
       let path = Path.resolve([file])
       let {default: config} = await Config.import_(path)
-
+      
       Renderer.render(config)
+
+      switch config.options {
+        | None => ()
+        | Some(options) => GlobalOptions.execute(options)
+      }
     }
   }
 

packages/cli/src/core/Tmux.res

@@ -3,8 +3,23 @@ type options =
   | StatusBg(string)
   | StatusLeft(string)
   | StatusRight(string)
+  | StatusPosition(string)
   | WindowStatusCurrentFormat(string)
   | WindowStatusFormat(string)
+  | TerminalOverrides(string)
+  | EscapeTime(int)
+  | PaneBaseIndex(int)
+  | StatusKeys(string) 
+  | ModeKeys(string) 
+  | SetTitles(string)
+  | SetTitlesString(string)
+  | Prefix(string)
+  | BaseIndex(int)
+  | HistoryLimit(int)
+  | DefaultTerminal(string)
+  | Mouse(string)
+  | RenumberWindows(string)
+  | AggressiveResize(string)
 
 type command = SetGlobal(options)
 
@@ -13,8 +28,23 @@ let parseOptions = options => switch options {
   | StatusBg(value) => `status-bg "${value}"`
   | StatusLeft(value) => `status-left "${value}"`
   | StatusRight(value) => `status-right "${value}"`
+  | StatusPosition(value) => `status-position "${value}"`
   | WindowStatusCurrentFormat(value) => `window-status-current-format "${value}"`
   | WindowStatusFormat(value) => `window-status-format "${value}"`
+  | TerminalOverrides(value) => `terminal-overrides "${value}"`
+  | EscapeTime(value) => `escape-time "${value->Int.toString}"`
+  | PaneBaseIndex(value) => `pane-base-index "${value->Int.toString}"`
+  | StatusKeys(value) => `status-keys "${value}"`
+  | ModeKeys(value) => `mode-keys "${value}"`
+  | SetTitles(value) => `set-titles ${value}`
+  | SetTitlesString(value) => `set-titles-string "${value}"`
+  | Prefix(value) => `prefix "${value}"`
+  | BaseIndex(value) => `base-index "${value->Int.toString}"`
+  | HistoryLimit(value) => `history-limit "${value->Int.toString}"`
+  | DefaultTerminal(value) => `default-terminal "${value}"`
+  | Mouse(value) => `mouse "${value}"`
+  | RenumberWindows(value) => `renumber-windows ${value}`
+  | AggressiveResize(value) => `aggressive-resize ${value}`
 }
 
 let parse = command => switch command {