diff options
-rw-r--r-- | lib/maths-menu.el | 466 |
1 files changed, 233 insertions, 233 deletions
diff --git a/lib/maths-menu.el b/lib/maths-menu.el index ef40535c..edfb1b85 100644 --- a/lib/maths-menu.el +++ b/lib/maths-menu.el @@ -53,8 +53,8 @@ (define-key-after map (vector (intern name)) (cons name pane-map)) (dolist (elt pane) (define-key-after pane-map - (vector (intern (car elt))) ; convenient unique symbol - (cons (format "%s (%s)" (car elt) (cadr elt)) + (vector (intern (string (car elt)))) ; convenient unique symbol + (cons (format "%c (%s)" (car elt) (cadr elt)) ;; Using a string here doesn't work. You get a ;; `Wrong type argument: commandp,' error. ;; That looks like a bug, since @@ -67,247 +67,247 @@ (defvar maths-menu-menu (maths-menu-build-menu '(("Binops 1" - (",A1(B" "plus-minus sign") - ("$,1x3(B" "minus-or-plus sign") - (",AW(B" "multiplication sign") - (",Aw(B" "division sign") - ("$,1x2(B" "minus sign") - ("$,1x7(B" "asterisk operator") - ("$,1z&(B" "star operator") - ("$,2"+(B" "white circle") - ("$,1s"(B" "bullet") - (",A7(B" "middle dot") - ("$,1xI(B" "intersection") - ("$,1xJ(B" "union") - ("$,1yN(B" "multiset union") - ("$,1yS(B" "square cap") - ("$,1yT(B" "square cup") - ("$,1xH(B" "logical or") - ("$,1xG(B" "logical and") - ("$,1x6(B" "set minus") - ("$,1x`(B" "wreath product")) + (?,A1(B "plus-minus sign") + (?$,1x3(B "minus-or-plus sign") + (?,AW(B "multiplication sign") + (?,Aw(B "division sign") + (?$,1x2(B "minus sign") + (?$,1x7(B "asterisk operator") + (?$,1z&(B "star operator") + (?$,2"+(B "white circle") + (?$,1s"(B "bullet") + (?,A7(B "middle dot") + (?$,1xI(B "intersection") + (?$,1xJ(B "union") + (?$,1yN(B "multiset union") + (?$,1yS(B "square cap") + (?$,1yT(B "square cup") + (?$,1xH(B "logical or") + (?$,1xG(B "logical and") + (?$,1x6(B "set minus") + (?$,1x`(B "wreath product")) ("Binops 2" - ("$,1z$(B" "diamond operator") - ("$,2!s(B" "white up-pointing triangle") - ("$,2!}(B" "white down-pointing triangle") - ("$,2"#(B" "white left-pointing small triangle") - ("$,2!y(B" "white right-pointing small triangle") - ("$,2"!(B" "white left-pointing triangle") - ("$,2!w(B" "white right-pointing triangle") - ("$,1yU(B" "circled plus") - ("$,1yV(B" "circled minus") - ("$,1yW(B" "circled times") - ("$,1yX(B" "circled division slash") - ("$,1yY(B" "circled dot operator") - ("$,2"O(B" "large circle") - ("$,1s (B" "dagger") - ("$,1s!(B" "double dagger") - ("$,1yt(B" "normal subgroup of or equal to") - ("$,1yu(B" "contains as normal subgroup or equal to")) + (?$,1z$(B "diamond operator") + (?$,2!s(B "white up-pointing triangle") + (?$,2!}(B "white down-pointing triangle") + (?$,2"#(B "white left-pointing small triangle") + (?$,2!y(B "white right-pointing small triangle") + (?$,2"!(B "white left-pointing triangle") + (?$,2!w(B "white right-pointing triangle") + (?$,1yU(B "circled plus") + (?$,1yV(B "circled minus") + (?$,1yW(B "circled times") + (?$,1yX(B "circled division slash") + (?$,1yY(B "circled dot operator") + (?$,2"O(B "large circle") + (?$,1s (B "dagger") + (?$,1s!(B "double dagger") + (?$,1yt(B "normal subgroup of or equal to") + (?$,1yu(B "contains as normal subgroup or equal to")) ("Relations 1" - ("$,1y$(B" "less-than or equal to") - ("$,1y:(B" "precedes") - ("$,1y*(B" "much less-than") - ("$,1yB(B" "subset of") - ("$,1yF(B" "subset of or equal to") - ("$,1yO(B" "square image of") - ("$,1yQ(B" "square image of or equal to") - ("$,1x((B" "element of") - ("$,1x)(B" "not an element of") - ("$,1yb(B" "right tack") - ("$,1y%(B" "greater-than or equal to") - ("$,1y;(B" "succeeds") - ("$,1y=(B" "succeeds or equal to") - ("$,1y+(B" "much greater-than") - ("$,1yC(B" "superset of") - ("$,1yG(B" "superset of or equal to") - ("$,1yP(B" "square original of") - ("$,1yR(B" "square original of or equal to") - ("$,1x+(B" "contains as member") - ("$,1y!(B" "identical to") - ("$,1y"(B" "not identical to") ) + (?$,1y$(B "less-than or equal to") + (?$,1y:(B "precedes") + (?$,1y*(B "much less-than") + (?$,1yB(B "subset of") + (?$,1yF(B "subset of or equal to") + (?$,1yO(B "square image of") + (?$,1yQ(B "square image of or equal to") + (?$,1x((B "element of") + (?$,1x)(B "not an element of") + (?$,1yb(B "right tack") + (?$,1y%(B "greater-than or equal to") + (?$,1y;(B "succeeds") + (?$,1y=(B "succeeds or equal to") + (?$,1y+(B "much greater-than") + (?$,1yC(B "superset of") + (?$,1yG(B "superset of or equal to") + (?$,1yP(B "square original of") + (?$,1yR(B "square original of or equal to") + (?$,1x+(B "contains as member") + (?$,1y!(B "identical to") + (?$,1y"(B "not identical to") ) ("Relations 2" - ("$,1yc(B" "left tack") - ("$,1x\(B" "tilde operator") - ("$,1xc(B" "asymptotically equal to") - ("$,1xm(B" "equivalent to") - ("$,1xh(B" "almost equal to") - ("$,1xe(B" "approximately equal to") - ("$,1y (B" "not equal to") - ("$,1xp(B" "approaches the limit") - ("$,1x=(B" "proportional to") - ("$,1yg(B" "models") - ("$,1xC(B" "divides") - ("$,1xE(B" "parallel to") - ("$,1z((B" "bowtie") - ("$,1z((B" "bowtie") - ("$,1{#(B" "smile") - ("$,1{"(B" "frown") - ("$,1xy(B" "estimates") - ("$,1z_(B" "z notation bag membership")) + (?$,1yc(B "left tack") + (?$,1x\(B "tilde operator") + (?$,1xc(B "asymptotically equal to") + (?$,1xm(B "equivalent to") + (?$,1xh(B "almost equal to") + (?$,1xe(B "approximately equal to") + (?$,1y (B "not equal to") + (?$,1xp(B "approaches the limit") + (?$,1x=(B "proportional to") + (?$,1yg(B "models") + (?$,1xC(B "divides") + (?$,1xE(B "parallel to") + (?$,1z((B "bowtie") + (?$,1z((B "bowtie") + (?$,1{#(B "smile") + (?$,1{"(B "frown") + (?$,1xy(B "estimates") + (?$,1z_(B "z notation bag membership")) ("Arrows" - ("$,1vp(B" "leftwards arrow") - ("$,1wP(B" "leftwards double arrow") - ("$,1vr(B" "rightwards arrow") - ("$,1wR(B" "rightwards double arrow") - ("$,1vt(B" "left right arrow") - ("$,1wT(B" "left right double arrow") - ("$,1w&(B" "rightwards arrow from bar") - ("$,1w)(B" "leftwards arrow with hook") - ("$,1w<(B" "leftwards harpoon with barb upwards") - ("$,1w=(B" "leftwards harpoon with barb downwards") - ("$,1wL(B" "rightwards harpoon over leftwards harpoon") - ("$,1w&(B" "rightwards arrow from bar") - ("$,1w*(B" "rightwards arrow with hook") - ("$,1w@(B" "rightwards harpoon with barb upwards") - ("$,1wA(B" "rightwards harpoon with barb downwards") - ("$,1v}(B" "rightwards wave arrow") - ("$,1vq(B" "upwards arrow") - ("$,1wQ(B" "upwards double arrow") - ("$,1vs(B" "downwards arrow") - ("$,1wS(B" "downwards double arrow") - ("$,1vu(B" "up down arrow") - ("$,1vw(B" "north east arrow") - ("$,1vx(B" "south east arrow") - ("$,1vy(B" "south west arrow") - ("$,1vv(B" "north west arrow") - ("$,1w[(B" "rightwards triple arrow")) + (?$,1vp(B "leftwards arrow") + (?$,1wP(B "leftwards double arrow") + (?$,1vr(B "rightwards arrow") + (?$,1wR(B "rightwards double arrow") + (?$,1vt(B "left right arrow") + (?$,1wT(B "left right double arrow") + (?$,1w&(B "rightwards arrow from bar") + (?$,1w)(B "leftwards arrow with hook") + (?$,1w<(B "leftwards harpoon with barb upwards") + (?$,1w=(B "leftwards harpoon with barb downwards") + (?$,1wL(B "rightwards harpoon over leftwards harpoon") + (?$,1w&(B "rightwards arrow from bar") + (?$,1w*(B "rightwards arrow with hook") + (?$,1w@(B "rightwards harpoon with barb upwards") + (?$,1wA(B "rightwards harpoon with barb downwards") + (?$,1v}(B "rightwards wave arrow") + (?$,1vq(B "upwards arrow") + (?$,1wQ(B "upwards double arrow") + (?$,1vs(B "downwards arrow") + (?$,1wS(B "downwards double arrow") + (?$,1vu(B "up down arrow") + (?$,1vw(B "north east arrow") + (?$,1vx(B "south east arrow") + (?$,1vy(B "south west arrow") + (?$,1vv(B "north west arrow") + (?$,1w[(B "rightwards triple arrow")) ("Symbols 1" - ("$,1uu(B" "alef symbol") ; don't use letter alef (avoid bidi confusion) - ("$,1uO(B" "planck constant over two pi") - ("$,1 Q(B" "latin small letter dotless i") - ("$,1uS(B" "script small l") - ("$,1uX(B" "script capital p") - ("$,1u\(B" "black-letter capital r") - ("$,1uQ(B" "black-letter capital i") - ("$,1ug(B" "inverted ohm sign") - ("$,1s2(B" "prime") - ("$,1x%(B" "empty set") - ("$,1x'(B" "nabla") - ("$,1x:(B" "square root") - ("$,1x;(B" "cube root") - ("$,1yd(B" "down tack") - ("$,1ye(B" "up tack") - ("$,1x@(B" "angle") - ("$,1x (B" "for all") - ("$,1x#(B" "there exists") - ("$,1x$(B" "there does not exist") - (",A,(B" "not sign") - ("$,2#o(B" "music sharp sign") - ("$,1x"(B" "partial differential") - ("$,1x>(B" "infinity") ) + (?$,1uu(B "alef symbol") ; don't use letter alef (avoid bidi confusion) + (?$,1uO(B "planck constant over two pi") + (?$,1 Q(B "latin small letter dotless i") + (?$,1uS(B "script small l") + (?$,1uX(B "script capital p") + (?$,1u\(B "black-letter capital r") + (?$,1uQ(B "black-letter capital i") + (?$,1ug(B "inverted ohm sign") + (?$,1s2(B "prime") + (?$,1x%(B "empty set") + (?$,1x'(B "nabla") + (?$,1x:(B "square root") + (?$,1x;(B "cube root") + (?$,1yd(B "down tack") + (?$,1ye(B "up tack") + (?$,1x@(B "angle") + (?$,1x (B "for all") + (?$,1x#(B "there exists") + (?$,1x$(B "there does not exist") + (?,A,(B "not sign") + (?$,2#o(B "music sharp sign") + (?$,1x"(B "partial differential") + (?$,1x>(B "infinity") ) ("Symbols 2" - ("$,2!a(B" "white square") - ("$,2"'(B" "white diamond") - ("$,2!u(B" "white up-pointing small triangle") - ("$,1x1(B" "n-ary summation") - ("$,1x/(B" "n-ary product") - ("$,1x0(B" "n-ary coproduct") - ("$,1xK(B" "integral") - ("$,1xN(B" "contour integral") - ("$,1z"(B" "n-ary intersection") - ("$,1z#(B" "n-ary union") - ("$,1z!(B" "n-ary logical or") - ("$,1z (B" "n-ary logical and") - ("$,1uU(B" "double-struck capital n") - ("$,1uY(B" "double-struck capital p") - ("$,1u](B" "double-struck capital r") - ("$,1ud(B" "double-struck capital z") - ("$,1uP(B" "script capital i") - ("$,1![(B" "latin small letter lambda with stroke") - ("$,1xT(B" "therefore") - ("$,1s&(B" "horizontal ellipsis") - ("$,1zO(B" "midline horizontal ellipsis") - ("$,1zN(B" "vertical ellipsis") - ("$,1zQ(B" "down right diagonal ellipsis") - ("$,1zP(B" "up right diagonal ellipsis") - ("$,2,!(B" "z notation spot") - ("$,2,"(B" "z notation type colon")) + (?$,2!a(B "white square") + (?$,2"'(B "white diamond") + (?$,2!u(B "white up-pointing small triangle") + (?$,1x1(B "n-ary summation") + (?$,1x/(B "n-ary product") + (?$,1x0(B "n-ary coproduct") + (?$,1xK(B "integral") + (?$,1xN(B "contour integral") + (?$,1z"(B "n-ary intersection") + (?$,1z#(B "n-ary union") + (?$,1z!(B "n-ary logical or") + (?$,1z (B "n-ary logical and") + (?$,1uU(B "double-struck capital n") + (?$,1uY(B "double-struck capital p") + (?$,1u](B "double-struck capital r") + (?$,1ud(B "double-struck capital z") + (?$,1uP(B "script capital i") + (?$,1![(B "latin small letter lambda with stroke") + (?$,1xT(B "therefore") + (?$,1s&(B "horizontal ellipsis") + (?$,1zO(B "midline horizontal ellipsis") + (?$,1zN(B "vertical ellipsis") + (?$,1zQ(B "down right diagonal ellipsis") + (?$,1zP(B "up right diagonal ellipsis") + (?$,2,!(B "z notation spot") + (?$,2,"(B "z notation type colon")) ("Delimiters" - ("$,1zj(B" "left floor") - ("$,1zh(B" "left ceiling") - ("$,1{)(B" "left-pointing angle bracket") - ("$,1zk(B" "right floor") - ("$,1zi(B" "right ceiling") - ("$,1{*(B" "right-pointing angle bracket") - ("$,2=Z(B" "left white square bracket") - ("$,2=[(B" "right white square bracket") - ("$,2=J(B" "left double angle bracket") - ("$,2=K(B" "right double angle bracket") - ("$,2,'(B" "z notation left image bracket") - ("$,2,((B" "z notation right image bracket") - ("$,2,)(B" "z notation left binding bracket") - ("$,2,*(B" "z notation right binding bracket")) + (?\$,1zj(B "left floor") + (?\$,1zh(B "left ceiling") + (?\$,1{)(B "left-pointing angle bracket") + (?\$,1zk(B "right floor") + (?\$,1zi(B "right ceiling") + (?\$,1{*(B "right-pointing angle bracket") + (?\$,2=Z(B "left white square bracket") + (?\$,2=[(B "right white square bracket") + (?\$,2=J(B "left double angle bracket") + (?\$,2=K(B "right double angle bracket") + (?\$,2,'(B "z notation left image bracket") + (?\$,2,((B "z notation right image bracket") + (?\$,2,)(B "z notation left binding bracket") + (?\$,2,*(B "z notation right binding bracket")) ("Greek LC" - ("$,1'1(B" "alpha") - ("$,1'2(B" "beta") - ("$,1'3(B" "gamma") - ("$,1'4(B" "delta") - ("$,1'5(B" "epsilon") - ("$,1'6(B" "zeta") - ("$,1'7(B" "eta") - ("$,1'8(B" "theta") - ("$,1'Q(B" "theta symbol") - ("$,1'9(B" "iota") - ("$,1':(B" "kappa") - ("$,1';(B" "lamda") - ("$,1'<(B" "mu") - ("$,1'=(B" "nu") - ("$,1'>(B" "xi") - ("$,1'@(B" "pi") - ("$,1'V(B" "pi symbol") - ("$,1'A(B" "rho") - ("$,1'q(B" "rho symbol") - ("$,1'C(B" "sigma") - ("$,1'B(B" "final sigma") - ("$,1'D(B" "tau") - ("$,1'E(B" "upsilon") - ("$,1'F(B" "phi") - ("$,1'U(B" "phi symbol") - ("$,1'G(B" "chi") - ("$,1'H(B" "psi") - ("$,1'I(B" "omega")) + (?$,1'1(B "alpha") + (?$,1'2(B "beta") + (?$,1'3(B "gamma") + (?$,1'4(B "delta") + (?$,1'5(B "epsilon") + (?$,1'6(B "zeta") + (?$,1'7(B "eta") + (?$,1'8(B "theta") + (?$,1'Q(B "theta symbol") + (?$,1'9(B "iota") + (?$,1':(B "kappa") + (?$,1';(B "lamda") + (?$,1'<(B "mu") + (?$,1'=(B "nu") + (?$,1'>(B "xi") + (?$,1'@(B "pi") + (?$,1'V(B "pi symbol") + (?$,1'A(B "rho") + (?$,1'q(B "rho symbol") + (?$,1'C(B "sigma") + (?$,1'B(B "final sigma") + (?$,1'D(B "tau") + (?$,1'E(B "upsilon") + (?$,1'F(B "phi") + (?$,1'U(B "phi symbol") + (?$,1'G(B "chi") + (?$,1'H(B "psi") + (?$,1'I(B "omega")) ("Greek UC" - ("$,1&s(B" "Gamma") - ("$,1&t(B" "Delta") - ("$,1&x(B" "Theta") - ("$,1&{(B" "Lamda") - ("$,1&~(B" "Xi") - ("$,1' (B" "Pi") - ("$,1'#(B" "Sigma") - ("$,1'%(B" "Upsilon") - ("$,1'&(B" "Phi") - ("$,1'((B" "Psi") - ("$,1')(B" "Omega")) + (?$,1&s(B "Gamma") + (?$,1&t(B "Delta") + (?$,1&x(B "Theta") + (?$,1&{(B "Lamda") + (?$,1&~(B "Xi") + (?$,1' (B "Pi") + (?$,1'#(B "Sigma") + (?$,1'%(B "Upsilon") + (?$,1'&(B "Phi") + (?$,1'((B "Psi") + (?$,1')(B "Omega")) ("Sub/super" - ("$,1s}(B" "superscript left parenthesis") - ("$,1s~(B" "superscript right parenthesis") - ("$,1sz(B" "superscript plus sign") - ("$,1s{(B" "superscript minus") - ("$,1sp(B" "superscript zero") - (",A9(B" "superscript one") - (",A2(B" "superscript two") - (",A3(B" "superscript three") - ("$,1st(B" "superscript four") - ("$,1su(B" "superscript five") - ("$,1sv(B" "superscript six") - ("$,1sw(B" "superscript seven") - ("$,1sx(B" "superscript eight") - ("$,1sy(B" "superscript nine") - ("$,1t-(B" "subscript left parenthesis") - ("$,1t.(B" "subscript right parenthesis") - ("$,1t*(B" "subscript plus sign") - ("$,1t+(B" "subscript minus") - ("$,1t (B" "subscript zero") - ("$,1t!(B" "subscript one") - ("$,1t"(B" "subscript two") - ("$,1t#(B" "subscript three") - ("$,1t$(B" "subscript four") - ("$,1t%(B" "subscript five") - ("$,1t&(B" "subscript six") - ("$,1t'(B" "subscript seven") - ("$,1t((B" "subscript eight") - ("$,1t)(B" "subscript nine"))))) + (?$,1s}(B "superscript left parenthesis") + (?$,1s~(B "superscript right parenthesis") + (?$,1sz(B "superscript plus sign") + (?$,1s{(B "superscript minus") + (?$,1sp(B "superscript zero") + (?,A9(B "superscript one") + (?,A2(B "superscript two") + (?,A3(B "superscript three") + (?$,1st(B "superscript four") + (?$,1su(B "superscript five") + (?$,1sv(B "superscript six") + (?$,1sw(B "superscript seven") + (?$,1sx(B "superscript eight") + (?$,1sy(B "superscript nine") + (?$,1t-(B "subscript left parenthesis") + (?$,1t.(B "subscript right parenthesis") + (?$,1t*(B "subscript plus sign") + (?$,1t+(B "subscript minus") + (?$,1t (B "subscript zero") + (?$,1t!(B "subscript one") + (?$,1t"(B "subscript two") + (?$,1t#(B "subscript three") + (?$,1t$(B "subscript four") + (?$,1t%(B "subscript five") + (?$,1t&(B "subscript six") + (?$,1t'(B "subscript seven") + (?$,1t((B "subscript eight") + (?$,1t)(B "subscript nine"))))) (defvar maths-menu-mode-map (let ((map (make-sparse-keymap))) |