ob-ebnf: Fix copyright and style

* lisp/ob-ebnf.el (org-babel-execute:ebnf): Fix style.
This commit is contained in:
Nicolas Goaziou 2013-10-29 15:18:24 +01:00
parent 0be044736c
commit dc00c4afe6
1 changed files with 10 additions and 12 deletions

View File

@ -1,6 +1,6 @@
;;; ob-ebnf.el --- org-babel functions for ebnf evaluation
;; Copyright (C) your name here
;; Copyright (C) 2013 Free Software Foundation, Inc.
;; Author: Michael Gauland
;; Keywords: literate programming, reproducible research
@ -36,7 +36,7 @@
;;;
;;; :style specifies a value in ebnf-style-database. This provides the
;;; ability to customise the output. The style can also specify the
;;; gramnmar syntax (by setting ebnf-syntax); note that only ebnf,
;;; grammar syntax (by setting ebnf-syntax); note that only ebnf,
;;; iso-ebnf, and yacc are supported by this file.
;;; Requirements:
@ -64,14 +64,13 @@ called by `org-babel-execute-src-block'"
(result nil))
(with-temp-buffer
(when style (ebnf-push-style style))
(let
((comment-format
(cond ((string= ebnf-syntax 'yacc) "/*%s*/")
((string= ebnf-syntax 'ebnf) ";%s")
((string= ebnf-syntax 'iso-ebnf) "(*%s*)")
(t (setq result
(format "EBNF error: format %s not supported."
ebnf-syntax))))))
(let ((comment-format
(cond ((string= ebnf-syntax 'yacc) "/*%s*/")
((string= ebnf-syntax 'ebnf) ";%s")
((string= ebnf-syntax 'iso-ebnf) "(*%s*)")
(t (setq result
(format "EBNF error: format %s not supported."
ebnf-syntax))))))
(setq ebnf-eps-prefix dest-dir)
(insert (format comment-format (format "[%s" dest-root)))
(newline)
@ -80,8 +79,7 @@ called by `org-babel-execute-src-block'"
(insert (format comment-format (format "]%s" dest-root)))
(ebnf-eps-buffer)
(when style (ebnf-pop-style))))
result
)))
result)))
(provide 'ob-ebnf)
;;; ob-ebnf.el ends here