Version bump. Requested by fox in bug #411477.

(Portage version: 2.2.0_alpha96_p5/cvs/Linux x86_64)

4 files changed, 126 insertions, 8 deletions

diff --git a/x11-misc/xmobar/ChangeLog b/x11-misc/xmobar/ChangeLog
index 692e68feffaf..6a09bf11b1b8 100644
--- a/x11-misc/xmobar/ChangeLog
+++ b/x11-misc/xmobar/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for x11-misc/xmobar
 # Copyright 1999-2012 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/x11-misc/xmobar/ChangeLog,v 1.14 2012/04/02 03:34:46 slyfox Exp $
+# $Header: /var/cvsroot/gentoo-x86/x11-misc/xmobar/ChangeLog,v 1.15 2012/04/13 21:33:35 slyfox Exp $
+
+*xmobar-0.14 (13 Apr 2012)
+
+  13 Apr 2012; Sergei Trofimovich <slyfox@gentoo.org>
+  +files/xmobar-0.14-stm-2.3.patch, +xmobar-0.14.ebuild, metadata.xml:
+  Version bump. Requested by fox in bug #411477.
 
   02 Apr 2012; Sergei Trofimovich <slyfox@gentoo.org>
   +files/xmobar-0.13-fix-build-failure-against-ghc-7.2.patch,
diff --git a/x11-misc/xmobar/files/xmobar-0.14-stm-2.3.patch b/x11-misc/xmobar/files/xmobar-0.14-stm-2.3.patch
new file mode 100644
index 000000000000..a780a98840d3
--- /dev/null
+++ b/x11-misc/xmobar/files/xmobar-0.14-stm-2.3.patch
@@ -0,0 +1,38 @@
+diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs
+index 58431ce..2d0be37 100644
+--- a/src/Plugins/Mail.hs
++++ b/src/Plugins/Mail.hs
+@@ -49,18 +49,18 @@ instance Exec Mail where
+         forM_ (zip ds vs) $ \(d, v) -> do
+             s <- fmap (S.fromList . filter (not . isPrefixOf "."))
+                     $ getDirectoryContents d
+-            atomically $ modifyTVar v (S.union s)
++            atomically $ modifyTVarxm v (S.union s)
+ 
+         changeLoop (mapM (fmap S.size . readTVar) vs) $ \ns ->
+             cb . unwords $ [m ++ ":" ++  show n
+                                     | (m, n) <- zip ts ns
+                                     , n /= 0 ]
+ 
+-modifyTVar :: TVar a -> (a -> a) -> STM ()
+-modifyTVar v f = readTVar v >>= writeTVar v . f
++modifyTVarxm :: TVar a -> (a -> a) -> STM ()
++modifyTVarxm v f = readTVar v >>= writeTVar v . f
+ 
+ handle :: TVar (Set String) -> Event -> IO ()
+-handle v e = atomically $ modifyTVar v $ case e of
++handle v e = atomically $ modifyTVarxm v $ case e of
+     Created  {} -> create
+     MovedIn  {} -> create
+     Deleted  {} -> delete
+diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
+index 60c3e48..757c1ca 100644
+--- a/src/Plugins/Monitors/MPD.hs
++++ b/src/Plugins/Monitors/MPD.hs
+@@ -102,5 +102,5 @@ showTime t = int2str minutes ++ ":" ++ int2str seconds
+   where minutes = t `div` 60
+         seconds = t `mod` 60
+ 
+-int2str :: (Num a, Ord a) => a -> String
++int2str :: (Num a, Ord a, Show a) => a -> String
+ int2str x = if x < 10 then '0':sx else sx where sx = show x
diff --git a/x11-misc/xmobar/metadata.xml b/x11-misc/xmobar/metadata.xml
index 050435d7e32c..96ef7f93cea2 100644
--- a/x11-misc/xmobar/metadata.xml
+++ b/x11-misc/xmobar/metadata.xml
@@ -1,11 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
 <pkgmetadata>
-<herd>haskell</herd>
-<maintainer>
-  <email>haskell@gentoo.org</email>
-</maintainer>
-<use>
-	<flag name='mail'>Support the mail plugin. Pulls dependency dev-haskell/hinotify.</flag>
-</use>
+	<herd>haskell</herd>
+	<maintainer>
+		<email>haskell@gentoo.org</email>
+	</maintainer>
+	<use>
+		<flag name='mail'>Support the mail plugin. Pulls dependency dev-haskell/hinotify.</flag>
+		<flag name='mpd'>MPD status reporting via <pkg>dev-haskell/libmpd</pkg>.</flag>
+		<flag name='timezone'>Enables localized date support.</flag>
+	</use>
+	<longdescription>
+		Xmobar is a minimalistic text based status bar.
+		
+		Inspired by the Ion3 status bar, it supports similar
+		features, like dynamic color management, output templates,
+		and extensibility through plugins.
+	</longdescription>
 </pkgmetadata>
diff --git a/x11-misc/xmobar/xmobar-0.14.ebuild b/x11-misc/xmobar/xmobar-0.14.ebuild
new file mode 100644
index 000000000000..0e02edb4fd19
--- /dev/null
+++ b/x11-misc/xmobar/xmobar-0.14.ebuild
@@ -0,0 +1,65 @@
+# Copyright 1999-2012 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/x11-misc/xmobar/xmobar-0.14.ebuild,v 1.1 2012/04/13 21:33:34 slyfox Exp $
+
+# ebuild generated by hackport 0.2.14
+
+EAPI="3"
+
+CABAL_FEATURES="bin"
+inherit base haskell-cabal
+
+DESCRIPTION="A Minimalistic Text Based Status Bar"
+HOMEPAGE="http://projects.haskell.org/xmobar/"
+SRC_URI="http://hackage.haskell.org/packages/archive/${PN}/${PV}/${P}.tar.gz"
+
+LICENSE="BSD"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE="xft unicode mail mpd alsa timezone"
+# wifi USE flag disabled due to compilation error with current stable wireless-tools.
+
+RDEPEND="x11-libs/libXrandr
+	mpd? ( media-sound/mpd )
+	"
+
+DEPEND="${RDEPEND}
+		>=dev-lang/ghc-6.8.1
+		>=dev-haskell/cabal-1.6
+		dev-haskell/mtl
+		dev-haskell/parsec
+		dev-haskell/stm
+		dev-haskell/time
+		>=dev-haskell/x11-1.3.0
+		unicode? ( dev-haskell/utf8-string )
+		xft?  ( dev-haskell/utf8-string
+				dev-haskell/x11-xft )
+		mail? ( dev-haskell/hinotify )
+		mpd? ( >=dev-haskell/libmpd-0.6 )
+		alsa? ( =dev-haskell/alsa-mixer-0.1*
+			=dev-haskell/alsa-core-0.5*
+		)
+		timezone? ( dev-haskell/timezone-series
+			dev-haskell/timezone-olson
+		)
+		"
+		#wifi? ( net-wireless/wireless-tools )
+
+PATCHES=("${FILESDIR}/${PN}-0.14-stm-2.3.patch")
+
+src_configure() {
+	cabal_src_configure \
+		$(cabal_flag xft with_xft) \
+		$(cabal_flag unicode with_utf8) \
+		$(cabal_flag mail with_inotify) \
+		$(cabal_flag mpd with_mpd) \
+		$(cabal_flag alsa with_alsa) \
+		$(cabal_flag timezone with_datezone)
+		#$(cabal_flag wifi with_iwlib) \
+}
+
+src_install() {
+	cabal_src_install
+
+	dodoc samples/xmobar.config README
+}