ID:195054
 
//Title: Simple Title Case
//Credit to: Jtgibson
//Contributed by: Jtgibson


proc/simple_titlecase(string)
string = uppertext(copytext(string,1,2)) + copytext(string, 2)
var/space_pos = findtext(string, " ")
var/strlen = length(string)
while(space_pos)
string = copytext(string,1,space_pos+1) + \
uppertext(copytext(string, space_pos+1, space_pos+2)) + \
((space_pos+2 <= strlen) ? copytext(string, space_pos+2) : "")
space_pos = findtext(string, " ", space_pos+1)
//In case of a trailing space
if(space_pos >= strlen) return string
return string


///*
//Testing code/sample implementation:

mob/verb/test_simple_titlecase()
usr << "i am the very model of a modern major general"
usr << simple_titlecase("i am the very model of a modern major general")

//*/