From ad9329a1a65cace9c61ce1aa189c9dbaacf564e2 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sat, 27 Apr 2002 19:35:17 +0000
Subject: added Irssi::Theme::get_format()

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2726 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/ui/Themes.xs | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs
index fc3165e9..b56fc9df 100644
--- a/src/perl/ui/Themes.xs
+++ b/src/perl/ui/Themes.xs
@@ -223,3 +223,31 @@ PPCODE:
 	}
 	XPUSHs(sv_2mortal(new_pv(ret)));
 	g_free_not_null(ret);
+
+char *
+theme_get_format(theme, module, formatnum)
+	Irssi::UI::Theme theme
+	char *module
+	int formatnum
+PREINIT:
+	MODULE_THEME_REC *modtheme;
+	FORMAT_REC *formats;
+	char *ret;
+CODE:
+	formats = g_hash_table_lookup(default_formats, module);
+	if (formats == NULL)
+		croak("Unknown module: %s", module);
+
+	modtheme = g_hash_table_lookup(theme->modules, module);
+	if (modtheme != NULL && formatnum >= modtheme->count) {
+		croak("Format number out of range (%s: %d < %d)",
+		      module, formatnum, modtheme->count);
+	}
+
+	RETVAL = modtheme == NULL ? NULL : modtheme->formats[formatnum];
+	if (RETVAL == NULL) {
+		formats = g_hash_table_lookup(default_formats, module);
+		RETVAL = formats == NULL ? NULL : formats[formatnum].def;
+	}
+OUTPUT:
+	RETVAL
-- 
cgit v1.2.3