summaryrefslogtreecommitdiff
path: root/japanese/dserver/files/setup.sh.standalone
diff options
context:
space:
mode:
Diffstat (limited to 'japanese/dserver/files/setup.sh.standalone')
-rw-r--r--japanese/dserver/files/setup.sh.standalone66
1 files changed, 0 insertions, 66 deletions
diff --git a/japanese/dserver/files/setup.sh.standalone b/japanese/dserver/files/setup.sh.standalone
index 2798d868cc01..51dfe5d08ccc 100644
--- a/japanese/dserver/files/setup.sh.standalone
+++ b/japanese/dserver/files/setup.sh.standalone
@@ -66,71 +66,5 @@ case x${ans} in
echo "dserver.sh is added to PREFIX_DIR/etc/rc.d/"
esac
-# Hack PREFIX_DIR/lib/mule/site-lisp/site-start.el
-rm -f /tmp/hack-site-start.el
-echo "(defun hack-site-start ()" >> /tmp/hack-site-start.el
-echo " (interactive)" >> /tmp/hack-site-start.el
-echo " (message \"Updating site-start.el. \")" >> /tmp/hack-site-start.el
-echo " (let* ((args command-line-args-left)" >> /tmp/hack-site-start.el
-echo " (fname (expand-file-name (nth 0 args)))" >> /tmp/hack-site-start.el
-echo " (dir (nth 1 args)))" >> /tmp/hack-site-start.el
-echo " (setq command-line-args-left (cdr (cdr command-line-args-left)))" >> /tmp/hack-site-start.el
-echo " (set-buffer (get-buffer-create \" *x*\"))" >> /tmp/hack-site-start.el
-echo " (erase-buffer)" >> /tmp/hack-site-start.el
-echo " (if (file-exists-p fname)" >> /tmp/hack-site-start.el
-echo " (insert-file-contents fname))" >> /tmp/hack-site-start.el
-echo " (goto-char (point-min))" >> /tmp/hack-site-start.el
-echo " (if (search-forward \";;; diclookup-mule: Online dictionary\" nil t)" >> /tmp/hack-site-start.el
-echo " (message \"No changes made.\")" >> /tmp/hack-site-start.el
-echo " (goto-char (point-max))" >> /tmp/hack-site-start.el
-echo " (insert \"\n;;; diclookup-mule: Online dictionary\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(autoload 'online-dictionary \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el
-echo " (insert \"\\\"Online dictionary.\\\" t nil)\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(autoload 'od:lookup-pattern-edit \\\"diclookup-mule\\\" \")" >> /tmp/hack-site-start.el
-echo " (insert \"\\\"Look up a word.\\\" t nil)\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(setq od-chujiten-flag t) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(setq od-dictfile-list '(\\\"od-chujiten\\\" \\\"od-kojien\\\" \\\"od-readers\\\" \\\"od-crown\\\")) \")" >> /tmp/hack-site-start.el
-echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(setq dserver-server-list '(\\\"localhost\\\")) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(setq od-frame-geometry \\\"+0-0\\\" od-hide-frame \")" >> /tmp/hack-site-start.el
-echo " (insert \"'make-invisible) ; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(add-hook 'od-really-quit-hook 'od-delete-frame) \")" >> /tmp/hack-site-start.el
-echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \"(define-key-after menu-bar-file-menu [dictionary] \")" >> /tmp/hack-site-start.el
-echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (insert \" '(\\\"Online Dictionary\\\" . online-dictionary) 'calendar) \")" >> /tmp/hack-site-start.el
-echo " (insert \"; diclookup-mule\n\")" >> /tmp/hack-site-start.el
-echo " (write-file fname))))" >> /tmp/hack-site-start.el
-
-# Hack site-start.el
-echo
-echo "Updating PREFIX_DIR/lib/mule/site-lisp/site-start.el";
-cp PREFIX_DIR/lib/mule/site-lisp/site-start.el PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak
-
-echo "Do you like to update site-start.el automatically? (y/n) [y]" ;
-read ans;
-case x${ans} in
- xn*|xN*)
- echo "Do you like to change site-start.el file by yourself?(y/n) [y]" ;
- read choice ;
- case x${choice} in
- xn*|xN*)
- echo "Okay, Do nothing."
- rm -f PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak ;;
- *)
- mule -batch -q -l /tmp/hack-site-start.el -f hack-site-start \
- PREFIX_DIR/lib/mule/site-lisp/site-start.el ;
- echo "Edit site-start.el file by yourself (Press Return)";
- read dummy;
- vi -c /diclookup PREFIX_DIR/lib/mule/site-lisp/site-start.el ;
- echo "original file is saved in PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak";;
- esac;;
- *)
- mule -batch -q -l /tmp/hack-site-start.el -f hack-site-start \
- PREFIX_DIR/lib/mule/site-lisp/site-start.el ;
- echo "original file is saved in PREFIX_DIR/lib/mule/site-lisp/site-start.el.bak" ;;
-esac
-rm -f /tmp/hack-site-start.el
-
echo "Now startup configuration is done."
echo "Remember to mount cdrom to PREFIX_DIR/share/dict/cdrom."