From ce599e4f9f94b4eb00c1b5edb85bce5431ab3df2 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdeedu@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 kig/generate_todo_inc.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 kig/generate_todo_inc.pl

(limited to 'kig/generate_todo_inc.pl')

diff --git a/kig/generate_todo_inc.pl b/kig/generate_todo_inc.pl
new file mode 100644
index 00000000..6999f217
--- /dev/null
+++ b/kig/generate_todo_inc.pl
@@ -0,0 +1,26 @@
+#! /usr/bin/env perl
+
+use warnings;
+
+print "<ul>\n";
+open( TODO, "<TODO" );
+while( <TODO> )
+  {
+    if( /^\* (.*)$/ )
+      {
+	print "</li></ul></li>\n\n" if( $inlist );
+	print "<li><span style=\"font-weight:bold\">$1</span><br/>\n";
+	$inlist = 0;
+	$initem = 0;
+      }
+    elsif( /^- (.*)$/ )
+      {
+	if( $initem ) { print "</li>"; };
+	print "<ul>\n" if( ! $inlist );
+	$inlist = 1;
+	print "<li>$1\n";
+	$initem = 1;
+      }
+    else { print unless /^$/; }
+  };
+print "</li></ul></li></ul>\n";
-- 
cgit v1.2.1