init-python.scm (TeXmacs-2.1.1-src) | : | init-python.scm (TeXmacs-2.1.2-src) | ||
---|---|---|---|---|
skipping to change at line 19 | skipping to change at line 19 | |||
;; | ;; | |||
;; This software falls under the GNU general public license version 3 or later. | ;; This software falls under the GNU general public license version 3 or later. | |||
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE | ;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE | |||
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>. | ;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>. | |||
;; | ;; | |||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||
(use-modules (dynamic session-edit) (dynamic program-edit)) | (use-modules (dynamic session-edit) (dynamic program-edit)) | |||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||
;; Python source files | ||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
(define-format python | ||||
(:name "Python Source Code") | ||||
(:suffix "py")) | ||||
(define (texmacs->python x . opts) | ||||
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '()))) | ||||
(define (python->texmacs x . opts) | ||||
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '()))) | ||||
(define (python-snippet->texmacs x . opts) | ||||
(verbatim-snippet->texmacs x | ||||
(acons "verbatim->texmacs:encoding" "SourceCode" '()))) | ||||
(converter texmacs-tree python-document | ||||
(:function texmacs->python)) | ||||
(converter python-document texmacs-tree | ||||
(:function python->texmacs)) | ||||
(converter texmacs-tree python-snippet | ||||
(:function texmacs->python)) | ||||
(converter python-snippet texmacs-tree | ||||
(:function python-snippet->texmacs)) | ||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||||
;; Plugin configuration | ;; Plugin configuration | |||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||
;; Basically, the serializer makes the input preserve the newlines | ;; Basically, the serializer makes the input preserve the newlines | |||
;; and adds the string character "\n<EOF>\n" by the end. | ;; and adds the string character "\n<EOF>\n" by the end. | |||
;; I guess it could send "\x04" instead to signal a real EOF, | ;; I guess it could send "\x04" instead to signal a real EOF, | |||
;; but I would need to check if that does not kill the pipe... | ;; but I would need to check if that does not kill the pipe... | |||
;; An alternative approach is to use the input-done? command | ;; An alternative approach is to use the input-done? command | |||
;; from TeXmacs, but, at the time of this writing, it did not work.--A | ;; from TeXmacs, but, at the time of this writing, it did not work.--A | |||
End of changes. 1 change blocks. | ||||
0 lines changed or deleted | 30 lines changed or added |