me-stock-keeper

me = peripheral.wrap("right")
tracker = peripheral.wrap("top")

while true do
    local list = tracker.list()
    morthutils.clear()
    for key, stack in pairs(list) do
        local minQuant = stack.count
        -- Check if we have enough in the ME system
        local meStack = me.getItem({name = stack.name})
        local craftingStack = {name = stack.name}
        local isCraftable = (meStack and meStack.isCraftable) or me.isItemCraftable(craftingStack)
        local storedQuant = (meStack and meStack.amount) or 0

        if storedQuant < minQuant and isCraftable and not me.isItemCrafting(craftingStack) then
            local craftCount = minQuant - storedQuant
            craftingStack.count = craftCount
            craftingStack.nbt = stack.nbt
            me.craftItem(craftingStack)
            print("Crafting " .. craftCount .. " of " .. stack.name)
        end
    end
    sleep(5)
end