CVS update by adrian xemacs-builds/adrian/website apa-linklint-utils.el
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>, 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"))))