--- 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: --