blob: 0dedc89494c7678be7da3ddc21bc2e015c68a0b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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
|
