Scite Title Case

wiki

This simple function normalizes the case of a string to titlecase (e.g. from "MY string" to "My String").

function titlecase(str)
    --os.setlocale('pt_BR','ctype') -- set a locale as needed
    buf ={}
    local sel = editor:GetSelText()    
    for word in string.gfind(sel, "%S+") do          
        local first = string.sub(word,1,1)        
        table.insert(buf,string.upper(first) .. 
            string.lower(string.sub(word,2)))
    end    
    editor:ReplaceSel(table.concat(buf," "))
end

WalterCruz

That function didn't work for me (maybe I'm just to dumb to understant it). Anyways I made my own.

function titlecase(str)
result=''
    for word in string.gfind(str, "%S+") do          
        local first = string.sub(word,1,1)
        result = (result .. string.upper(first) ..
            string.lower(string.sub(word,2)) .. ' ')
    end    
    return result
end

That's because the first function is for SciTE. I've refactored Walter's original implementation into two functions, one which should work on standard Lua, and another which performs the SciTE operation.

Note that using table.concat() in this case is more efficient than appending to a string; see [Programming in Lua 11.6 String Buffers].

-- normalize case of words in 'str' to Title Case
function titlecase(str)
    local buf = {}
    for word in string.gfind(str, "%S+") do          
        local first, rest = string.sub(word, 1, 1), string.sub(word, 2)
        table.insert(buf, string.upper(first) .. string.lower(rest))
    end    
    return table.concat(buf, " ")
end

-- For use in SciTE
function scite_titlecase()
    local sel = editor:GetSelText()    
    editor:ReplaceSel(titlecase(sel))
end

MarkEdgar

Haven't tried this in a while, but was testing it out when I switched to SciTE version 1.74. With the last code sample using two functions, I was getting the error: SciTE_titlecase.lua:4: bad argument #1 to 'gfind' (string expected, got nil) I fixed the error, by switching the name of the passed string from str to sel in the line

function titlecase(str)

so that it becomes

function titlecase(sel)

Seems to work better now.

For me, this function does not work properly over multiple lines. Here's an alternative lifted from the String Recipes page:

local function tchelper(first, rest)
  return first:upper()..rest:lower()
end

function scite_titlecase()
    local sel = editor:GetSelText()
    sel = sel:gsub("(%a)([%w_']*)", tchelper)
    editor:ReplaceSel((sel))
end

Insert the above in your extensions file, and put the following into SciTEUser.properties:

command.name.6.*=Title Case
command.6.*=scite_titlecase
command.subsystem.6.*=3
command.mode.6.*=savebefore:no
command.shortcut.6.*=Ctrl+Alt+Z

Anonymous Steve.

I need to retain the original space characters between/before/after words, so I wrote this version:

function titlecase(str)
  local buf = {}
  local inWord = false
  for i = 1, #str do
    local c = string.sub(str, i, i)
    if inWord then
        table.insert(buf, string.lower(c))
      if string.find(c, '%s') then
        inWord = false
      end
    else
      table.insert(buf, string.upper(c))
      inWord = true
    end
  end
  return table.concat(buf)
end

I tested it with Lua 5.2.

I'm new to Lua, so forgive (or, better yet, correct) any style mistakes.

EllenSpertus?

RecentChanges · preferences
edit · history
Last edited October 5, 2013 2:36 am GMT (diff)