popup: set height

yatli · Feb 15, 2020 · 3c2d7c1 · 3c2d7c1
1 parent c120939
commit 3c2d7c1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/ViewModels/EditorViewModel.fs b/ViewModels/EditorViewModel.fs
@@ -242,6 +242,9 @@ type EditorViewModel(GridId: int, ?parent: EditorViewModel, ?_gridsize: GridSize
         m_popupmenu_vm.SetItems(items, startPos, cursorPos, m_glyphsize.Height, bounds, editorSize)
         m_popupmenu_vm.Show <- true
 
+        let h = int(m_popupmenu_vm.Height / m_glyphsize.Height)
+        Model.SetPopupMenuHeight h
+
     let redraw(cmd: RedrawCommand) =
         //trace "%A" cmd
         match cmd with

diff --git a/model.fs b/model.fs
@@ -702,6 +702,13 @@ let SelectPopupMenuItem (index: int) (insert: bool) (finish: bool) =
         in ()
     } |> ignore
 
+let SetPopupMenuHeight (h: int) =
+    trace "SetPopupMenuHeight: h=%d" h
+    task {
+        let! _ = nvim.command (sprintf "call nvim_ui_pum_set_height(%d)" h)
+        in ()
+    } |> ignore
+
 let OnFocusLost() =
     task { 
       let! _ = nvim.command "if exists('#FocusLost') | doautocmd <nomodeline> FocusLost | endif"