trackpoint_keyboard.lua

-- HANDLE SCROLLING

local deferred = false

overrideMiddleMouseDown = hs.eventtap.new({ hs.eventtap.event.types.otherMouseDown }, function(e)
    --print("down"))
    deferred = true
    return true
end)

overrideMiddleMouseUp = hs.eventtap.new({ hs.eventtap.event.types.otherMouseUp }, function(e)
    -- print("up"))
    if (deferred) then
        overrideMiddleMouseDown:stop()
        overrideMiddleMouseUp:stop()
        hs.eventtap.middleClick(e:location())
        overrideMiddleMouseDown:start()
        overrideMiddleMouseUp:start()
        return true
    end

    return false
end)


local oldmousepos = {}
local beta = -20
dragMiddleToScroll = hs.eventtap.new({ hs.eventtap.event.types.otherMouseDragged }, function(e)
    -- print("scroll");

    deferred = false

    oldmousepos = hs.mouse.getAbsolutePosition()    

    local dx = e:getProperty(hs.eventtap.event.properties['mouseEventDeltaX'])
    local dy = e:getProperty(hs.eventtap.event.properties['mouseEventDeltaY'])
    local scroll = hs.eventtap.event.newScrollEvent({dx * beta, dy * beta},{},'pixel')
    
    -- put the mouse back
    hs.mouse.setAbsolutePosition(oldmousepos)

    return true, {scroll}
end)

overrideMiddleMouseDown:start()
overrideMiddleMouseUp:start()
dragMiddleToScroll:start()