[elpa] 56/255: some utility functions

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 02a9567ed0e5fbf4fec42ae4536af71f01361617
Author: Eric Schulte <address@hidden>
Date:   Mon May 21 19:30:39 2012 -0400

    some utility functions
---
 sgf2el.el |   32 +++++++++++++++++++++++++++++++-
 1 files changed, 31 insertions(+), 1 deletions(-)

diff --git a/sgf2el.el b/sgf2el.el
index d3e0917..d11c7d6 100644
--- a/sgf2el.el
+++ b/sgf2el.el
@@ -5,7 +5,7 @@
 ;; Author: Eric Schulte <address@hidden>
 ;; Created: 2012-05-15
 ;; Version: 0.1
-;; Keywords: game go
+;; Keywords: game go sgf
 
 ;; This file is not (yet) part of GNU Emacs.
 ;; However, it is distributed under the same license.
@@ -82,6 +82,34 @@
                                                   (car val) val)))))
             (replace-match rep nil 'literal)))))))
 
+(defun sgf2el (&optional sgf-buffer)
+  "Convert the content of SGF-BUFFER to emacs-lisp in a new buffer."
+  (interactive)
+  (let* ((sgf-buffer (or sgf-buffer (current-buffer)))
+         (buffer (generate-new-buffer (concat (buffer-name sgf-buffer) "-el")))
+         (sgf-str (with-current-buffer sgf-buffer (buffer-string))))
+    (with-current-buffer buffer
+      (insert sgf-str)
+      (sgf2el-region)
+      (emacs-lisp-mode))
+    (pop-to-buffer buffer)))
+
+(defmacro sgf2el-set-to-var (var &optional buffer)
+  "Assign the value of the board in BUFFER to VAR."
+  `(let ((buffer ,(or buffer (current-buffer))))
+     (setq ,var (save-excursion (goto-char (point-min)) (read buffer)))))
+
+(defun sgf2el-normalize (&optional buffer)
+  "Cleanup the formatting of the elisp sgf data in BUFFER."
+  (interactive)
+  (let ((buffer (or buffer (current-buffer))) temp)
+    (sgf2el-set-to-var temp buffer)
+    (with-current-buffer buffer
+      (save-excursion
+        (delete-region (point-min) (point-max))
+        (insert (pp temp))))
+    (length temp)))
+
 
 ;;; Specific property converters
 (defun process-date (date-args)
@@ -117,3 +145,5 @@
           label-args))
 (add-to-list 'sgf2el-special-properties (cons :LB #'process-label))
 (add-to-list 'sgf2el-special-properties (cons :LW #'process-label))
+
+(provide 'sgf2el)