Home

Script: inverter.tcl

Invert all letters of your text. (for WeeChat ≥ 0.3.0)
Author: CrazyCat, version 0.1, GPL3 — added: 2017-01-01
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# Copyright (c) 2016 by CrazyCat <crazycat@c-p-f.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# Invert all letters of your text
#
# Usage: /inv Your text here
#
# Output: <CrazyCat> ereh txet ruoY

set VERSION 0.1
set SCRIPT_NAME inverter

weechat::register $SCRIPT_NAME {CrazyCat <crazycat@c-p-f.org>} $VERSION GPL3 {invert all letters of your text} {} {}

weechat::hook_command inv {invert all letters of the text} {} {} {} invert_cmd {}

proc invert_cmd {data buffer args} {
	set text [join $args]
	set channel [weechat::buffer_get_string $buffer localvar_channel]
	if { $text eq "" } {
		weechat::print $buffer "You need a text to revert"
		return $::weechat::WEECHAT_RC_ERROR
	}
	set inv ""
	for {set i 0} {$i<=[string length $text]} {incr i} {
		append inv [string index $text end-$i]
	}
	weechat::command $buffer "/msg $channel $inv"
	return $::weechat::WEECHAT_RC_OK
}