Finished changing name to ledger-*

All files and references changed ldg-* to ledger-*

1 files changed, 172 insertions, 0 deletions

diff --git a/lisp/ledger-texi.el b/lisp/ledger-texi.el
new file mode 100644
index 00000000..68880550
--- /dev/null
+++ b/lisp/ledger-texi.el
@@ -0,0 +1,172 @@
+;;; ledger-texi.el --- Helper code for use with the "ledger" command-line tool
+
+;; Copyright (C) 2003-2013 John Wiegley (johnw AT gnu DOT org)
+
+;; This file is not part of GNU Emacs.
+
+;; This 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 2, or (at your option) any later
+;; version.
+;;
+;; This 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 should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+(defgroup ledger-texi nil
+"Options for working on Ledger texi documentation"
+:group 'ledger)
+
+(defcustom ledger-texi-sample-doc-path "~/ledger/doc/sample.dat"
+"Location for sample data to be used in texi tests"
+:type 'file
+:group 'ledger-texi)
+
+(defcustom ledger-texi-normalization-args "--args-only --columns 80"
+"texi normalization for producing ledger output"
+:type 'string
+:group 'ledger-texi)
+
+(defun ledger-update-test ()
+  (interactive)
+  (goto-char (point-min))
+  (let ((command (buffer-substring (point-min) (line-end-position)))
+        input)
+    (re-search-forward "^<<<\n")
+    (let ((beg (point)) end)
+      (re-search-forward "^>>>")
+      (setq end (match-beginning 0))
+      (forward-line 1)
+      (let ((output-beg (point)))
+        (re-search-forward "^>>>")
+        (goto-char (match-beginning 0))
+        (delete-region output-beg (point))
+        (apply #'call-process-region
+               beg end (expand-file-name "~/Products/ledger/debug/ledger")
+               nil t nil
+               "-f" "-" "--args-only" "--columns=80" "--no-color"
+               (split-string command " "))))))
+
+(defun ledger-texi-write-test (name command input output &optional category)
+  (let ((buf (current-buffer)))
+    (with-current-buffer (find-file-noselect
+                          (expand-file-name (concat name ".test") category))
+      (erase-buffer)
+      (let ((case-fold-search nil))
+        (if (string-match "\\$LEDGER\\s-+" command)
+            (setq command (replace-match "" t t command)))
+        (if (string-match " -f \\$\\([-a-z]+\\)" command)
+            (setq command (replace-match "" t t command))))
+      (insert command ?\n)
+      (insert "<<<" ?\n)
+      (insert input)
+      (insert ">>>1" ?\n)
+      (insert output)
+      (insert ">>>2" ?\n)
+      (insert "=== 0" ?\n)
+      (save-buffer)
+      (unless (eq buf (current-buffer))
+        (kill-buffer (current-buffer))))))
+
+(defun ledger-texi-update-test ()
+  (interactive)
+  (let ((details (ledger-texi-test-details))
+        (name (file-name-sans-extension
+               (file-name-nondirectory (buffer-file-name)))))
+    (ledger-texi-write-test
+     name (nth 0 details)
+     (nth 1 details)
+     (ledger-texi-invoke-command
+      (ledger-texi-expand-command
+       (nth 0 details)
+       (ledger-texi-write-test-data name (nth 1 details)))))))
+
+(defun ledger-texi-test-details ()
+  (goto-char (point-min))
+  (let ((command (buffer-substring (point) (line-end-position)))
+        input output)
+    (re-search-forward "^<<<")
+    (let ((input-beg (1+ (match-end 0))))
+      (re-search-forward "^>>>1")
+      (let ((output-beg (1+ (match-end 0))))
+        (setq input (buffer-substring input-beg (match-beginning 0)))
+        (re-search-forward "^>>>2")
+        (setq output (buffer-substring output-beg (match-beginning 0)))
+        (list command input output)))))
+
+(defun ledger-texi-expand-command (command data-file)
+  (if (string-match "\\$LEDGER" command)
+      (replace-match (format "%s -f \"%s\" %s" ledger-binary-path
+                             data-file ledger-texi-normalization-args) t t command)
+      (concat (format "%s -f \"%s\" %s " ledger-binary-path
+		      data-file ledger-texi-normalization-args) command)))
+
+(defun ledger-texi-invoke-command (command)
+  (with-temp-buffer (shell-command command t (current-buffer))
+		    (if (= (point-min) (point-max))
+			(progn
+			  (push-mark nil t)
+			  (message "Command '%s' yielded no result at %d" command (point))
+			  (ding))
+			(buffer-string))))
+
+(defun ledger-texi-write-test-data (name input)
+  (let ((path (expand-file-name name temporary-file-directory)))
+    (with-current-buffer (find-file-noselect path)
+      (erase-buffer)
+      (insert input)
+      (save-buffer))
+    path))
+
+(defun ledger-texi-update-examples ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (while (re-search-forward "^@c \\(\\(?:sm\\)?ex\\) \\(\\S-+\\): \\(.*\\)" nil t)
+      (let ((section (match-string 1))
+            (example-name (match-string 2))
+            (command (match-string 3)) expanded-command
+            (data-file ledger-texi-sample-doc-path)
+            input output)
+        (goto-char (match-end 0))
+        (forward-line)
+        (when (looking-at "@\\(\\(?:small\\)?example\\)")
+          (let ((beg (point)))
+            (re-search-forward "^@end \\(\\(?:small\\)?example\\)")
+            (delete-region beg (1+ (point)))))
+
+        (when (let ((case-fold-search nil))
+                (string-match " -f \\$\\([-a-z]+\\)" command))
+          (let ((label (match-string 1 command)))
+            (setq command (replace-match "" t t command))
+            (save-excursion
+              (goto-char (point-min))
+              (search-forward (format "@c data: %s" label))
+              (re-search-forward "@\\(\\(?:small\\)?example\\)")
+              (forward-line)
+              (let ((beg (point)))
+                (re-search-forward "@end \\(\\(?:small\\)?example\\)")
+                (setq data-file (ledger-texi-write-test-data
+                                 (format "%s.dat" label)
+                                 (buffer-substring-no-properties
+                                  beg (match-beginning 0))))))))
+
+        (let ((section-name (if (string= section "smex")
+                                "smallexample"
+				"example"))
+              (output (ledger-texi-invoke-command
+                       (ledger-texi-expand-command command data-file))))
+          (insert "@" section-name ?\n output
+                  "@end " section-name ?\n))
+
+        ;; Update the regression test associated with this example
+        (ledger-texi-write-test example-name command input output
+                                "../test/manual")))))
+
+(provide 'ledger-texi)