map global user a '*%s' -docstring 'select all'

def -params 1 extend-line-down %{
  exec "%arg{1}X"
}
def -params 1 extend-line-up %{
  exec "%arg{1}K"
  try %{
    exec -draft ';\n'
    exec X
  }
  exec ''
}
map global normal x ':extend-line-down %val{count}'
map global normal X ':extend-line-up %val{count}'

def -hidden select-prev-word-part %{
  exec [A-Z][a-z]+|[A-Z]+|[a-z]+
}
def -hidden select-next-word-part %{
  exec /[A-Z][a-z]+|[A-Z]+|[a-z]+
}
def -hidden extend-prev-word-part %{
  exec [A-Z][a-z]+|[A-Z]+|[a-z]+
}
def -hidden extend-next-word-part %{
  exec ?[A-Z][a-z]+|[A-Z]+|[a-z]+
}
map global normal w :select-next-word-part
map global normal W :extend-next-word-part

# foo_bar → fooBar
# foo-bar → fooBar
# foo bar → fooBar
def camelcase %{
  exec '`s[-_]d~w'
}

# fooBar → foo_bar
# foo-bar → foo_bar
# foo bar → foo_bar
def snakecase %{
  exec 's-|[a-z][A-Z];as[-\s]+c_w`'
}

# fooBar → foo-bar
# foo_bar → foo-bar
# foo bar → foo-bar
def kebabcase %{
  exec 's_|[a-z][A-Z];as[_\s]+c-w`'
}

def selection-hull %{
  eval -save-regs 'abc' %{
    exec '"aZ' '"bZ' '"az"cZ'
    eval -itersel %{ exec '"bu' }
    exec '"bz'
  }
}

foo
bar
qux

1foo
2bar
3qux