diff options
author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-03-16 13:11:00 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-03-16 13:11:00 +0100 |
commit | 5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a (patch) | |
tree | bdde146cd302b48910d79e627f6790a8b4dd50b9 /HsLocale.hsc | |
parent | ff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1 (diff) | |
download | xmobar-5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a.tar.gz xmobar-5b753d8c1aa2ce271fb15b7c9aa1af83f8de0d3a.tar.bz2 |
add XFT support and make UTF-8 support configurable
This patch includes many changes:
- moved font and printing functions to XUtil.hs and created an
abstraction layer to font management;
- ported the core, StdinReader and PipeReader to the new font
management system.
To enable UTF-8 support configure with the "with_utf8" flag (requires
utf8-string):
runhaskell Setup.lhs configure --flags
darcs-hash:20080316121100-d6583-828134da356b706744b56a9d81203129b0e8e484.gz
Diffstat (limited to 'HsLocale.hsc')
-rw-r--r-- | HsLocale.hsc | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/HsLocale.hsc b/HsLocale.hsc deleted file mode 100644 index a54ff34..0000000 --- a/HsLocale.hsc +++ /dev/null @@ -1,27 +0,0 @@ -{-# OPTIONS -fglasgow-exts #-} ------------------------------------------------------------------------------ --- | --- Module : HsLocale --- Copyright : (C) 2007 Andrea Rossato --- License : BSD3 --- --- Maintainer : andrea.rossato@unibz.it --- Stability : unstable --- Portability : unportable --- ------------------------------------------------------------------------------ - -module HsLocale - ( setupLocale - ) where - -import Foreign.C - -#include <locale.h> -foreign import ccall unsafe "locale.h setlocale" - setlocale :: CInt -> CString -> IO CString - -setupLocale :: IO () -setupLocale = withCString "" $ \s -> do - setlocale (#const LC_ALL) s - return () |