scripts/marking.lua
changeset 5 cba039bd6f13
parent 4 bca17e4a9851
child 6 90dceae3ed1f
--- a/scripts/marking.lua	Mon Feb 23 23:16:46 2009 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,67 +0,0 @@
-
-marked_jids = {}
-
-function mark ()
-	local jid = main.current_buddy ()
-	marked_jids[jid] = true
-	main.print_info ( jid, "Marked" )
-end
-
-function unmark ()
-	local jid = main.current_buddy ()
-	marked_jids[jid] = nil
-	main.print_info ( jid, "Unmarked" )
-end
-
-function mark_toggle ()
-	local jid = main.current_buddy ()
-	if marked_jids[jid] then
-		return unmark ()
-	else
-		return mark ()
-	end
-end
-
-function marked ()
-	local ret = {}
-	for jid, v in pairs ( marked_jids ) do
-		table.insert ( ret, jid )
-	end
-	return ret
-end
-
-function foreach_marked ( callback )
-	for jid, v in pairs ( marked_jids ) do
-		if v then
-			callback ( jid )
-		end
-	end
-end
-
-function marked_clear ()
-	marked_jids = {}
-end
-
-main.add_command ( 'marked',
-	function ( args )
-		local cmd = args:match ( "^%s*(%w+)" )
-		if cmd == 'clear' then
-			marked_clear ()
-		elseif cmd == 'do' then
-			local command = args:match ( "^%s*%w+%s+(.+)" )
-			foreach_marked (
-				function ( jid )
-					main.run ( string.format ( command, jid ) )
-				end )
-		else
-			print ( "Marked jids:" )
-			foreach_marked (
-				function ( jid )
-					print ( ' - ' .. jid )
-				end )
-		end
-	end )
-
-commands_help['marked'] = "[clear | do mcabber_command]\n\nOperates on marked buddies. Without arguments prints list of marked jids.\nCommand should contain %s in place, where jid should be inserted."
-
--- vim: se ts=4: --