[BACK]Return to use-asir-mode.sh CVS log [TXT][DIR] Up to [local] / OpenXM / src / asir-mode

File: [local] / OpenXM / src / asir-mode / use-asir-mode.sh (download)

Revision 1.4, Mon Sep 30 02:42:57 2019 UTC (4 years, 7 months ago) by takayama
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +2 -2 lines

make install-emacs-asir-on-mac
installs emacs/asir on MacOS X.  cfep/asir cannot be used on new MacOS's in lectures because of the new security policy of Mac.
I'm going to use emacs/asir instead.

#!/bin/sh
# $OpenXM: OpenXM/src/asir-mode/use-asir-mode.sh,v 1.4 2019/09/30 02:42:57 takayama Exp $

_ok_local() {
	echo "------------------------------------------------------------------"
	echo "This script install $OpenXM_HOME/share/emacs/asir-mode.el"
    echo "to your .emacs.d and modify your .emacs.d/init.el to enable asir-mode.el"
	echo -n "y: go ahead, n: stop  : "
    read ans
	if [ $ans = "y" ]; then
		return
	fi
	if [ $ans = "n" ]; then
		echo "Aborting use-asir-mode.sh" ; \
		exit 
    fi
}

_install_local() {
	mkdir -p $HOME/.emacs.d/OpenXM
	sed -e 's/(insert "asir")/(insert "openxm asir")/g' $OpenXM_HOME/share/emacs/asir-mode.el >$HOME/.emacs.d/OpenXM/asir-mode.el
	cat $OpenXM_HOME/share/emacs/use-asir-mode-local.txt >>$HOME/.emacs.d/init.el
}

_check() {
    if [ -f $HOME/.emacs ]; then
	grep 'emacs\.d/init\.el' $HOME/.emacs ;
	if [ $? -eq 0 ]; then
	    echo "OK ...";
	else
	    echo "Warning! init.el is not loaded from .emacs. Check if you load init.el";
	    echo "  Example:  Add the following line ";
	    echo "       (load \"~/.emacs.d/init.el\") ";
	    echo "  to $HOME/.emacs";
        fi
    fi
}

_install() {
	cat $OpenXM_HOME/share/emacs/use-asir-mode-local.txt >>$HOME/.emacs.d/init.el
}
_check ;
if [ $# = 0 ]; then
	echo "Usage: use-asir-mode.sh --local" ; \
	echo "       use-asir-mode.sh --local-yes" ; \
	echo "       --use-site-lisp has not been implemented." ; \
fi

if [ $# = 1 ]; then
if [ $1 = "--local" ]; then
 _ok_local ; \
 _install_local ; \
fi
if [ $1 = "--local-yes" ]; then
 _install_local ; \
fi
fi