Paste: fain/utils.factor

! Copyright (C) 2011 Your name.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel locals sequences utils unicode.case unicode.case.private ;
IN: fain.utils

CONSTANT: readable-conversations {
    "-" => " "
    "_" => " "
} 

: slotname>readable ( slotname -- string )
    readable-conversations
    swap
    [
        first2 replace
    ] reduce >title ;