Posso permitir que a pontuação passe pela coluna de preenchimento?

Na tipografia, existe uma prática chamada 'protrusão' (ou pontuação suspensa ) que permite que certos símbolos permaneçam no final da margem:

Eu gostaria de fazer o mesmo pelos meus documentos de texto.

Posso alterar fill-paragraph(e amigos?) Para ignorar a pontuação de final de linha ( .?!:;,'"-) quando preencher o parágrafo?

fill-column

— Sean Allred
fonte

Não tenho certeza se você pode realmente chamar a protrusão (alteração sutil da pontuação final) de texto justificado comparável a ignorar a pontuação final quando o texto é encapsulado (que não justifica o texto por padrão, tornando o efeito essencialmente invisível). Talvez você queira acrescentar que isso se aplica à variante justificada de fill-paragraph?

— Wasamasa

@wasamasa A protrusão ainda existe para liberar os blocos de texto à esquerda.

— Sean Allred

Isso se aplica à borda esquerda do texto?

— wasamasa

@wasamasa A menos que você esteja lidando com uma linguagem e editor RTL (que, apesar de suportado, me parece fora do escopo), não faz sentido. Se você tiver um bloco nivelado à direita e ficar sem espaço na margem esquerda (ou seja, coluna 0), não poderá colocar exatamente a pontuação na coluna -1. (Eu suponho que você poderia mudar a margem direita como (1+ fill-coluna), mas que iria mudar o recheio e você pode ser pego em um loop.)

— Sean Allred

@wasamasa Em termos de implementação: não preenchida. pule para a coluna de preenchimento. se point estiver visualizando um único caractere de pontuação e depois espaço em branco, pule para frente. caso contrário, se no meio de uma palavra, pule para trás. nova linha, repita.

— Sean Allred

Aha, eu tenho a solução! Coloque isso em algum lugar do seu arquivo .emacs/ .emacs.d/init.el:

(define-advice current-fill-column (:filter-return (rtn) protrusion)
  "Advice to allow hanging punctuation when filling text."
  ;; Get the character after the proposed cutoff point
  (let ((end-char (char-after (1+ rtn))))
    (if (and end-char
             ;; Check if character is in the “punctuation” syntax table…
             (or (eq (char-syntax end-char) ?.)
                 ;; …or is any of these characters (feel free to add more)
                 (memq end-char (string-to-list ".,!?;:-"))))
        ;; If so, return the original value, plus one.
        (1+ rtn)
      ;; Otherwise, do nothing and return the original value.
      rtn)))

Eu testei isso com fill-paragraph, e deve funcionar para todas as funções de preenchimento (já que todas elas são usadas current-fill-columnno processamento de cada linha). Espero que você goste! 😇

— Tina Russell
fonte