examples/transports.lua
author Myhailo Danylenko <isbear@ukrpost.net>
Sat, 21 Mar 2009 05:05:14 +0200
changeset 44 bd66956cd397
parent 32 524fde5be49a
child 58 aa3376776cf2
permissions -rw-r--r--
Disco and remote in new way
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     1
-- TRANSPORTED BUDDIES AVAILABILITY INDICATION
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     2
9
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
     3
-- XXX: to option?
8
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     4
transport_jids = { 'icq.jabber.kiev.ua', 'mrim.unixzone.org.ua' }
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
     5
32
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
     6
function online ( jid )
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
     7
	local info = main.buddy_info ( jid )
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
     8
	if not info then
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
     9
		return false
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    10
	end
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    11
	for resource, params in pairs ( info.resources ) do
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    12
		if params.status ~= '_' then
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    13
			return true
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    14
		end
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    15
	end
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    16
	return false
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    17
end
524fde5be49a Yesno completion in C
Myhailo Danylenko <isbear@ukrpost.net>
parents: 9
diff changeset
    18
8
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    19
hooks_d['hook-status-change'].transports =
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    20
	function ( args )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    21
		for k, jid in pairs ( transport_jids ) do
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    22
			if args.jid == jid then
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    23
				if args.new_status == '_' then
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    24
					main.run ( ("color roster * *@%s red"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    25
					main.run ( ("color roster dn_? *@%s red"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    26
				else
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    27
					main.run ( ("color roster * *@%s white"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    28
					main.run ( ("color roster dn_? *@%s brightblack"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    29
				end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    30
			end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    31
		end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    32
	end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    33
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    34
hooks_d['hook-start'].transports =
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    35
	function ( args )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    36
		for k, jid in pairs ( transport_jids ) do
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    37
			if not online ( jid ) then
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    38
				main.run ( ("color roster * *@%s red"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    39
				main.run ( ("color roster dn_? *@%s red"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    40
			else
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    41
				main.run ( ("color roster * *@%s white"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    42
				main.run ( ("color roster dn_? *@%s brightblack"):format ( jid ) )
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    43
			end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    44
		end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    45
	end
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    46
9
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    47
hooks_d['hook-post-connect'].transports = hooks_d['hook-start'].transports
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    48
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    49
hooks_d['hook-pre-disconnect'].transports =
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    50
	function ( args )
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    51
		for k, jid in pairs ( transport_jids ) do
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    52
			-- when disconnected, all buddies are inaccessible, so, make them the same
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    53
			main.run ( ("color roster * *@%s white"):format ( jid ) )
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    54
			main.run ( ("color roster dn_? *@%s brightblack"):format ( jid ) )
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    55
		end
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    56
	end
c2517f8bf647 Enum completion type
Myhailo Danylenko <isbear@ukrpost.net>
parents: 8
diff changeset
    57
8
fc9060b9b7cc Completion
Myhailo Danylenko <isbear@ukrpost.net>
parents:
diff changeset
    58
-- vim: se ts=4: --