Lines Matching +defs:add +defs:style
783 ;; Sometimes you need to change the EBNF style you are using, for example,
790 ;; `ebnf-insert-style' Insert a new style NAME with inheritance INHERITS and
793 ;; `ebnf-delete-style' Delete style NAME.
795 ;; `ebnf-merge-style' Merge values of style NAME with style VALUES.
797 ;; `ebnf-apply-style' Set STYLE as the current style.
799 ;; `ebnf-reset-style' Reset current style.
801 ;; `ebnf-push-style' Push the current style and set STYLE as the current
802 ;; style.
804 ;; `ebnf-pop-style' Pop a style and set it as the current style.
810 ;; There is also a notion of simple inheritance of style: if you declare that
811 ;; style A inherits from style B, all settings of B are applied first and then
813 ;; aspects of an existing style, but at same time wish to keep it unmodified.
815 ;; See documentation for `ebnf-style-database'.
1102 ;; - `ebnf-delete-style', `ebnf-eps-file' and `ebnf-eps-directory'
2418 (defvar ebnf-stack-style nil
2419 "Used in functions `ebnf-reset-style', `ebnf-push-style' and
2420 `ebnf-pop-style'.")
2423 (defvar ebnf-current-style 'default
2424 "Used in functions `ebnf-apply-style' and `ebnf-push-style'.")
2427 (defconst ebnf-style-custom-list
2487 (defvar ebnf-style-database
2583 NAME is a symbol name style.
2585 INHERITS is a symbol name style from which the current style inherits
2588 This is a simple inheritance of style: if you declare that
2589 style A inherits from style B, all settings of B are applied
2591 when you wish to modify some aspects of an existing style, but
2595 See `ebnf-style-custom-list' for valid symbol variables.
2599 See `default' style for an example.
2601 Don't use this variable directly. Use functions `ebnf-insert-style',
2602 `ebnf-delete-style' and `ebnf-merge-style'.")
2611 (defun ebnf-insert-style (name inherits &rest values)
2612 "Insert a new style NAME with inheritance INHERITS and values VALUES.
2614 See `ebnf-style-database' documentation."
2616 (and (assoc name ebnf-style-database)
2618 (or (assoc inherits ebnf-style-database)
2620 (setq ebnf-style-database
2621 (cons (cons name (cons inherits (ebnf-check-style-values values)))
2622 ebnf-style-database)))
2626 (defun ebnf-delete-style (name)
2627 "Delete style NAME.
2629 See `ebnf-style-database' documentation."
2630 (interactive "SDelete style name: ")
2631 (or (assoc name ebnf-style-database)
2633 (let ((db ebnf-style-database))
2636 (error "Style name `%s' is inherited by `%s' style"
2639 (setq ebnf-style-database (assq-delete-all name ebnf-style-database)))
2643 (defun ebnf-merge-style (name &rest values)
2644 "Merge values of style NAME with style VALUES.
2646 See `ebnf-style-database' documentation."
2648 (let ((style (or (assoc name ebnf-style-database)
2650 (merge (ebnf-check-style-values values))
2653 (setq val (nthcdr 2 style))
2662 (nconc style (nreverse new))))
2666 (defun ebnf-apply-style (style)
2667 "Set STYLE as the current style.
2669 Returns the old style symbol.
2671 See `ebnf-style-database' documentation."
2672 (interactive "SApply style: ")
2674 ebnf-current-style
2675 (and (ebnf-apply-style1 style)
2676 (setq ebnf-current-style style))))
2680 (defun ebnf-reset-style (&optional style)
2681 "Reset current style.
2683 Returns the old style symbol.
2685 See `ebnf-style-database' documentation."
2686 (interactive "SReset style: ")
2687 (setq ebnf-stack-style nil)
2688 (ebnf-apply-style (or style 'default)))
2692 (defun ebnf-push-style (&optional style)
2693 "Push the current style onto a stack and set STYLE as the current style.
2695 Returns the old style symbol.
2697 See also `ebnf-pop-style'.
2699 See `ebnf-style-database' documentation."
2700 (interactive "SPush style: ")
2702 ebnf-current-style
2703 (setq ebnf-stack-style (cons ebnf-current-style ebnf-stack-style))
2704 (and style
2705 (ebnf-apply-style style))))
2709 (defun ebnf-pop-style ()
2710 "Pop a style from the stack of pushed styles and set it as the current style.
2712 Returns the old style symbol.
2714 See also `ebnf-push-style'.
2716 See `ebnf-style-database' documentation."
2719 (ebnf-apply-style (car ebnf-stack-style))
2720 (setq ebnf-stack-style (cdr ebnf-stack-style))))
2723 (defun ebnf-apply-style1 (style)
2724 (let ((value (cdr (assoc style ebnf-style-database))))
2732 (defun ebnf-check-style-values (values)
2733 (let (style)
2735 (and (memq (caar values) ebnf-style-custom-list)
2736 (setq style (cons (car values) style)))
2738 (nreverse style)))
2889 /HeightS FontHeight FontHeight add def
2893 /HeightE FontHeight FontHeight add def
2897 /HeightR FontHeight FontHeight add def
2901 /HeightT FontHeight FontHeight add def
2905 /HeightNT FontHeight FontHeight add def
2907 /T HeightT HeightNT add 0.5 mul def
2922 /vm{add moveto}bind def
2925 /hm{3 -1 roll exch add exch moveto}bind def
3194 {T add hT neg}ifelse
3295 dup stringwidth pop space add space add width exch sub ExtraWidth sub 0.5 mul
3309 {xo width add Er add yo moveto
3310 w Er add neg EL
3323 {xo width add Er add yo moveto
3324 hT w sub Er add EL
3337 xx half add YY moveto
3345 xx quarter add YY moveto
3347 0 quarter quarter add neg rlineto
3351 0 quarter quarter add rlineto
3363 Xshadow Xshadow add Xshadow add
3364 Yshadow Yshadow add Yshadow add translate
3381 FontHeight add /YY exch def def
3382 dup stringwidth pop xx add /XX exch def
3384 {/yy yy YShadow add def
3385 /XX XX XShadow add def
3394 /XX XX space add space add def
3395 /YY YY space add def
3443 /BorderWidthT BorderWidthT DefaultWidth add def
3451 /BorderWidthT BorderWidthT DefaultWidth add def
3495 /BorderWidthNT BorderWidthNT DefaultWidth add def
3503 /BorderWidthNT BorderWidthNT DefaultWidth add def
3547 /BorderWidthS BorderWidthS DefaultWidth add def
3555 /BorderWidthS BorderWidthS DefaultWidth add def
3568 /xx c entry add /YY exch def def
3570 /XX xx rwidth add def
3619 exch space add exch moveto
3652 space space add add Descent rmoveto
3678 neg yp add /yw exch def
3679 xp add T sub /xw exch def
3693 /EOPH{add exch moveto}bind def % horizontal
3701 Er add 0 rlineto
3711 {xyo xo add /xw exch def
3728 T Er add EL
3744 ow Er add 0 rmoveto
3745 T Er add neg EL
3747 xo T add yo moveto
3757 Er add EL
3764 yo add xo T add exch moveto
3861 length 12 add dict % Make a new font (a new dict the same size
3905 /OverlinePosition Descent UnderlinePosition sub Ascent add def
3910 /SpaceBackground Descent neg UnderlinePosition add def
3982 -oy- add /-oy- exch def
3983 -ox- add /-ox- exch def
3994 XX XBox add dd add YY YBox add dd add
4008 {currentpoint exch pop add dup
4022 {/xx currentpoint dup Descent add /yy exch def
4023 Ascent add /YY exch def def
4024 dup stringwidth pop xx add /XX exch def
4026 {/yy yy Yshadow add def
4027 /XX XX Xshadow add def
4283 (add-to-list file-list-sym (car prod-list))
5508 (defun ebnf-eps-add-context (name)
5522 (defun ebnf-eps-add-production (header)