diff options
Diffstat (limited to 'contrib/lr.el')
-rw-r--r-- | contrib/lr.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/contrib/lr.el b/contrib/lr.el new file mode 100644 index 0000000..ea9d264 --- /dev/null +++ b/contrib/lr.el @@ -0,0 +1,19 @@ +;;; lr.el --- run `lr' and display the results + +(define-compilation-mode lr-mode "Lr" + (set (make-local-variable 'compilation-error-regexp-alist) + '(("\\([^ \n']+\\)[*/=>@|]$" 1) + ("\\([^ \n']+\\)$" 1) + ("'\\(.+\\)'$" 1))) + (set (make-local-variable 'next-error-highlight) nil)) + +(defun lr (command-args) + "Run lr, with user-specified args, and collect output in a buffer. +While lr runs asynchronously, you can use \\[next-error] (M-x next-error), +or RET in the *lr* buffer, to go to the files lr found." + (interactive (list (read-shell-command "Run lr (like this): " + "lr " 'lr-history))) + (compilation-start command-args 'lr-mode)) + +(provide 'lr) +;;; lr.el ends here |