Add throttling to defragger

milo/core/listing.lua

@@ -256,7 +256,8 @@ function page:eventHandler(event)
 		self:setFocus(self.statusBar.filter)
 
 	elseif event.type == 'defrag' then
-		context.storage:defrag()
+		self:defrag()
+		self:refresh(true)
 
 	elseif event.type == 'toggle_display' then
 		displayMode = (displayMode + 1) % 2
@@ -365,6 +366,14 @@ function page:refresh(force)
 	self.throttle:disable()
 end
 
+function page:defrag()
+	local throttle = function() self.throttle:update() end
+
+	self.throttle:enable()
+	context.storage:defrag(throttle)
+	self.throttle:disable()
+end
+
 function page:applyFilter()
 	local function filterItems(t, filter)
 		self.grid.sortColumn = Milo:getState('sortColumn') or 'count'