~alcinnz/fontconfig-pure

ref: c75f865cd15de2443e55ca2189add717c01d4cef fontconfig-pure/Main.hs -rw-r--r-- 350 bytes
c75f865c — Adrian Cochrane Correct FcType (and in turn FcValue) decoding. 2 years ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{-# LANGUAGE PackageImports #-}
module Main where

import "fontconfig-pure" Graphics.Text.Font.Choose as Font

import System.Environment (getArgs)

main :: IO ()
main = do
    args <- getArgs
    let (name, objects) = case args of {
        [] -> ("serif", []);
        name:objects -> (name, objects)}
    let query = nameParse name
    print query