On 2023-02-05, TRS-80 <lists.trs...@isnotmyreal.name> wrote: > >> 2- a simple way to align some text to the right (that is to say to >> automatically calculate how many spaces are needed to fill the gap >> between the text on the left an the text on the right for 72 characters >> line. > > #+begin_src emacs-lisp > (defun my-insert-line-justified (left-text right-text) > "Insert justified line. > Spaces between LEFT-TEXT and RIGHT-TEXT will be calculated > automatically, based on 72 character overall width." > (let* ((left-chars (length left-text)) > (right-chars (length right-text)) > (spaces-count (- 72 left-chars right-chars)) > (spaces-string (make-string spaces-count ? ))) > (insert left-text spaces-string right-text))) > #+end_src
(set-justification-full)