aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-06-30 06:45:25 +00:00
Code

Added Irssi::current_theme() and Irssi::Theme::format_expand()

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1918 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-25 11:21:18 +00:00 committed by cras
parent c5c2242ee3
commit be48bdc22c
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/perl/ui/Themes.xs
View File

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

1
src/perl/ui/UI.xs
View File

@ -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);
}