Como escrever na vertical?

Digamos que eu queira produzir o seguinte texto no meu documento:

%
%            Not Important
%    O ------------------------->
%    |
%  S |
%  o |
%  m |
%  e |
%    |
%  M |
%  s |
%  g |
%    |
%    V

Existe alguma maneira fácil de escrever verticalmente "Some Msg" como acima, sem precisar inserir manualmente cada caractere em cada linha?

Uma solução realmente boa provavelmente exigiria mais trabalho, mas "não é ruim" não é muito difícil de alcançar.

Idéia

Tudo o que precisamos é mover uma linha para baixo após cada caractere, então vamos fazer isso via InsertCharPrecomando automático!

Código

Coloque-o .vimrcou, melhor ainda, em algum arquivo no plugin/diretório

" enters insert mode to write vertically
function! VertStart()
    augroup Vert
        autocmd!
        " handles each entered character and moves cursor down
        autocmd InsertCharPre * call feedkeys("\<left>\<down>", 'n')
        autocmd InsertLeave * call VertEnd()
    augroup END

    inoremap <BS> <Up><Del>
    startinsert
endfunction

" cleans up on leaving insert mode
function! VertEnd()
    iunmap <BS>
    augroup Vert
        autocmd!
    augroup END
endfunction

" command to start writing vertically
command! Vert call VertStart()

Uso

Digite o :Vertcomando para começar a escrever verticalmente. Sair do modo de inserção desativa automaticamente esse "modo". Obviamente, você pode mapeá-lo para um atalho se precisar usar esse comando com frequência.

Problemas conhecidos

1. A gravação vertical não será desativada se você sair do modo de inserção via Ctrl-C(isso é resultado de Ctrl-Cser implementado de uma maneira um pouco estranha em relação ao InsertLeaveevento, que não é acionado; portanto, usar a chave exige que você tenha cuidado).

Você pode digitar como de costume e depois converter o texto horizontal atual em vertical usando a substituição no Vim da seguinte forma (aplica-se à linha atual):

:s/\(.\)/\1\r/g

O método mais fácil de lembrar é executar um dos seguintes comandos (para todas as linhas):

:%!fold -w1
:%!grep -o .

Para aplicar apenas para a linha atual ou mais linhas, anteceda com V, expanda a área para mais linhas, se necessário, e execute acima (mas sem %).

^{Para o PowerShell no Windows, verifique a substituição para fold .}

Para definir o mapeamento de teclas simples (por exemplo F2), tente o seguinte:

:nnoremap <F2> V:!fold -w1<CR>

Em seguida, digite algo e pressione F2para tornar o texto vertical, simples assim.

Outra alternativa é definir a quebra automática de linha, por exemplo

:set tw=1 " textwidth
:set formatoptions+=t

Isso envolverá automaticamente o texto o mais próximo de 1 caractere, conforme o espaço em branco permitir. A desvantagem é que cada letra precisa ser seguida por espaço (então é quase o mesmo que você pressionariaEnter

Acho que as macros são uma maneira incrível de fazer coisas incomuns se você estiver interessado em fazer isso mais de uma vez na lua azul. Digamos que você tenha a seguinte tabela:

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  S |
%  o | So you can't just write your
%  m |
%  e | text and transform it into
%    |
%  M | the shape that you want
%  s |
%  g | Macros help here
%    |
%    V

E digamos que você deseja substituir Some Msgcom Other Message. Primeiro, vamos estender a tabela para o caractere extra (linha antes do último yy5p:

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  S |
%  o | So you can't just write your
%  m |
%  e | text and transform it into
%    |
%  M | the shape that you want
%  s |
%  g | Macros help here
%    |
%    |
%    |
%    |
%    |
%    |
%    V

A macro que eu vou criar cuidará da conversão do texto de horizontal para vertical enquanto substitui o texto antigo. Comece digitando o texto no primeiro local (o cursor está no final de Other Message):

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  SOther Message |
%  o | So you can't just write your
%  m |
%  e | text and transform it into
%    |
%  M | the shape that you want
%  s |
%  g | Macros help here
%    |
%    |
%    |
%    |
%    |
%    |
%    V

Registre a seguinte macro:

• qq: inicia a gravação da macro denominada q
• ^: ir para o início da linha
• 3l: mova para a coluna onde o texto será colocado
• x: excluir o caractere antigo
• l: mova para a direita, deixando um caractere da mensagem no lugar do caractere antigo:
• v: vá para o modo visual
• f|: pule para |
• 2h: retroceder dois caracteres
• d: seleção de corte
• j: descer
• P: colar antes do cursor
• q: encerra a gravação da macro

Neste ponto, você tem:

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  O |
%  other Message | So you can't just write your
%  m |
%  e | text and transform it into
%    |
%  M | the shape that you want
%  s |
%  g | Macros help here
%    |
%    |
%    |
%    |
%    |
%    |
%    V

Repita a macro o número suficiente de vezes (ou seja, o número de caracteres, mas você não precisa conhecê-la com antecedência. Apenas subestime e continue depois de ver o quão perto sua estimativa estava). Então vamos com 10@q. Você obtém:

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  O |
%  t | So you can't just write your
%  h |
%  e | text and transform it into
%  r |
%    | the shape that you want
%  M |
%  e | Macros help here
%  s |
%  s |
%  a |
%   ge |
%    |
%    |
%    V

Ok, mais um ( @q):

%
%            Not Important
%    O ------------------------->
%    | Stuff in side the table
%  O |
%  t | So you can't just write your
%  h |
%  e | text and transform it into
%  r |
%    | the shape that you want
%  M |
%  e | Macros help here
%  s |
%  s |
%  a |
%  g |
%   e |
%    |
%    V

Seu cursor está agora no último e. A macro não funciona bem com a última letra (você pode tentar @qe udesfazer) para obter resultados insatisfatórios. Simplesmente ajuste você mesmo ( Xpara backspace).