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