···

       
6
       
 
       
dap.adapters.ocamlearlybird = {

     

       
7
       
 
       
	type = 'executable',

     

       
8
       
 
       
	command = 'ocamlearlybird',

     

       
9
       
-
       
	args = { 'debug' }

     

       
0
       
 
       

     

       
10
       
 
       
}

     

       
11
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
12
       
 
       
dap.configurations.ocaml = {

     

       
13
       
 
       
	{

     

       
14
       
 
       
		name = 'OCaml',

     

       
15
       
 
       
		type = 'ocamlearlybird',

     

       
16
       
 
       
		request = 'launch',

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
17
       
 
       
		program = function()

     

       
18
       
-
       
			local path = vim.fn.input({

     

       
19
       
-
       
				prompt = 'Path to executable: ',

     

       
20
       
-
       
				default = vim.fn.getcwd() .. '/_build/default/bin/',

     

       
21
       
-
       
				completion = 'file'

     

       
22
       
-
       
			})

     

       
23
       
-
       
			return (path and path ~= "") and path or dap.ABORT

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
24
       
 
       
		end,

     

       
25
       
 
       
	},

     

       
26
       
 
       
}

     
···

       
43
       
 
       
	local widgets = require('dap.ui.widgets')

     

       
44
       
 
       
	widgets.centered_float(widgets.scopes)

     

       
45
       
 
       
end, { desc = 'DAP scopes' })

     

       
0
       
 
       

     

···

       
6
       
 
       
dap.adapters.ocamlearlybird = {

     

       
7
       
 
       
	type = 'executable',

     

       
8
       
 
       
	command = 'ocamlearlybird',

     

       
9
       
+
       
	args = { 'debug' },

     

       
10
       
+
       
	cwd = "${workspaceFolder}",

     

       
11
       
 
       
}

     

       
12
       
 
       


     

       
13
       
+
       
local pickers = require("telescope.pickers")

     

       
14
       
+
       
local finders = require("telescope.finders")

     

       
15
       
+
       
local conf = require("telescope.config").values

     

       
16
       
+
       
local actions = require("telescope.actions")

     

       
17
       
+
       
local action_state = require("telescope.actions.state")

     

       
18
       
+
       


     

       
19
       
 
       
dap.configurations.ocaml = {

     

       
20
       
 
       
	{

     

       
21
       
 
       
		name = 'OCaml',

     

       
22
       
 
       
		type = 'ocamlearlybird',

     

       
23
       
 
       
		request = 'launch',

     

       
24
       
+
       
		-- https://github.com/hackwaly/ocamlearlybird/issues/75

     

       
25
       
+
       
		arguments = function()

     

       
26
       
+
       
			return vim.split(vim.fn.input('Arguments: '), " ", { trimempty = true })

     

       
27
       
+
       
		end,

     

       
28
       
 
       
		program = function()

     

       
29
       
+
       
			return coroutine.create(function(coro)

     

       
30
       
+
       
				local opts = {}

     

       
31
       
+
       
				pickers

     

       
32
       
+
       
				.new(opts, {

     

       
33
       
+
       
					prompt_title = "Path to executable",

     

       
34
       
+
       
					finder = finders.new_oneshot_job({ "fd", "--hidden", "--no-ignore", "--type", "x" }, {}),

     

       
35
       
+
       
					sorter = conf.generic_sorter(opts),

     

       
36
       
+
       
					attach_mappings = function(buffer_number)

     

       
37
       
+
       
						actions.select_default:replace(function()

     

       
38
       
+
       
							actions.close(buffer_number)

     

       
39
       
+
       
							coroutine.resume(coro, action_state.get_selected_entry()[1])

     

       
40
       
+
       
						end)

     

       
41
       
+
       
						return true

     

       
42
       
+
       
					end,

     

       
43
       
+
       
				})

     

       
44
       
+
       
				:find()

     

       
45
       
+
       
			end)

     

       
46
       
 
       
		end,

     

       
47
       
 
       
	},

     

       
48
       
 
       
}

     
···

       
65
       
 
       
	local widgets = require('dap.ui.widgets')

     

       
66
       
 
       
	widgets.centered_float(widgets.scopes)

     

       
67
       
 
       
end, { desc = 'DAP scopes' })

     

       
68
       
+
       
vim.keymap.set('n', '<leader>;t', function() require('dap').terminate() end, { desc = 'DAP terminate' })