diff options
| -rw-r--r-- | isa/interface | 9 | ||||
| -rw-r--r-- | isa/interface-setup.el | 7 | ||||
| -rw-r--r-- | isar/interface | 9 | ||||
| -rw-r--r-- | isar/interface-setup.el | 7 |
4 files changed, 30 insertions, 2 deletions
diff --git a/isa/interface b/isa/interface index 85df81c1..24e48753 100644 --- a/isa/interface +++ b/isa/interface @@ -19,6 +19,7 @@ function usage() echo " -p NAME Emacs program name (default xemacs)" echo " -u BOOL use .emacs file (default true)" echo " -w BOOL use window system (default true)" + echo " -x BOOL enable x-symbol package" echo echo "Starts Proof General for Isabelle/classic with proof documents FILES" echo "(default Scratch.thy)." @@ -46,11 +47,12 @@ LOGIC="$ISABELLE_LOGIC" PROGNAME="xemacs" INITFILE="true" WINDOWSYSTEM="true" +XSYMBOL="" function getoptions() { OPTIND=1 - while getopts "l:p:u:w:" OPT + while getopts "l:p:u:w:x:" OPT do case "$OPT" in l) @@ -65,6 +67,9 @@ function getoptions() w) WINDOWSYSTEM="$OPTARG" ;; + x) + XSYMBOL="$OPTARG" + ;; \?) usage ;; @@ -110,4 +115,6 @@ done export PROOFGENERAL_ASSISTANTS=isa export PROOFGENERAL_LOGIC="$LOGIC" +export PROOFGENERAL_XSYMBOL="$XSYMBOL" + exec $PROGNAME $ARGS $FILES diff --git a/isa/interface-setup.el b/isa/interface-setup.el index f5ee2c51..0a3f6b80 100644 --- a/isa/interface-setup.el +++ b/isa/interface-setup.el @@ -10,3 +10,10 @@ (customize-set-variable 'proof-shell-pre-interrupt-hook (lambda () (proof-shell-insert "f" nil)))) + +(let ((xsym (getenv "PROOFGENERAL_XSYMBOL"))) + (cond + ((equal xsym "true") + (customize-set-variable 'proof-x-symbol-enable t)) + ((equal xsym "false") + (customize-set-variable 'proof-x-symbol-enable nil)))) diff --git a/isar/interface b/isar/interface index a62df5ca..38adfa7a 100644 --- a/isar/interface +++ b/isar/interface @@ -19,6 +19,7 @@ function usage() echo " -p NAME Emacs program name (default xemacs)" echo " -u BOOL use .emacs file (default true)" echo " -w BOOL use window system (default true)" + echo " -x BOOL enable x-symbol package" echo echo "Starts Proof General for Isabelle/Isar with proof documents FILES" echo "(default Scratch.thy)." @@ -46,11 +47,12 @@ LOGIC="$ISABELLE_LOGIC" PROGNAME="xemacs" INITFILE="true" WINDOWSYSTEM="true" +XSYMBOL="" function getoptions() { OPTIND=1 - while getopts "l:p:u:w:" OPT + while getopts "l:p:u:w:x:" OPT do case "$OPT" in l) @@ -65,6 +67,9 @@ function getoptions() w) WINDOWSYSTEM="$OPTARG" ;; + x) + XSYMBOL="$OPTARG" + ;; \?) usage ;; @@ -110,4 +115,6 @@ done export PROOFGENERAL_ASSISTANTS=isar export PROOFGENERAL_LOGIC="$LOGIC" +export PROOFGENERAL_XSYMBOL="$XSYMBOL" + exec $PROGNAME $ARGS $FILES diff --git a/isar/interface-setup.el b/isar/interface-setup.el index 736cda57..76f4f09e 100644 --- a/isar/interface-setup.el +++ b/isar/interface-setup.el @@ -10,3 +10,10 @@ (customize-set-variable 'proof-shell-pre-interrupt-hook (lambda () (proof-shell-insert (isar-verbatim "f") nil)))) + +(let ((xsym (getenv "PROOFGENERAL_XSYMBOL"))) + (cond + ((equal xsym "true") + (customize-set-variable 'proof-x-symbol-enable t)) + ((equal xsym "false") + (customize-set-variable 'proof-x-symbol-enable nil)))) |