diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-25 11:21:18 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-25 11:21:18 +0000 |
| commit | be48bdc22c28fd0bd68ef66e836e1943a5fe169d (patch) | |
| tree | aea94f571c47b853d5cdbb6240624c5483e961f3 /src/perl/ui | |
| parent | c5c2242ee379c01797ae3c3fb770add8d1203683 (diff) | |
| download | irssi-be48bdc22c28fd0bd68ef66e836e1943a5fe169d.zip | |
Added Irssi::current_theme() and Irssi::Theme::format_expand()
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1918 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/ui')
| -rw-r--r-- | src/perl/ui/Themes.xs | 15 | ||||
| -rw-r--r-- | src/perl/ui/UI.xs | 1 |
2 files changed, 16 insertions, 0 deletions
diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs index f22d6859..aa05354c 100644 --- a/src/perl/ui/Themes.xs +++ b/src/perl/ui/Themes.xs @@ -54,6 +54,13 @@ void perl_themes_deinit(void) MODULE = Irssi::UI::Themes PACKAGE = Irssi PROTOTYPES: ENABLE +Irssi::UI::Theme +current_theme() +CODE: + RETVAL = current_theme; +OUTPUT: + RETVAL + void theme_register(formats) SV *formats @@ -175,3 +182,11 @@ CODE: printformat_perl(&dest, format, arglist); +#******************************* +MODULE = Irssi::UI::Themes PACKAGE = Irssi::UI::Theme PREFIX = theme_ +#******************************* + +char * +theme_format_expand(theme, format) + Irssi::UI::Theme theme + char *format diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs index 963f6bbb..0f7a39ac 100644 --- a/src/perl/ui/UI.xs +++ b/src/perl/ui/UI.xs @@ -41,6 +41,7 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window) hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0); hv_store(hv, "last_line", 9, newSViv(window->last_line), 0); + hv_store(hv, "theme", 5, plain_bless(window->theme, "Irssi::UI::Theme"), 0); hv_store(hv, "theme_name", 10, new_pv(window->theme_name), 0); } |