Paste: fain/utils.factor

Author: xiackok
Mode: factor
Date: Fri, 28 Jan 2011 05:24:20
Plain Text |
! 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 ;

New Annotation

Summary:
Author:
Mode:
Body: