"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/dynamic/fold-menu.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.

fold-menu.scm  (TeXmacs-1.99.8-src):fold-menu.scm  (TeXmacs-1.99.9-src)
skipping to change at line 255 skipping to change at line 255
(tm-define (make-screens) (tm-define (make-screens)
(let* ((t (buffer-tree)) (let* ((t (buffer-tree))
(l (tree-children t)) (l (tree-children t))
(p (cursor-inside? t))) (p (cursor-inside? t)))
(if (and (tree-is? t 'document) (if (and (tree-is? t 'document)
(tree-in? t 0 '(hide-preamble show-preamble))) (tree-in? t 0 '(hide-preamble show-preamble)))
(begin (begin
(tree-assign! t `(document ,(tree-ref t 0) (tree-assign! t `(document ,(tree-ref t 0)
(screens (shown (document ,@(cdr l)))))) (screens (shown (document ,@(cdr l))))))
(if (!= (car p) 0) (if (and p (!= (car p) 0))
(apply tree-go-to `(,t 1 0 0 ,(- (car p) 1) ,@(cdr p))))) (apply tree-go-to `(,t 1 0 0 ,(- (car p) 1) ,@(cdr p)))))
(begin (begin
(tree-assign! t `(document (screens (shown (document ,@l))))) (tree-assign! t `(document (screens (shown (document ,@l)))))
(apply tree-go-to `(,t 0 0 0 ,@p)))))) (if p (apply tree-go-to `(,t 0 0 0 ,@p)))))))
(tm-define (remove-single-screens)
(let* ((t (buffer-tree))
(l (tree-children t)))
(when (tree-func? (cAr l) 'screens 1)
(when (tree-func? (tree-ref (cAr l) 0) 'shown 1)
(let* ((d (tree-ref (tree-ref (cAr l) 0) 0))
(b (tree->path t))
(p (cursor-inside? d)))
(when (tree-func? d 'document)
(with q (and (pair? p)
(cons (+ (car p) (length (cDr l))) (cdr p)))
(tree-assign! t `(document ,@(cDr l) ,@(tree-children d)))
(if q (delayed (:idle 1) (go-to-path (append b q)))))))))))
(tm-define (document-propose-screens?) (tm-define (document-propose-screens?)
(and (style-has? "beamer-style") (and (style-has? "beamer-style")
(not (screens-buffer?)))) (not (screens-buffer?))))
(tm-menu (focus-document-extra-menu t) (tm-menu (focus-document-extra-menu t)
(:require (document-propose-screens?)) (:require (document-propose-screens?))
("Screens" (make-switch 'screens))) ("Screens" (make-screens)))
(tm-menu (focus-document-extra-icons t) (tm-menu (focus-document-extra-icons t)
(:require (document-propose-screens?)) (:require (document-propose-screens?))
(minibar (minibar
((balloon "Screens" "Make a multi-slide presentation") ((balloon "Screens" "Make a multi-slide presentation")
(make-screens)))) (make-screens))))
(tm-define (notify-new-style style)
(former style)
(if (style-has? "beamer-style")
(if (not (screens-buffer?)) (make-screens))
(if (screens-buffer?) (remove-single-screens))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Slide titles ;; Slide titles
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tm-define (standard-options l) (tm-define (standard-options l)
(:require (== l 'tit)) (:require (== l 'tit))
(list "framed-title" "title-bar")) (list "framed-title" "title-bar"))
(tm-define (parameter-show-in-menu? l) (tm-define (parameter-show-in-menu? l)
(:require (== l "title-theme")) (:require (== l "title-theme"))
skipping to change at line 421 skipping to change at line 441
(assuming (slide-propose-graphics? t) (assuming (slide-propose-graphics? t)
--- ---
("Draw" (slide-insert-graphics t)))) ("Draw" (slide-insert-graphics t))))
(tm-menu (focus-tag-icons t) (tm-menu (focus-tag-icons t)
(:require (screens-context? t)) (:require (screens-context? t))
(mini #t (inert ((eval (focus-tag-name (tree-label t))) (noop)))) (mini #t (inert ((eval (focus-tag-name (tree-label t))) (noop))))
(=> (balloon (eval (upcase-first (get-init "page-type"))) (=> (balloon (eval (upcase-first (get-init "page-type")))
"Paper size") "Paper size")
(link document-page-size-menu)) (link document-page-size-menu))
(=> (balloon (eval (upcase-first (font-family-main (get-init "font"))))
"Main document font")
(link document-short-font-menu))
(=> (balloon (eval (string-append (get-init "font-base-size") "pt"))
"Font size")
(link document-font-base-size-menu))
(=> (balloon (icon (eval (current-page-icon))) "Page layout") (=> (balloon (icon (eval (current-page-icon))) "Page layout")
(link page-rendering-menu)) (link page-rendering-menu))
(assuming (focus-has-preferences? t) (assuming (focus-has-preferences? t)
(=> (balloon (icon "tm_focus_prefs.xpm") "Preferences for tag") (=> (balloon (icon "tm_focus_prefs.xpm") "Preferences for tag")
(dynamic (focus-preferences-menu t)))) (dynamic (focus-preferences-menu t))))
((balloon (icon "tm_focus_help.xpm") "Describe tag") ((balloon (icon "tm_focus_help.xpm") "Describe tag")
(focus-help))) (focus-help)))
(tm-menu (standard-focus-icons t) (tm-menu (standard-focus-icons t)
(:require (screens-context? t)) (:require (screens-context? t))
 End of changes. 5 change blocks. 
3 lines changed or deleted 29 lines changed or added

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