D830.id2105.diff
No OneTemporary
Actions

Size

933 B

Referenced Files

None

Subscribers

None

D830.id2105.diff
View Options

	diff --git a/Daeghrefn/Communication.tcl b/Daeghrefn/Communication.tcl
	--- a/Daeghrefn/Communication.tcl
	+++ b/Daeghrefn/Communication.tcl
	@@ -13,6 +13,8 @@
	bind pub - !idéert pub:ideert
	bind pub - !idee-rt pub:ideert
	bind pub - !idée-rt pub:ideert
	+bind pub - !styleencyclo pub:styleencylo
	+bind pub - !style pub:styleencylo

	#
	# SMS
	@@ -248,15 +250,23 @@

	}

	-#!idee
	+# Publishes to special accounts
	proc pub:idee {nick uhost handle chan text} {
	+ twitter_pub_publish_to_account ideedarticles $nick $text
	+}
	+
	+proc pub:styleencyclo {nick uhost handle chan text} {
	+ twitter_pub_publish_to_account styleencyclo $nick $text
	+}
	+
	+proc twitter_pub_publish_to_account {account nick text} {
	set who [whois $nick]
	if {$who == ""} {
	append text " – via IRC."
	} {
	append text " – $who, via IRC."
	}
	- twitterpublish ideedarticles $nick $text
	+ twitterpublish $account $nick $text
	}

	#!ideert