Hey Bastien, Bastien <[EMAIL PROTECTED]> writes:
> I often fiddle around #+AUTHOR, #+TITLE, and other such lines. But > having to re-align them so that it looks better is time-consuming. > > This function does it automatically: > > (defun bzg-org-indent-options () > "Indent option lines correctly." > (interactive) > (save-excursion > (goto-char (point-min)) > (let ((max-length 0)) > (while (re-search-forward "^#\\+\\([A-Z_]+\\)" nil t) > (if (> (length (match-string 1)) max-length) > (setq max-length (length (match-string 1))))) > (goto-char (point-min)) > (while (re-search-forward "^#\\+\\([A-Z_]+\\):[ \t]*\\(.+\\)$" nil t) > (replace-match > (concat "#+" (match-string 1) ":" > (make-string (1+ (- max-length (length (match-string 1)))) 32) > (match-string 2)) t t))))) Thanks, really handy. BTW did you know about align-regexp? ,---- | (align-regexp (point-min) (point-max) "^#\\+[A-Z_]+:\\( +\\)" 1 5) `---- Dare I say will have a similar affect. Cheers, Phil -- Phil Jackson http://www.shellarchive.co.uk _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode