Basic pango markup helpers

Included in widget modules and allows convinience shortcuts
in property formats such as:

	span @default, :font => "terminus 12"
	underline @time
	background :red, @artist
	foreground :blue, @title
	bold @count

* lib/amazing/helpers/pango_markup.rb: (span) simple span
tag generator.
(background) shortcut for background span.
(foreground) shortcut for foreground span.
(underline) shortcut for underline span.
(bold) shortcut for weighted span.

* lib/amazing/widget.rb: (Widget) include pango markup helper.

lib/amazing/helpers/pango_markup.rb

@@ -0,0 +1,26 @@
+module Amazing
+  module Helpers
+    module PangoMarkup
+      def span(text, opts)
+        attrs = opts.map {|key, value| "#{key}=#{value.to_s.inspect}" }.join(" ")
+        "<span #{attrs}>#{text}</span>"
+      end
+
+      def background(color, text)
+        span(text, :background => color)
+      end
+
+      def foreground(color, text)
+        span(text, :foreground => color)
+      end
+
+      def underline(text, style=:single)
+        span(text, :underline => style)
+      end
+
+      def bold(text, level=:bold)
+        span(text, :weight => level)
+      end
+    end
+  end
+end

lib/amazing/widget.rb

@@ -1,6 +1,7 @@
 # Copyright (C) 2008 Dag Odenhall <dag.odenhall@gmail.com>
 # Licensed under the Academic Free License version 3.0
 
+require 'amazing/helpers/pango_markup'
 require 'erb'
 
 module Amazing
@@ -24,6 +25,7 @@ class WidgetError < Exception
   #     end
   #   end
   class Widget
+    include Helpers::PangoMarkup
     include ERB::Util
 
     def initialize(opts={})