De acuerdo con el nodo manual sobre Relleno , varias de las funciones de relleno toman un argumento JUSTIFICAR opcional que puede usar. Entonces, por ejemplo, para llenar un párrafo con justificación correcta, puede usar (fill-paragraph 'right)
.
También puede usar (justify-current-line 'right)
para una sola línea.
Si planea utilizar muchas de estas opciones, puede incluirlas en funciones, como las siguientes, y luego vincular estas funciones a las teclas que elija:
(defun right-justify-current-line ()
"Right-justify this line."
(interactive)
(justify-current-line 'right))
(defun right-fill-paragraph ()
"Fill paragraph with right justification."
(interactive)
(fill-paragraph 'right))
Aquí hay una función que puede utilizar como reemplazo fill-paragraph
. Con varios prefijos, le permite decidir qué tipo de justificación usar en el párrafo que está completando:
(defun fill-paragraph-dwim (&optional arg)
"Fills the paragraph as normal with no prefix. With C-u,
right-justify. With C-u C-u, center-justify. With C-u C-u C-u,
full-justify."
(interactive "p")
(fill-paragraph (cond ((= arg 4) 'right)
((= arg 16) 'center)
((= arg 64) 'full))))
Si no desea rellenar cuando está alineado a la derecha, puede usar la siguiente función, que se crea directamente desde la center-region
función con un cambio de una sola línea para que se alinee correctamente:
(defun right-region (from to)
"Right-justify each nonblank line starting in the region."
(interactive "r")
(if (> from to)
(let ((tem to))
(setq to from from tem)))
(save-excursion
(save-restriction
(narrow-to-region from to)
(goto-char from)
(while (not (eobp))
(or (save-excursion (skip-chars-forward " \t") (eolp))
;; (center-line)) ; this was the original code
(justify-current-line 'right)) ; this is the new code
(forward-line 1)))))