"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/utils/misc/markup-funcs.scm" between
TeXmacs-1.99.8-src.tar.gz and TeXmacs-1.99.9-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.

markup-funcs.scm  (TeXmacs-1.99.8-src):markup-funcs.scm  (TeXmacs-1.99.9-src)
skipping to change at line 78 skipping to change at line 78
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Language suffix ;; Language suffix
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tm-define (ext-language-suffix) (tm-define (ext-language-suffix)
(:secure #t) (:secure #t)
(with s (language-to-locale (get-output-language)) (with s (language-to-locale (get-output-language))
(if (>= (string-length s) 2) (substring s 0 2) "en"))) (if (>= (string-length s) 2) (substring s 0 2) "en")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Listings ;; Line numbering
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define ext-numbered-root #f)
(define (ext-mark r t var rew)
(let* ((rp (tree->path r))
(tp (tree->path t)))
(if (and rp tp (list-starts? tp rp))
(let* ((p (list-drop tp (length rp)))
(ss (map number->string p)))
`(mark (arg ,var ,@ss) ,rew))
rew)))
(define (ext-numbered-sub t)
(cond ((tree-is? t 'document)
`(document ,@(map ext-numbered-line (tm-children t))))
((tree-multi-line? t)
(with rew (cons (tm-label t) (map ext-numbered-sub (tm-children t)))
(ext-mark ext-numbered-root t "body" rew)))
(else t)))
(define (ext-numbered-line t)
(if (tree-multi-line? t)
(ext-numbered-sub t)
`(numbered-line ,t)))
(tm-define (ext-numbered body)
(:secure #t)
(set! ext-numbered-root body)
(if (tm-func? body 'document)
`(numbered-block (document ,@(map ext-numbered-line (tm-children body))))
body))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Fancy listings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (ext-listing-row body row) (define (ext-listing-row body row)
`(row (cell (with "color" "dark grey" "prog-language" "verbatim" `(row (cell (with "color" "dark grey" "prog-language" "verbatim"
,(number->string (+ row 1)))) ,(number->string (+ row 1))))
(cell (document ,(tm-ref body row))))) (cell (document ,(tm-ref body row)))))
(tm-define (ext-listing body) (tm-define (ext-listing body)
(:secure #t) (:secure #t)
(if (tm-func? body 'document) (if (tm-func? body 'document)
 End of changes. 1 change blocks. 
1 lines changed or deleted 36 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)