"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/convert/images/tmimage.scm" between
TeXmacs-1.99.4-src.tar.gz and TeXmacs-1.99.5-src.tar.gz

About: GNU TeXmacs is a what-you-see-is-what-you-get scientific text editor, which was both inspired by TeX and GNU Emacs.

tmimage.scm  (TeXmacs-1.99.4-src):tmimage.scm  (TeXmacs-1.99.5-src)
skipping to change at line 417 skipping to change at line 417
;; this is where png, jpg, etc is generated ;; this is where png, jpg, etc is generated
;; we ask imagemagick to insert texmacs source ;; we ask imagemagick to insert texmacs source
;; in image metadata (comment) ;; in image metadata (comment)
(system-2-check (system-2-check
(string-append "convert -density 300 -comment \"" (string-append "convert -density 300 -comment \""
(tm-encode tm-fragment) "\"") (tm-encode tm-fragment) "\"")
temp1 myurl))) temp1 myurl)))
(system-remove temp1) ;; temp eps file not needed anymore (system-remove temp1) ;; temp eps file not needed anymore
))) )))
(tm-define (export-selection-as-pdf myurl)
(:synopsis "Generates Pdf file for the current selection")
(:argument myurl "A full file url with extension")
(when (selection-active-any?)
(let* (;; step 1 prepare and typeset selection
;;if selection is part of math need to re-encapsulate
;; it with math to obtain proper typesetting :
(tm-fragment
(cond ((tree-multi-paragraph? (selection-tree))
(selection-tree))
((in-math?)
(stree->tree `(math ,(selection-tree))))
(else (selection-tree))))
;; also if selection spans several lines of text,
;; need to encapsulate it in a fixed-width table
;;to enforce pagewidth :
(tm-fragment-enforce-pagewidth
(if (tree-multi-paragraph? (selection-tree))
(stree->tree
`(tabular
(tformat (twith "table-width" "1par")
(twith "table-hmode" "exact")
(cwith "1" "1" "1" "1" "cell-hyphen" "t")
(table (row (cell (document ,tm-fragment)))))))
tm-fragment)))
(print-snippet myurl tm-fragment-enforce-pagewidth))))
 End of changes. 1 change blocks. 
0 lines changed or deleted 0 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS