commit 143c84dacb6ee4da79653c12464c162c0e353995 · ryan.freumh.org/nixos

+30 -7
home/nvim/dap.lua
···

       6
       6
        
       dap.adapters.ocamlearlybird = {

     

       7
       7
        
       	type = 'executable',

     

       8
       8
        
       	command = 'ocamlearlybird',

     

       9
       9
       -
       	args = { 'debug' }

     

       9
       9
       +
       	args = { 'debug' },

     

       10
       10
       +
       	cwd = "${workspaceFolder}",

     

       10
       11
        
       }

     

       11
       12
        
       

     

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

     

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

     

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

     

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

     

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

     

       18
       18
       +
       

     

       12
       19
        
       dap.configurations.ocaml = {

     

       13
       20
        
       	{

     

       14
       21
        
       		name = 'OCaml',

     

       15
       22
        
       		type = 'ocamlearlybird',

     

       16
       23
        
       		request = 'launch',

     

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

     

       25
       25
       +
       		arguments = function()

     

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

     

       27
       27
       +
       		end,

     

       17
       28
        
       		program = function()

     

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

     

       19
       19
       -
       				prompt = 'Path to executable: ',

     

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

     

       21
       21
       -
       				completion = 'file'

     

       22
       22
       -
       			})

     

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

     

       29
       29
       +
       			return coroutine.create(function(coro)

     

       30
       30
       +
       				local opts = {}

     

       31
       31
       +
       				pickers

     

       32
       32
       +
       				.new(opts, {

     

       33
       33
       +
       					prompt_title = "Path to executable",

     

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

     

       35
       35
       +
       					sorter = conf.generic_sorter(opts),

     

       36
       36
       +
       					attach_mappings = function(buffer_number)

     

       37
       37
       +
       						actions.select_default:replace(function()

     

       38
       38
       +
       							actions.close(buffer_number)

     

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

     

       40
       40
       +
       						end)

     

       41
       41
       +
       						return true

     

       42
       42
       +
       					end,

     

       43
       43
       +
       				})

     

       44
       44
       +
       				:find()

     

       45
       45
       +
       			end)

     

       24
       46
        
       		end,

     

       25
       47
        
       	},

     

       26
       48
        
       }

     
···

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

     

       44
       66
        
       	widgets.centered_float(widgets.scopes)

     

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

     

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