User: adrian Date: 06/06/04 15:20:53 Added: xemacs-builds/adrian/website apa-linklint-utils.el Log: Initial lightly tested version. Revision Changes Path 1.1 XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el Index: apa-linklint-utils.el =================================================================== ; Adrian Aichner <adrian(a)xemacs.org&gt;, The XEmacs Project, 2006-06-04. (defun apa-linklint-compilation-finish-function (buffer message) (with-current-buffer buffer (goto-char (point-min)) (sort-numeric-fields 5 (re-search-forward "^Compilation started.+\n" nil nil nil buffer) (and (goto-char (point-max buffer)) (re-search-backward "\n\n" nil nil nil buffer))) (if (fboundp 'apa-save-compilation) (apa-save-compilation nil)))) (defun apa-linklint-compilation-mode-hook nil (make-variable-buffer-local 'compilation-finish-function) (setq compilation-finish-function 'apa-linklint-compilation-finish-function) (insert (format "Compilation started at %s %+.4d (%s)\n" (current-time-string) (/ (nth 0 (current-time-zone)) 36) (nth 1 (current-time-zone))))) (defun apa-linklint-were-ok-urlsum (directory) "Search linklint urlsum.txt files for number of links that \"were ok, \". Files are searched recursively by `igrep-find'. The resulting igrep buffer is sorted by number of failed links and offered to be saved by use of `apa-save-compilation'. " (interactive (list (read-directory-name "linklint output directory"))) (save-excursion (let ((compilation-mode-hook 'apa-linklint-compilation-mode-hook)) (igrep-find "grep" "were ok, " '("urlsum.txt") "-Pi"))))