User: adrian Date: 06/06/26 18:55:03 Modified: xemacs-builds/adrian/website apa-linklint-utils.el Log: Add apa-linklint-sort-paragraph-by-failed. Revision Changes Path 1.3 +7 -0 XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el Index: apa-linklint-utils.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- apa-linklint-utils.el 2006/06/07 06:56:23 1.2 +++ apa-linklint-utils.el 2006/06/26 16:55:02 1.3 ＠＠ -41,3 +41,10 ＠＠ offered to be saved by use of `apa-save- (let ((compilation-mode-hook 'apa-linklint-compilation-mode-hook)) (igrep-find "grep" "were ok, " '("urlsum.txt") "-Pi")))) + +(defun apa-linklint-sort-paragraph-by-failed () +"Sort paragraphs in buffer by number of failed urls, in reverse order. + +Buffer is assumed to contain the contents of a urlfailF.txt linklint file." + (interactive) + (sort-regexp-fields-numerically t "^\\(.+\n\\)+[ ]+had \\([0-9]+\\) failed.+\n\\(.+\n\\)+" "\\2" (point-min) (point-max)))