Add contrib/compilation-ledger.el

1 files changed, 97 insertions, 0 deletions

diff --git a/contrib/compilation-ledger.el b/contrib/compilation-ledger.el
new file mode 100644
index 00000000..0dedc894
--- /dev/null
+++ b/contrib/compilation-ledger.el
@@ -0,0 +1,97 @@
+;;; compilation-ledger.el --- error regexps for ledger
+
+;; Copyright 2009, 2010, 2011 Kevin Ryde
+
+;; Author: Kevin Ryde <user42@zip.com.au>
+;; Version: 1
+;; Keywords: processes
+;; URL: http://user42.tuxfamily.org/compilation-ledger/index.html
+;; EmacsWiki: CompilationMode
+
+;; compilation-ledger.el is free software; you can redistribute it
+;; and/or modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3, or (at your
+;; option) any later version.
+;;
+;; compilation-ledger.el is distributed in the hope that it will be
+;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
+;; Public License for more details.
+;;
+;; You can get a copy of the GNU General Public License online at
+;; <http://www.gnu.org/licenses/>.
+
+
+;;; Commentary:
+
+;; This spot of code adds a `compilation-error-regexp-alist' pattern to
+;; recognise error messages from the "ledger" program,
+;;
+;;     http://newartisans.com/software/ledger.html
+;;
+;; such as
+;;
+;;     Error: "foo.ledger", line 1656: Invalid date string: foo
+;;
+;; This is only for running ledger from M-x compile.  ledger.el shows
+;; reports with its own `ledger-report-mode' which has more features and
+;; isn't based on `compilation-mode'.
+
+;;; Install:
+
+;; Put compilation-ledger.el in one of your `load-path' directories,
+;; and in your .emacs add
+;;
+;;     (eval-after-load "compile" '(require 'compilation-ledger))
+;;
+;; There's an autoload cookie below for this, if you know how to use
+;; `update-file-autoloads' and friends.
+
+;;; Emacsen:
+
+;; Designed for Emacs 20 up, works in XEmacs 21 too.
+
+;;; History:
+
+;; Version 1 - the first version
+
+;;; Code:
+
+;;;###autoload (eval-after-load "compile" '(require 'compilation-ledger))
+
+(require 'compile)
+
+(let ((symbol  'compilation-ledger)
+      (pattern '("^Error: \"\\([^\"\n]+?\\)\", line \\([0-9]+\\):" 1 2)))
+  (cond ((eval-when-compile (boundp 'compilation-error-regexp-systems-list))
+         ;; xemacs21
+         (add-to-list 'compilation-error-regexp-alist-alist
+                      (list symbol pattern))
+         (compilation-build-compilation-error-regexp-alist))
+        ((eval-when-compile (boundp 'compilation-error-regexp-alist-alist))
+         ;; emacs22 up
+         (add-to-list 'compilation-error-regexp-alist symbol)
+         (add-to-list 'compilation-error-regexp-alist-alist
+                      (cons symbol pattern)))
+        (t
+         ;; emacs21
+         (add-to-list 'compilation-error-regexp-alist pattern))))
+
+(defun compilation-ledger-unload-function ()
+  "Remove compilation-ledger regexps on `unload-feature'."
+  (setq compilation-error-regexp-alist
+        (remove 'compilation-ledger compilation-error-regexp-alist))
+  (setq compilation-error-regexp-alist-alist
+        (remove (assq 'compilation-ledger
+                      compilation-error-regexp-alist-alist)
+                compilation-error-regexp-alist-alist))
+  (when (eval-when-compile
+          (fboundp 'compilation-build-compilation-error-regexp-alist))
+    (compilation-build-compilation-error-regexp-alist))
+  nil) ;; and normal unload-feature actions
+
+;; LocalWords: http newartisans html el
+
+(provide 'compilation-ledger)
+
+;;; compilation-ledger.el ends here