"Fossies" - the Fresh Open Source Software Archive  

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

document-menu.scm  (TeXmacs-1.99.4-src):document-menu.scm  (TeXmacs-1.99.5-src)
skipping to change at line 37 skipping to change at line 37
(list (url-relative base (tree->string (tree-ref t 0))))) (list (url-relative base (tree->string (tree-ref t 0)))))
(else (list)))) (else (list))))
(tm-define (project-file-list) (tm-define (project-file-list)
(if (project-attached?) (if (project-attached?)
(let* ((prj (project-get)) (let* ((prj (project-get))
(t (buffer->tree prj))) (t (buffer->tree prj)))
(include-list prj t)) (include-list prj t))
(list))) (list)))
(tm-define (project-menu) (tm-define (project-list-menu)
(buffer-list-menu (project-file-list))) (buffer-list-menu (project-file-list)))
(menu-bind project-menu
(if (== (project-get) (current-buffer))
(link preamble-menu)
---)
(link project-list-menu))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Document style ;; Document style
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind document-style-menu (menu-bind document-style-menu
("No style" (set-no-style)) ("No style" (set-no-style))
--- ---
(link style-menu) (link style-menu)
--- ---
("Other style" (interactive set-main-style)) ("Other style" (interactive set-main-style))
skipping to change at line 120 skipping to change at line 126
(if (project-attached?) (if (project-attached?)
--- ---
("Clear local information" (clear-local-info)))) ("Clear local information" (clear-local-info))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The Document -> Font menus ;; The Document -> Font menus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind document-font-menu (menu-bind document-font-menu
(-> "Text font" (-> "Text font"
("Default" (init-default "font")) ("Default" (init-default "font" "math-font" "prg-font"))
--- ---
("Concrete" (init-env "font" "concrete")) ("Concrete" (init-env "font" "concrete"))
(if (url-exists-in-tex? "pnr10.mf") (if (url-exists-in-tex? "pnr10.mf")
("Pandora" (init-env "font" "pandora"))) ("Pandora" (init-env "font" "pandora")))
("Roman" (init-env "font" "roman")) ("Roman" (init-env "font" "roman"))
(if (font-exists-in-tt? "STIX-Regular") (if (font-exists-in-tt? "STIX-Regular")
("Stix" (init-env "font" "stix"))) ("Stix" (init-env "font" "stix")))
--- ---
("Avant Garde" (init-env "font" "avant-garde")) ("Avant Garde" (init-env "font" "avant-garde"))
("Bookman" (init-env "font" "bookman")) ("Bookman" (init-env "font" "bookman"))
("Courier" (init-env "font" "courier")) ("Courier" (init-env "font" "courier"))
("Helvetica" (init-env "font" "helvetica")) ("Helvetica" (init-env "font" "helvetica"))
("N.C. Schoolbook" (init-env "font" "new-century-schoolbook")) ("N.C. Schoolbook" (init-env "font" "new-century-schoolbook"))
("Palatino" (init-env "font" "palatino")) ("Palatino" (init-env "font" "palatino"))
("Times" (init-env "font" "times")) ("Times" (init-env "font" "times"))
--- ---
(if (font-exists-in-tt? "texgyrebonum-regular")
("Bonum" (init-env "font" "bonum")))
(if (font-exists-in-tt? "DejaVuSerif") (if (font-exists-in-tt? "DejaVuSerif")
("Dejavu" (init-env "font" "dejavu"))) ("Dejavu" (init-env "font" "dejavu")))
("Lucida" (init-env "font" "x-lucida")) ("Lucida" (init-env "font" "x-lucida"))
(if (font-exists-in-tt? "luxirr") (if (font-exists-in-tt? "luxirr")
("Luxi" (init-env "font" "luxi"))) ("Luxi" (init-env "font" "luxi")))
(if (font-exists-in-tt? "texgyrepagella-regular") (if (font-exists-in-tt? "texgyrepagella-regular")
("Pagella" (init-env "font" "pagella"))) ("Pagella" (init-env "font" "pagella")))
(if (font-exists-in-tt? "texgyreschola-regular")
("Schola" (init-env "font" "schola")))
(if (font-exists-in-tt? "texgyretermes-regular") (if (font-exists-in-tt? "texgyretermes-regular")
("Termes" (init-env "font" "termes"))) ("Termes" (init-env "font" "termes")))
("Utopia" (init-env "font" "x-utopia")) ("Utopia" (init-env "font" "x-utopia"))
(if (or (supports-chinese?) (if (or (supports-chinese?)
(supports-japanese?) (supports-japanese?)
(supports-korean?)) (supports-korean?))
--- ---
(if (font-exists-in-tt? "Batang") (if (font-exists-in-tt? "Batang")
("Batang" (init-env "font" "batang"))) ("Batang" (init-env "font" "batang")))
(if (font-exists-in-tt? "FandolFang-Regular") (if (font-exists-in-tt? "FandolFang-Regular")
skipping to change at line 223 skipping to change at line 233
(if (font-exists-in-tt? "wqy-zenhei") (if (font-exists-in-tt? "wqy-zenhei")
("ZenHei" (init-env "font" "wqy-zenhei"))))) ("ZenHei" (init-env "font" "wqy-zenhei")))))
(-> "Mathematical font" (-> "Mathematical font"
("Default" (init-default "math-font")) ("Default" (init-default "math-font"))
--- ---
("Adobe" (init-env "math-font" "adobe")) ("Adobe" (init-env "math-font" "adobe"))
(if (font-exists-in-tt? "Apple Symbols") (if (font-exists-in-tt? "Apple Symbols")
("Apple symbols" (init-env "math-font" "math-apple"))) ("Apple symbols" (init-env "math-font" "math-apple")))
(if (font-exists-in-tt? "Asana-Math") (if (font-exists-in-tt? "Asana-Math")
("Asana" (init-env "math-font" "math-asana"))) ("Asana" (init-env "math-font" "math-asana")))
(if (font-exists-in-tt? "texgyrebonum-math")
("Bonum" (init-env "math-font" "math-bonum")))
("Concrete" (init-env "math-font" "concrete")) ("Concrete" (init-env "math-font" "concrete"))
(if (font-exists-in-tt? "DejaVuSerif") (if (font-exists-in-tt? "DejaVuSerif")
("Dejavu" (init-env "math-font" "math-dejavu"))) ("Dejavu" (init-env "math-font" "math-dejavu")))
("Euler new roman" (init-env "math-font" "ENR")) ("Euler new roman" (init-env "math-font" "ENR"))
(if (font-exists-in-tt? "LucidaGrande") (if (font-exists-in-tt? "LucidaGrande")
("Lucida" (init-env "math-font" "math-lucida"))) ("Lucida" (init-env "math-font" "math-lucida")))
(if (font-exists-in-tt? "texgyrepagella-math") (if (font-exists-in-tt? "texgyrepagella-math")
("Pagella" (init-env "math-font" "math-pagella"))) ("Pagella" (init-env "math-font" "math-pagella")))
("Roman" (init-env "math-font" "roman")) ("Roman" (init-env "math-font" "roman"))
(if (font-exists-in-tt? "texgyreschola-math")
("Schola" (init-env "math-font" "math-schola")))
(if (font-exists-in-tt? "STIX-Regular") (if (font-exists-in-tt? "STIX-Regular")
("Stix" (init-env "math-font" "math-stix"))) ("Stix" (init-env "math-font" "math-stix")))
(if (font-exists-in-tt? "texgyretermes-math") (if (font-exists-in-tt? "texgyretermes-math")
("Termes" (init-env "math-font" "math-termes")))) ("Termes" (init-env "math-font" "math-termes"))))
(-> "Program font" (-> "Program font"
("Default" (init-default "prog-font")) ("Default" (init-default "prog-font"))
--- ---
("Concrete" (init-env "prog-font" "concrete")) ("Concrete" (init-env "prog-font" "concrete"))
(if (url-exists-in-tex? "pnr10.mf") (if (url-exists-in-tex? "pnr10.mf")
("Pandora" (init-env "prog-font" "pandora"))) ("Pandora" (init-env "prog-font" "pandora")))
skipping to change at line 346 skipping to change at line 360
("Gulim" (init-env "font" "gulim"))) ("Gulim" (init-env "font" "gulim")))
(if (font-exists-in-tt? "unbatang") (if (font-exists-in-tt? "unbatang")
("Unbatang" (init-env "font" "unbatang")))) ("Unbatang" (init-env "font" "unbatang"))))
(menu-bind document-short-font-menu (menu-bind document-short-font-menu
("Default" (init-default-font)) ("Default" (init-default-font))
--- ---
("Concrete" (init-font "concrete" "concrete")) ("Concrete" (init-font "concrete" "concrete"))
("Roman" (init-font "roman" "roman")) ("Roman" (init-font "roman" "roman"))
("Stix" (init-font "stix" "math-stix")) ("Stix" (init-font "stix" "math-stix"))
--- ;;---
("Avant Garde" (init-env "font" "avant-garde")) ;;("Avant Garde" (init-env "font" "avant-garde"))
("Bookman" (init-env "font" "bookman")) ;;("Bookman" (init-env "font" "bookman"))
("Courier" (init-env "font" "courier")) ;;("Courier" (init-env "font" "courier"))
("Helvetica" (init-env "font" "helvetica")) ;;("Helvetica" (init-env "font" "helvetica"))
("NC Schoolbook" (init-env "font" "new-century-schoolbook")) ;;("NC Schoolbook" (init-env "font" "new-century-schoolbook"))
("Palatino" (init-env "font" "palatino")) ;;("Palatino" (init-env "font" "palatino"))
("Times" (init-env "font" "times")) ;;("Times" (init-env "font" "times"))
(if (or (font-exists-in-tt? "DejaVuSerif") (if (or (font-exists-in-tt? "texgyrebonum-math")
(font-exists-in-tt? "texgyrepagella-math") (font-exists-in-tt? "texgyrepagella-math")
(font-exists-in-tt? "texgyreschola-math")
(font-exists-in-tt? "texgyretermes-math")) (font-exists-in-tt? "texgyretermes-math"))
--- ---
(if (font-exists-in-tt? "DejaVuSerif") (group "TeX Gyre")
("Dejavu" (init-font "dejavu" "math-dejavu"))) (if (font-exists-in-tt? "texgyrebonum-math")
("Bonum" (init-font "bonum" "math-bonum")))
(if (font-exists-in-tt? "texgyrepagella-math") (if (font-exists-in-tt? "texgyrepagella-math")
("Pagella" (init-font "pagella" "math-pagella"))) ("Pagella" (init-font "pagella" "math-pagella")))
(if (font-exists-in-tt? "texgyreschola-math")
("Schola" (init-font "schola" "math-schola")))
(if (font-exists-in-tt? "texgyretermes-math") (if (font-exists-in-tt? "texgyretermes-math")
("Termes" (init-font "termes" "math-termes")))) ("Termes" (init-font "termes" "math-termes"))))
(if (or (font-exists-in-tt? "DejaVuSerif")
(font-exists-in-tt? "LinLibertine_R")
(font-exists-in-tt? "Optima")
(font-exists-in-tt? "Papyrus"))
---
(if (font-exists-in-tt? "AmericanTypewriter")
("American Typewriter" (init-env "font" "American Typewriter")))
(if (font-exists-in-tt? "Baskerville")
("Baskerville" (init-env "font" "Baskerville")))
(if (font-exists-in-tt? "Chalkboard")
("Chalkboard" (init-env "font" "Chalkboard")))
(if (font-exists-in-tt? "Chalkduster")
("Chalkduster" (init-env "font" "Chalkduster")))
(if (font-exists-in-tt? "Cochin")
("Cochin" (init-env "font" "Cochin")))
(if (font-exists-in-tt? "Cuprum-Regular")
("Cuprum" (init-env "font" "Cuprum")))
(if (font-exists-in-tt? "DejaVuSerif")
("Dejavu" (init-font "dejavu" "math-dejavu")))
(if (font-exists-in-tt? "Didot")
("Didot" (init-env "font" "Didot")))
(if (font-exists-in-tt? "Essays1743")
("Essays1743" (init-env "font" "Essays1743")))
(if (font-exists-in-tt? "MarkerFelt")
("Marker Felt" (init-env "font" "Marker Felt")))
(if (font-exists-in-tt? "meyne_textur")
("Meyne Textur" (init-env "font" "Meyne Textur")))
(if (font-exists-in-tt? "LinBiolinum_R")
("Linux Biolinum" (init-env "font" "Linux Biolinum")))
(if (font-exists-in-tt? "LinLibertine_R")
("Linux Libertine" (init-env "font" "Linux Libertine")))
(if (font-exists-in-tt? "Optima")
("Optima" (init-env "font" "Optima")))
(if (font-exists-in-tt? "Papyrus")
("Papyrus" (init-env "font" "Papyrus"))))
(if (and (supports-chinese?) (== (get-init "language") "chinese")) (if (and (supports-chinese?) (== (get-init "language") "chinese"))
--- ---
(link document-short-chinese-font-menu)) (link document-short-chinese-font-menu))
(if (and (supports-japanese?) (== (get-init "language") "japanese")) (if (and (supports-japanese?) (== (get-init "language") "japanese"))
--- ---
(link document-short-japanese-font-menu)) (link document-short-japanese-font-menu))
(if (and (supports-korean?) (== (get-init "language") "korean")) (if (and (supports-korean?) (== (get-init "language") "korean"))
--- ---
(link document-short-korean-font-menu)) (link document-short-korean-font-menu))
(if (and (supports-chinese?) (== (get-init "language") "taiwanese")) (if (and (supports-chinese?) (== (get-init "language") "taiwanese"))
skipping to change at line 394 skipping to change at line 447
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind document-paragraph-menu (menu-bind document-paragraph-menu
(-> "Style" (-> "Style"
("Default" (init-default "par-mode")) ("Default" (init-default "par-mode"))
--- ---
("Justified" (init-env "par-mode" "justify")) ("Justified" (init-env "par-mode" "justify"))
("Left aligned" (init-env "par-mode" "left")) ("Left aligned" (init-env "par-mode" "left"))
("Centered" (init-env "par-mode" "center")) ("Centered" (init-env "par-mode" "center"))
("Right aligned" (init-env "par-mode" "right"))) ("Right aligned" (init-env "par-mode" "right")))
(-> "Hyphenation" (-> "Line breaking"
("Default" (init-default "par-hyphen")) ("Default" (init-default "par-hyphen"))
--- ---
("Normal" (init-env "par-hyphen" "normal")) ("Normal" (init-env "par-hyphen" "normal"))
("Professional" (init-env "par-hyphen" "professional"))) ("Professional" (init-env "par-hyphen" "professional")))
(-> "Margins" (-> "Margins"
("Default" (init-default "par-first")) ("Default" (init-default "par-first"))
--- ---
("First indentation" (init-interactive-env "par-first"))) ("First indentation" (init-interactive-env "par-first")))
(-> "Spacing" (-> "Spacing"
("Default" (init-default "par-sep" "par-line-sep" ("Default" (init-default "par-sep" "par-line-sep"
skipping to change at line 547 skipping to change at line 600
(if (not (style-has? "beamer-style")) (if (not (style-has? "beamer-style"))
(-> "Beamer" (-> "Beamer"
(link document-beamer-page-size-menu))) (link document-beamer-page-size-menu)))
--- ---
("Other" (interactive init-page-size))) ("Other" (interactive init-page-size)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The Document -> Page menu ;; The Document -> Page menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind page-rendering-menu
("Paper" (init-page-rendering "paper"))
("Papyrus" (init-page-rendering "papyrus"))
("Automatic" (init-page-rendering "automatic"))
("Beamer" (init-page-rendering "beamer"))
("Book" (init-page-rendering "book"))
("Panorama" (init-page-rendering "panorama")))
(menu-bind document-page-menu (menu-bind document-page-menu
(-> "Type" (-> "Type"
("Default" (init-default-page-medium)) ("Default" (init-default-page-rendering))
--- ---
("Paper" (init-page-medium "paper")) (link page-rendering-menu))
("Papyrus" (init-page-medium "papyrus"))
("Automatic" (init-page-medium "automatic"))
("Beamer" (init-page-medium "beamer")))
(-> "Size" (-> "Size"
(link document-page-size-menu)) (link document-page-size-menu))
(-> "Orientation" (-> "Orientation"
("Default" (init-default-page-orientation)) ("Default" (init-default-page-orientation))
--- ---
("Portrait" (init-page-orientation "portrait")) ("Portrait" (init-page-orientation "portrait"))
("Landscape" (init-page-orientation "landscape"))) ("Landscape" (init-page-orientation "landscape")))
(-> "Margins" (-> "Margins"
("Default" (init-default "page-width-margin" "page-height-margin" ("Default" (init-default "page-width-margin" "page-height-margin"
"page-odd" "page-even" "page-right" "page-odd" "page-even" "page-right"
skipping to change at line 650 skipping to change at line 708
("1.4" (init-env "magnification" "1.4")) ("1.4" (init-env "magnification" "1.4"))
("1.7" (init-env "magnification" "1.7")) ("1.7" (init-env "magnification" "1.7"))
("2" (init-env "magnification" "2")) ("2" (init-env "magnification" "2"))
--- ---
("Other" (init-interactive-env "magnification"))) ("Other" (init-interactive-env "magnification")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The Document -> Color menu ;; The Document -> Color menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (set-background col)
(init-env-tree "bg-color" col))
(define (set-background-pattern name)
(when (pair? name) (set! name (car name)))
(init-env-tree "bg-color" (tm-pattern name "" "")))
(define (set-background-picture name)
(when (pair? name) (set! name (car name)))
(init-env-tree "bg-color" (tm-pattern name "100%" "100@")))
(menu-bind document-foreground-color-menu (menu-bind document-foreground-color-menu
("Default" (init-default "color")) ("Default" (init-default "color"))
--- ---
(pick-color (init-env "color" answer)) (pick-color (init-env "color" answer))
--- ---
("Palette" (interactive-color ("Palette" (interactive-color
(lambda (col) (init-env "color" col)) '())) (lambda (col) (init-env "color" col)) '()))
("Other" (init-interactive-env "color"))) ("Other" (init-interactive-env "color")))
(menu-bind document-background-color-menu (menu-bind document-background-color-menu
("Default" (init-default "bg-color")) ("Default" (init-default "bg-color"))
--- ---
(pick-background "" (init-env-tree "bg-color" answer)) (pick-background "" (init-env-tree "bg-color" answer))
--- ---
("Palette" (interactive-background ("Palette" (interactive-background set-background '()))
(lambda (col) (init-env "bg-color" col)) '())) ("Pattern" (open-pattern-selector set-background "1cm"))
("Other" (init-interactive-env "bg-color"))) ("Other" (init-interactive-env "bg-color")))
(menu-bind document-colors-menu (menu-bind document-colors-menu
(-> "Background" (link document-background-color-menu)) (-> "Background" (link document-background-color-menu))
(-> "Foreground" (link document-foreground-color-menu))) (-> "Foreground" (link document-foreground-color-menu)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Global and document language ;; Global and document language
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
skipping to change at line 739 skipping to change at line 808
(-> "Style" (link document-style-menu)) (-> "Style" (link document-style-menu))
(link document-style-extra-menu) (link document-style-extra-menu)
;;(-> "Add package" ;;(-> "Add package"
;;(link add-package-menu) ;;(link add-package-menu)
;;--- ;;---
;;("Other" (interactive add-style-package))) ;;("Other" (interactive add-style-package)))
;;(-> "Remove package" ;;(-> "Remove package"
;;(link remove-package-menu) ;;(link remove-package-menu)
;;--- ;;---
;;("Other" (interactive remove-style-package))) ;;("Other" (interactive remove-style-package)))
(if (!= (get-init-tree "sectional-short-style") (tree 'macro "false")) (if (and (not (project-attached?))
(!= (get-init-tree "sectional-short-style") (tree 'macro "false")))
(-> "Part" (link document-part-menu))) (-> "Part" (link document-part-menu)))
(-> "Source" (-> "Source"
("Edit source tree" (toggle-preamble)) ("Edit source tree" (toggle-preamble))
--- ---
(group "Preferences") (group "Preferences")
(link document-source-preferences-menu)) (link document-source-preferences-menu))
(-> "Update" (link document-update-menu)) (-> "Update" (link document-update-menu))
--- ---
(-> "Font" (link document-full-font-menu)) (-> "Font" (link document-full-font-menu))
(-> "Paragraph" (link document-paragraph-menu)) (-> "Paragraph" (link document-paragraph-menu))
skipping to change at line 768 skipping to change at line 838
("Default" (init-default "prog-scripts")) ("Default" (init-default "prog-scripts"))
--- ---
(link supported-scripts-menu)) (link supported-scripts-menu))
(-> "Informative flags" (link document-informative-flags-menu)) (-> "Informative flags" (link document-informative-flags-menu))
(if (== (get-preference "experimental encryption") "on") (if (== (get-preference "experimental encryption") "on")
(-> "Encryption" (link document-encryption-menu)))) (-> "Encryption" (link document-encryption-menu))))
(menu-bind compressed-document-menu (menu-bind compressed-document-menu
(-> "Style" (link document-style-menu)) (-> "Style" (link document-style-menu))
(link document-style-extra-menu) (link document-style-extra-menu)
(if (!= (get-init-tree "sectional-short-style") (tree 'macro "false")) (if (and (not (project-attached?))
(!= (get-init-tree "sectional-short-style") (tree 'macro "false")))
(-> "Part" (link document-part-menu))) (-> "Part" (link document-part-menu)))
(-> "Source" (-> "Source"
("Edit source tree" (toggle-preamble)) ("Edit source tree" (toggle-preamble))
("Preferences" (open-source-tree-preferences))) ("Preferences" (open-source-tree-preferences)))
(-> "Update" (link document-update-menu)) (-> "Update" (link document-update-menu))
--- ---
(if (new-fonts?) (if (new-fonts?)
("Font" (interactive open-document-font-selector))) ("Font" (interactive open-document-font-selector)))
(if (not (new-fonts?)) (if (not (new-fonts?))
(-> "Font" (link document-full-font-menu))) (-> "Font" (link document-full-font-menu)))
skipping to change at line 841 skipping to change at line 912
((== s "2") "Two columns") ((== s "2") "Two columns")
((== s "3") "Three columns") ((== s "3") "Three columns")
(else (string-append s " columns")))) (else (string-append s " columns"))))
(tm-menu (focus-document-menu t) (tm-menu (focus-document-menu t)
(group "Document") (group "Document")
(-> (eval (upcase-first (get-init "page-type"))) (-> (eval (upcase-first (get-init "page-type")))
(link document-page-size-menu)) (link document-page-size-menu))
(-> (eval (string-append (get-init "font-base-size") " pt")) (-> (eval (string-append (get-init "font-base-size") " pt"))
(link document-font-base-size-menu)) (link document-font-base-size-menu))
(-> (eval (upcase-first (get-init-page-rendering)))
(link page-rendering-menu))
(-> (eval (upcase-first (get-init "page-orientation"))) (-> (eval (upcase-first (get-init "page-orientation")))
("Portrait" (init-page-orientation "portrait")) ("Portrait" (init-page-orientation "portrait"))
("Landscape" (init-page-orientation "landscape"))) ("Landscape" (init-page-orientation "landscape")))
(-> (eval (number-columns-text (get-init "par-columns"))) (-> (eval (number-columns-text (get-init "par-columns")))
("One column" (init-env "par-columns" "1")) ("One column" (init-env "par-columns" "1"))
("Two columns" (init-env "par-columns" "2"))) ("Two columns" (init-env "par-columns" "2")))
(if (and (== (get-preference "experimental encryption") "on") (if (and (== (get-preference "experimental encryption") "on")
(!= (get-init "encryption") "")) (!= (get-init "encryption") ""))
(=> (balloon (icon "tm_lock_open.xpm") "Encryption") (=> (balloon (icon "tm_lock_open.xpm") "Encryption")
(link document-encryption-menu))) (link document-encryption-menu)))
(-> (eval (upcase-first (get-init "language"))) (-> (eval (upcase-first (get-init "language")))
(link document-language-menu)) (link document-language-menu))
(-> (eval (upcase-first (get-init "font"))) (-> (eval (upcase-first (font-family-main (get-init "font"))))
(link document-short-font-menu))) (link document-short-font-menu)))
(tm-menu (standard-focus-menu t) (tm-menu (standard-focus-menu t)
(:require (tree-is-buffer? t)) (:require (tree-is-buffer? t))
(dynamic (focus-style-menu t)) (dynamic (focus-style-menu t))
--- ---
(dynamic (focus-document-menu t)) (dynamic (focus-document-menu t))
(dynamic (focus-document-extra-menu t)) (dynamic (focus-document-extra-menu t))
--- ---
("Help" (focus-help))) ("Help" (focus-help)))
skipping to change at line 908 skipping to change at line 981
(else "tm_portrait.xpm"))))) (else "tm_portrait.xpm")))))
(tm-menu (focus-document-icons t) (tm-menu (focus-document-icons t)
(minibar (minibar
(=> (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 (string-append (get-init "font-base-size") "pt")) (=> (balloon (eval (string-append (get-init "font-base-size") "pt"))
"Font size") "Font size")
(link document-font-base-size-menu)) (link document-font-base-size-menu))
(=> (balloon (eval (upcase-first (get-init "font"))) (=> (balloon (eval (upcase-first (font-family-main (get-init "font"))))
"Main document font") "Main document font")
(link document-short-font-menu)) (link document-short-font-menu))
(=> (balloon (icon (eval (current-page-icon))) "Page layout") (=> (balloon (icon (eval (current-page-icon))) "Page layout")
("Portrait" (init-page-orientation "portrait")) ("Portrait" (init-page-orientation "portrait"))
("Landscape" (init-page-orientation "landscape")) ("Landscape" (init-page-orientation "landscape"))
--- ---
("One column" (init-env "par-columns" "1")) ("One column" (init-env "par-columns" "1"))
("Two columns" (init-env "par-columns" "2")) ("Two columns" (init-env "par-columns" "2"))
--- ---
("Paper" (init-page-medium "paper")) (link page-rendering-menu))
("Papyrus" (init-page-medium "papyrus"))
("Automatic" (init-page-medium "automatic"))
("Beamer" (init-page-medium "beamer")))
(if (and (== (get-preference "experimental encryption") "on") (if (and (== (get-preference "experimental encryption") "on")
(!= (get-init "encryption") "")) (!= (get-init "encryption") ""))
(=> (balloon (icon "tm_lock_open.xpm") "Encryption") (=> (balloon (icon "tm_lock_open.xpm") "Encryption")
(link document-encryption-menu))) (link document-encryption-menu)))
(=> (balloon (icon (eval (current-language-icon))) "Document language") (=> (balloon (icon (eval (current-language-icon))) "Document language")
(link document-language-menu)))) (link document-language-menu))))
(tm-menu (standard-focus-icons t) (tm-menu (standard-focus-icons t)
(:require (tree-is-buffer? t)) (:require (tree-is-buffer? t))
(dynamic (focus-style-icons t)) (dynamic (focus-style-icons t))
 End of changes. 24 change blocks. 
29 lines changed or deleted 99 lines changed or added

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