"Fossies" - the Fresh Open Source Software Archive  

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

format-menu.scm  (TeXmacs-1.99.4-src):format-menu.scm  (TeXmacs-1.99.5-src)
skipping to change at line 15 skipping to change at line 15
;; DESCRIPTION : menus for setting local formatting properties ;; DESCRIPTION : menus for setting local formatting properties
;; COPYRIGHT : (C) 1999 Joris van der Hoeven ;; COPYRIGHT : (C) 1999 Joris van der Hoeven
;; ;;
;; 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>.
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(texmacs-module (generic format-menu) (texmacs-module (generic format-menu)
(:use (generic generic-edit) (:use (generic generic-menu)
(generic format-edit) (generic format-edit)
(generic format-geometry-edit))) (generic format-geometry-edit)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Menus for fonts ;; Menus for fonts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind font-size-menu (menu-bind font-size-menu
("5" (make-with "font-base-size" "5")) ("5" (make-with "font-base-size" "5"))
("6" (make-with "font-base-size" "6")) ("6" (make-with "font-base-size" "6"))
skipping to change at line 90 skipping to change at line 90
("Other" (make-interactive-with "color"))) ("Other" (make-interactive-with "color")))
(menu-bind horizontal-space-menu (menu-bind horizontal-space-menu
("Stretchable" (interactive make-hspace)) ("Stretchable" (interactive make-hspace))
("Rigid" (interactive make-space)) ("Rigid" (interactive make-space))
("Rigid box" (interactive make-var-space)) ("Rigid box" (interactive make-var-space))
("Tab" (make-htab "5mm")) ("Tab" (make-htab "5mm"))
("Custom tab" (interactive make-htab))) ("Custom tab" (interactive make-htab)))
(menu-bind adjust-menu (menu-bind adjust-menu
;;("Move" (interactive make-move))
;;("Shift" (interactive make-shift))
("Move" (make-move "" "")) ("Move" (make-move "" ""))
("Shift" (make-shift "" "")) ("Shift" (make-shift "" ""))
--- ---
;;("Resize" (interactive make-resize))
;;("Extend" (interactive make-extend))
;;("Clip" (interactive make-clipped))
("Resize" (make-resize "" "" "" "")) ("Resize" (make-resize "" "" "" ""))
("Extend" (make-extend "" "" "" "")) ("Extend" (make-extend "" "" "" ""))
("Clip" (make-clipped "" "" "" "")) ("Clip" (make-clipped "" "" "" ""))
--- ---
("Smash" (make 'smash)) ("Smash" (make 'smash))
("Reduce" (make-reduce-by "0.5ex")) ("Reduce" (make-reduce-by "0.5ex"))
("Swell" (make 'swell))) ("Swell" (make 'swell)))
(menu-bind linear-transform-menu
("Rotate" (make-with-like `(rotate "45" "")))
("Dilate" (make-with-like `(dilate "1.2" "0.9" "")))
("Skew" (make-with-like `(skew "0.333" "")))
("Linear 2D" (make-with-like `(linear-2d "1.2" "0.2" "0.2" "1.2" ""))))
(menu-bind format-special-menu (menu-bind format-special-menu
("Group" (make-rigid)) ("Group" (make-rigid))
("Phantom" (make 'phantom))
("Superpose" (make 'superpose)) ("Superpose" (make 'superpose))
("Repeat object" (make 'repeat)) ("Repeat object" (make 'repeat))
("Decorate atoms" (make 'datoms 2)) ("Decorate atoms" (make 'datoms 2))
;;("Decorate lines" (make 'dlines 2)) ;;("Decorate lines" (make 'dlines 2))
;;("Decorate pages" (make 'dpages 2)) ;;("Decorate pages" (make 'dpages 2))
) )
(menu-bind transform-menu (menu-bind transform-menu
(link adjust-menu) (link adjust-menu)
--- ---
(link format-special-menu)) (link format-special-menu))
(menu-bind text-font-effects-menu
("Embold" (make 'embold))
("Blackboard embold" (make 'embbb))
("Slanted" (make 'slanted))
---
("Magnify horizontally" (make 'hmagnified))
("Magnify vertically" (make 'vmagnified))
("Condensed" (make 'condensed))
("Extended" (make 'extended))
---
("Degraded" (make 'degraded))
("Distorted" (make 'distorted))
("Gnawed" (make 'gnawed)))
(menu-bind text-effects-menu
("Blur" (make 'blur))
("Outline" (make 'outline))
("Thicken" (make 'thicken))
("Erode" (make 'erode))
---
("Shadow" (make 'shadow))
("Engrave" (make 'engrave))
("Emboss" (make 'emboss))
("Shadowed raise" (make 'shadowed-raise))
("Outlined engrave" (make 'outlined-engrave))
("Outlined emboss" (make 'outlined-emboss))
;;("Burning" (make-effect 'burning))
;;("Bubble" (make-effect 'bubble))
---
("Degrade" (make 'degrade))
("Distort" (make 'distort))
("Gnaw" (make 'gnaw)))
(menu-bind specific-menu (menu-bind specific-menu
("TeXmacs" (make-specific "texmacs")) ("TeXmacs" (make-specific "texmacs"))
("LaTeX" (make-specific "latex")) ("LaTeX" (make-specific "latex"))
("HTML" (make-specific "html")) ("HTML" (make-specific "html"))
("Screen" (make-specific "screen")) ("Screen" (make-specific "screen"))
("Printer" (make-specific "printer")) ("Printer" (make-specific "printer"))
("Image" (make-specific "image")) ("Image" (make-specific "image"))
("Even pages" (make-specific "even")) ("Even pages" (make-specific "even"))
("Odd pages" (make-specific "odd"))) ("Odd pages" (make-specific "odd")))
(menu-bind text-properties-menu (menu-bind text-properties-menu
(-> "Color" (link color-menu)) (-> "Color" (link color-menu))
(if (== (get-preference "experimental alpha") "on") (if (== (get-preference "experimental alpha") "on")
(-> "Opacity" (link opacity-menu))) (-> "Opacity" (link opacity-menu)))
(-> "Space" (link horizontal-space-menu)) (-> "Space" (link horizontal-space-menu))
(-> "Transform" (link transform-menu)) (-> "Transform" (link transform-menu))
(-> "Specific" (link specific-menu))) (-> "Specific" (link specific-menu))
(-> "Font effects" (link text-font-effects-menu))
(assuming (== (get-preference "bitmap effects") "on")
(-> "Graphical effects" (link text-effects-menu))))
(menu-bind textual-properties-menu (menu-bind textual-properties-menu
(-> "Color" (link color-menu)) (-> "Color" (link color-menu))
(if (== (get-preference "experimental alpha") "on") (if (== (get-preference "experimental alpha") "on")
(-> "Opacity" (link opacity-menu))) (-> "Opacity" (link opacity-menu)))
(-> "Space" (link horizontal-space-menu)) (-> "Space" (link horizontal-space-menu))
(-> "Transform" (link transform-menu)) (-> "Transform" (link transform-menu))
(-> "Specific" (link specific-menu))) (-> "Specific" (link specific-menu))
(-> "Font effects" (link text-font-effects-menu))
(assuming (== (get-preference "bitmap effects") "on")
(-> "Graphical effects" (link text-effects-menu))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Pen selection for graphical effects
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (effect-pen-icon t)
(with p (get-effect-pen t)
(if (string? p)
(string-append "tm_pen_" p ".xpm")
"tm_customized.xpm")))
(tm-menu (select-effect-pen-menu t)
("Gaussian" (set-effect-pen t "gaussian"))
("Oval" (set-effect-pen t "oval"))
("Rectangular" (set-effect-pen t "rectangular"))
("Motion" (set-effect-pen t "motion")))
(tm-menu (focus-misc-menu t)
(:require (pen-effect-context? t))
(-> "Effect pen" (dynamic (select-effect-pen-menu t))))
(tm-menu (focus-misc-icons t)
(:require (pen-effect-context? t))
(=> (balloon (icon (eval (effect-pen-icon t))) "Select pen")
(dynamic (select-effect-pen-menu t))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The Paragraph menu and submenus ;; The Paragraph menu and submenus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(menu-bind vertical-space-menu (menu-bind vertical-space-menu
(group "Vertical space before") (group "Vertical space before")
("Small skip" (make-vspace-before "0.5fn")) ("Small skip" (make-vspace-before "0.5fn"))
("Medium skip" (make-vspace-before "1fn")) ("Medium skip" (make-vspace-before "1fn"))
("Big skip" (make-vspace-before "2fn")) ("Big skip" (make-vspace-before "2fn"))
skipping to change at line 195 skipping to change at line 261
("Right margin" (make-interactive-line-with "par-right")) ("Right margin" (make-interactive-line-with "par-right"))
("First indentation" (make-interactive-line-with "par-first")) ("First indentation" (make-interactive-line-with "par-first"))
--- ---
(link indentation-menu)) (link indentation-menu))
(-> "Spacing" (-> "Spacing"
("Interline separation" (make-interactive-line-with "par-sep")) ("Interline separation" (make-interactive-line-with "par-sep"))
("Interline space" (make-interactive-line-with "par-line-sep")) ("Interline space" (make-interactive-line-with "par-line-sep"))
("Interparagraph space" (make-interactive-line-with "par-par-sep")) ("Interparagraph space" (make-interactive-line-with "par-par-sep"))
--- ---
(link vertical-space-menu)) (link vertical-space-menu))
(-> "Hyphenation" (-> "Line breaking"
("Normal" (make-line-with "par-hyphen" "normal")) ("Normal" (make-line-with "par-hyphen" "normal"))
("Professional" ("Professional"
(make-line-with "par-hyphen" "professional")) (make-line-with "par-hyphen" "professional"))
--- ---
(link line-break-menu)) (link line-break-menu))
(-> "Number of columns" (-> "Number of columns"
("1" (make-line-with "par-columns" "1")) ("1" (make-line-with "par-columns" "1"))
("2" (make-line-with "par-columns" "2")) ("2" (make-line-with "par-columns" "2"))
("3" (make-line-with "par-columns" "3")))) ("3" (make-line-with "par-columns" "3"))))
 End of changes. 9 change blocks. 
9 lines changed or deleted 75 lines changed or added

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