Right align nicks in rcirc so messages all start at the same column

rcirc-markup-right-align-nicks.el

(defvar rcirc-max-nick-length 10
  "Maxmimum nick length used for right-aligned nicks.")

(defun rcirc-markup-right-align-nicks (sender response)
  "Right align nicks, truncating at `rcirc-max-nick-length'."
  (goto-char (point-min))
  (string-match "^..:.. <\\([^>]+\\)>" (buffer-string))
  (let* ((length rcirc-max-nick-length)
	 (nick (match-string 1 (buffer-string)))
	 (nick* (format (format "%%%ds" length) nick))
	 (nick* (truncate-string-to-width nick* length)))
    (while (search-forward (format "<%s>" nick) nil t)
      (replace-match (format "<%s>" nick*) nil t))))

(add-to-list 'rcirc-markup-text-functions 'rcirc-markup-right-align-nicks)