mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-18 00:10:04 +00:00
375 lines
9.3 KiB
Cheetah
375 lines
9.3 KiB
Cheetah
|
#!/bin/sh
|
||
|
|
|
||
|
|
PREFIX=%%PREFIX%%
|
||
|
|
EMACSDIR=%%EMACSDIR%%
|
||
|
|
ELISPDIR=%%ELISPDIR%%
|
||
|
|
SAMPLEDIR=%%SAMPLEDIR%%
|
||
|
|
|
||
|
|
AWK=%%AWK%%
|
||
|
|
CAT=%%CAT%%
|
||
|
|
CP=%%CP%%
|
||
|
|
ECHO=%%ECHO%%
|
||
|
|
MKDIR="%%MKDIR%%"
|
||
|
|
RM=%%RM%%
|
||
|
|
SED=%%SED%%
|
||
|
|
TOUCH=%%TOUCH%%
|
||
|
|
DIALOG=/usr/bin/dialog
|
||
|
|
|
||
|
|
select()
|
||
|
|
{
|
||
|
|
local Language key
|
||
|
|
Language="\
|
||
|
|
Choose a language when you write mails.\n\
|
||
|
|
(Now is \"${language}\" selected.)"
|
||
|
|
${DIALOG} --title "Choose the Language" \
|
||
|
|
--hline "Select Items and Quit when finished" \
|
||
|
|
--menu "${Language}" -1 -1 2 \
|
||
|
|
English "English" \
|
||
|
|
Japanese "japanese" \
|
||
|
|
2> /tmp/menu.$$
|
||
|
|
retval=$?
|
||
|
|
key=`${CAT} /tmp/menu.$$|${SED} -e 's/\"//g'`
|
||
|
|
${RM} -f /tmp/menu.$$
|
||
|
|
case $retval in
|
||
|
|
0) if [ -z ${key} ]; then return; fi ;;
|
||
|
|
1) return ;;
|
||
|
|
255) return ;;
|
||
|
|
esac
|
||
|
|
language=${key}
|
||
|
|
# echo citation:key=${key},dot_emacs=${dot_emacs}>>/tmp/temp
|
||
|
|
}
|
||
|
|
|
||
|
|
input_data()
|
||
|
|
# argument No.1 ($1) : Key words (string)
|
||
|
|
# argument No.2 ($2) : Variable for the Key words (string)
|
||
|
|
# argument No.3 ($3) : unit for the variable (string)
|
||
|
|
{
|
||
|
|
local key
|
||
|
|
# echo '$1='$1
|
||
|
|
# echo '$2='$2
|
||
|
|
# echo '$3='$3
|
||
|
|
# exit 1
|
||
|
|
# echo '${nameserver}='${mail_address}
|
||
|
|
# eval echo '${'$2'}'
|
||
|
|
eval key='${'$2'}'
|
||
|
|
# echo key=${key}
|
||
|
|
# exit 1
|
||
|
|
if [ ! -z ${key} ]; then
|
||
|
|
${DIALOG} --title "Confirm $1" \
|
||
|
|
--hline "Press Yes/No" \
|
||
|
|
--yesno "$1 $3 has set \"${key}\". Is this OK?" -1 -1
|
||
|
|
retval=$?
|
||
|
|
if [ X"${retval}" = "X0" -o X"${retval}" = "X255" ]; then return; fi
|
||
|
|
fi
|
||
|
|
${DIALOG} --title "Set $1 $3" \
|
||
|
|
--hline "Write $1 $3" \
|
||
|
|
--inputbox "Specify $1 $3" -1 -1 \
|
||
|
|
2> /tmp/input.$$
|
||
|
|
eval $2=`${CAT} /tmp/input.$$`
|
||
|
|
${RM} -f /tmp/input.$$
|
||
|
|
}
|
||
|
|
|
||
|
|
options()
|
||
|
|
{
|
||
|
|
local Options keys del_keys
|
||
|
|
Options="\
|
||
|
|
Please select Mew functions that you want to. To select a function, \n\
|
||
|
|
use the arrow keys to move to it and press [SPACE]. To de-select it, \n\
|
||
|
|
press [SPACE] again. Select OK or Cancel to leave this menu."
|
||
|
|
del_keys="Highlight Citation Cite_Change Sign_Change"
|
||
|
|
${DIALOG} --title "Select Mew functions" \
|
||
|
|
--hline "" \
|
||
|
|
--checklist "${Options}" -1 -1 4 \
|
||
|
|
Highlight "highlight body for Mew(Japanese)" ${options_Highlight} \
|
||
|
|
Citation "Citation with the mail." ${options_Citation} \
|
||
|
|
Cite_Change "Change citation English <--> Japanese." ${options_Cite_Change} \
|
||
|
|
Sign_Change "Change signature English <--> Japanese." ${options_Sign_Change} \
|
||
|
|
2> /tmp/checklist.$$
|
||
|
|
retval=$?
|
||
|
|
keys=`${CAT} /tmp/checklist.$$|${SED} -e 's/\"//g'`
|
||
|
|
${RM} -f /tmp/checklist.$$
|
||
|
|
case $retval in
|
||
|
|
1) return ;;
|
||
|
|
255) return ;;
|
||
|
|
esac
|
||
|
|
dot_emacs=""
|
||
|
|
# echo keys=$keys
|
||
|
|
for k in ${keys}; do
|
||
|
|
del_keys=`${ECHO} ${del_keys}|${SED} -e "s/ *${k}//g"`
|
||
|
|
# echo del_keys=${del_keys}
|
||
|
|
# echo k=$k
|
||
|
|
case ${k} in
|
||
|
|
Highlight)
|
||
|
|
dot_emacs="${dot_emacs} dot.emacs-highlight-body.el"
|
||
|
|
options_Highlight=ON
|
||
|
|
;;
|
||
|
|
Citation)
|
||
|
|
citation
|
||
|
|
# echo options:key=${k},dot_emacs=${dot_emacs}>>/tmp/temp
|
||
|
|
options_Citation=ON
|
||
|
|
;;
|
||
|
|
Cite_Change)
|
||
|
|
dot_emacs="${dot_emacs} dot.emacs-cite-change.el"
|
||
|
|
options_Cite_Change=ON
|
||
|
|
;;
|
||
|
|
Sign_Change)
|
||
|
|
dot_emacs="${dot_emacs} dot.emacs-signature-change.el"
|
||
|
|
options_Sign_Change=ON
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
# exit 1
|
||
|
|
for k in ${del_keys}; do
|
||
|
|
# echo k=$k
|
||
|
|
case ${k} in
|
||
|
|
Highlight)
|
||
|
|
dot_emacs=`${ECHO} ${dot_emacs}|${SED} -e "s/ *dot\.emacs-highlight-body\.el//"`
|
||
|
|
options_Highlight=OFF
|
||
|
|
;;
|
||
|
|
Citation)
|
||
|
|
options_Citation=OFF
|
||
|
|
;;
|
||
|
|
Cite_Change)
|
||
|
|
dot_emacs=`${ECHO} ${dot_emacs}|${SED} -e "s/ *dot\.emacs-cite-change\.el//"`
|
||
|
|
options_Cite_Change=OFF
|
||
|
|
;;
|
||
|
|
Sign_Change)
|
||
|
|
dot_emacs=`${ECHO} ${dot_emacs}|${SED} -e "s/ *dot\.emacs-signature-change\.el//"`
|
||
|
|
options_Sign_Change=OFF
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
# echo dot_emacs=${dot_emacs}
|
||
|
|
# echo del_keys=${del_keys}
|
||
|
|
# exit 1
|
||
|
|
}
|
||
|
|
|
||
|
|
citation()
|
||
|
|
{
|
||
|
|
dot_emacs=`${ECHO} ${dot_emacs}|${SED} -e "s/ *dot\.emacs-cite.[a-z]*//g"`
|
||
|
|
case ${language} in
|
||
|
|
English)
|
||
|
|
dot_emacs="${dot_emacs} dot.emacs-cite.el"
|
||
|
|
;;
|
||
|
|
Japanese)
|
||
|
|
dot_emacs="${dot_emacs} dot.emacs-cite.ja.el"
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
# echo citation:key=${key},dot_emacs=${dot_emacs}>>/tmp/temp
|
||
|
|
}
|
||
|
|
|
||
|
|
case ${TERM} in
|
||
|
|
emacs)
|
||
|
|
${ECHO} "Here is \"Emacs\" shell. Try on other terminal."
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
|
||
|
|
version="%%VERSION%%"
|
||
|
|
#version="1.92"
|
||
|
|
|
||
|
|
SEDCMD='${SED}
|
||
|
|
-e "s,%%prefix%%,${PREFIX},g"
|
||
|
|
-e "s,%%emacsdir%%,${EMACSDIR},g"
|
||
|
|
-e "s,%%elispdir%%,${ELISPDIR},g"
|
||
|
|
-e "s,%%version%%,${version},g"
|
||
|
|
-e "s,%%nameserver%%,${nameserver},g"
|
||
|
|
-e "s,%%mail_address%%,${mail_address},g"
|
||
|
|
-e "s,%%domain_name%%,${domain_name},g"
|
||
|
|
-e "s,%%default_domain_name%%,${default_domain_name},g"
|
||
|
|
-e "s,%%signature%%,${signature},g"'
|
||
|
|
|
||
|
|
###
|
||
|
|
# Check ~/.backup directory exist.
|
||
|
|
#
|
||
|
|
${MKDIR} ${HOME}/.backup
|
||
|
|
|
||
|
|
###
|
||
|
|
# Backup all files.
|
||
|
|
#
|
||
|
|
${CP} ${HOME}/${dot_emacs_file} ${HOME}/.backup/${dot_emacs_file}.$$
|
||
|
|
${CP} ${HOME}/.im/Config ${HOME}/.backup/Config.$$
|
||
|
|
|
||
|
|
###
|
||
|
|
# Check ~/.im/Config file exist.
|
||
|
|
#
|
||
|
|
if [ ! -f ${HOME}/.im/Config ]; then
|
||
|
|
${ECHO} "${HOME}/.im/Config: Not found. Do imsetup first."
|
||
|
|
exit 1
|
||
|
|
else
|
||
|
|
mail_address=`${AWK} '/^Address=/{sub(/^Address=/,"");print}' ${HOME}/.im/Config`
|
||
|
|
domain_name=`${AWK} '/^FromDomain=/{sub(/^FromDomain=/,"");print}' ${HOME}/.im/Config`
|
||
|
|
default_domain_name=`${AWK} '/^ToDomain=/{sub(/^ToDomain=/,"");print}' ${HOME}/.im/Config`
|
||
|
|
if [ X"${mail_address}" = "X%%mail_address%%" ]; then
|
||
|
|
mail_address=""
|
||
|
|
else
|
||
|
|
${CP} ${HOME}/.im/Config ${HOME}/.backup/Config
|
||
|
|
${SED} -e 's/^\(Address=\).*$/\1%%mail_address%%/' \
|
||
|
|
< ${HOME}/.backup/Config > ${HOME}/.im/Config
|
||
|
|
fi
|
||
|
|
if [ X"${domain_name}" = "X%%domain_name%%" ]; then
|
||
|
|
domain_name=""
|
||
|
|
else
|
||
|
|
${CP} ${HOME}/.im/Config ${HOME}/.backup/Config
|
||
|
|
${SED} -e 's/^\(FromDomain=\).*$/\1%%domain_name%%/' \
|
||
|
|
< ${HOME}/.backup/Config > ${HOME}/.im/Config
|
||
|
|
fi
|
||
|
|
if [ X"${default_domain_name}" = "X%%default_domain_name%%" ]; then
|
||
|
|
default_domain_name=""
|
||
|
|
else
|
||
|
|
${CP} ${HOME}/.im/Config ${HOME}/.backup/Config
|
||
|
|
${SED} -e 's/^\(ToDomain=\).*$/\1%%default_domain_name%%/' \
|
||
|
|
< ${HOME}/.backup/Config > ${HOME}/.im/Config
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
###
|
||
|
|
# Copy "aliases" if none
|
||
|
|
#
|
||
|
|
if [ ! -f ${HOME}/.im/Aliases ]; then
|
||
|
|
${CP} ${SAMPLEDIR}/Aliases ${HOME}/.im
|
||
|
|
fi
|
||
|
|
|
||
|
|
###
|
||
|
|
# Set user environment : nameserver, signature
|
||
|
|
#
|
||
|
|
options_Highlight=OFF
|
||
|
|
options_Citation=OFF
|
||
|
|
options_Cite_Change=OFF
|
||
|
|
options_Sign_Change=OFF
|
||
|
|
language=English
|
||
|
|
dot_emacs_file=.emacs
|
||
|
|
|
||
|
|
PreSet="\
|
||
|
|
This is the main menu of the Mew configuration pre-settings. Please \n\
|
||
|
|
select one of the options below by using the arrow keys or typing the \n\
|
||
|
|
first character of the option name you intend to set. Invoke an option \n\
|
||
|
|
by pressing [ENTER] or [TAB-ENTER] to exit the settings."
|
||
|
|
|
||
|
|
answer=None
|
||
|
|
while [ ! X"${answer}" = "XQuit" ]; do
|
||
|
|
${DIALOG} --title "Pre-set Mew configurations" \
|
||
|
|
--hline "To select an item press [Enter] on the item" \
|
||
|
|
--menu "${PreSet}" -1 -1 3 \
|
||
|
|
Language "Determine language in use on Mew" \
|
||
|
|
DotEmacs "Choose dot.emacs files being to use" \
|
||
|
|
Quit "Quit this menu" \
|
||
|
|
2> /tmp/menu.$$
|
||
|
|
retval=$?
|
||
|
|
answer=`${CAT} /tmp/menu.$$|${SED} -e 's/\"//g'`
|
||
|
|
${RM} -f /tmp/menu.$$
|
||
|
|
case $retval in
|
||
|
|
0) if [ -z ${answer} ]; then ${ECHO} "Nothing selected"; contiue; fi ;;
|
||
|
|
1) break ;;
|
||
|
|
255) break ;;
|
||
|
|
esac
|
||
|
|
case ${answer} in
|
||
|
|
Language)
|
||
|
|
select
|
||
|
|
;;
|
||
|
|
DotEmacs)
|
||
|
|
input_data "Emacs dot.emacs file name" "dot_emacs_file" ""
|
||
|
|
;;
|
||
|
|
Quit)
|
||
|
|
answer=Quit
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
|
||
|
|
#echo language=${language}
|
||
|
|
#echo dot_emacs_file=${dot_emacs_file}
|
||
|
|
#exit 1
|
||
|
|
|
||
|
|
MainMenu="\
|
||
|
|
This is the main menu of the Mew configuration settings. Please select \n\
|
||
|
|
one of the options below by using the arrow keys or typing the first \n\
|
||
|
|
character of the option name you intend to set. Invoke an option by \n\
|
||
|
|
pressing [ENTER] or [TAB-ENTER] to exit the settings."
|
||
|
|
|
||
|
|
answer=None
|
||
|
|
while [ ! X"${answer}" = "XQuit" ]; do
|
||
|
|
${DIALOG} --title "Set Mew configurations" \
|
||
|
|
--hline "Select Items and Quit when finished" \
|
||
|
|
--menu "${MainMenu}" -1 -1 6 \
|
||
|
|
NameServer "Name server Domain name" \
|
||
|
|
MailAddress "Your mail address (with FQDN)" \
|
||
|
|
DomainName "Your domain name" \
|
||
|
|
DefaultDomain "Default domain name in abbrivation" \
|
||
|
|
Options "Various options on using Mew" \
|
||
|
|
Quit "Quit this menu" \
|
||
|
|
2> /tmp/menu.$$
|
||
|
|
retval=$?
|
||
|
|
answer=`${CAT} /tmp/menu.$$`
|
||
|
|
${RM} -f /tmp/menu.$$
|
||
|
|
case $retval in
|
||
|
|
0) if [ -z ${answer} ]; then
|
||
|
|
${ECHO} "Nothing selected"
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
;;
|
||
|
|
1) ${ECHO} "Cancel pressed."
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
255) ${ECHO} "ESC pressed."
|
||
|
|
exit 1
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
case ${answer} in
|
||
|
|
NameServer)
|
||
|
|
input_data "Name Server" "nameserver" ""
|
||
|
|
;;
|
||
|
|
MailAddress)
|
||
|
|
input_data "Mail Address" "mail_address" ""
|
||
|
|
;;
|
||
|
|
DomainName)
|
||
|
|
input_data "Domain Name" "domain_name" ""
|
||
|
|
;;
|
||
|
|
DefaultDomain)
|
||
|
|
input_data "Default Domain Name" "default_domain_name" ""
|
||
|
|
;;
|
||
|
|
Options)
|
||
|
|
# options
|
||
|
|
;;
|
||
|
|
Quit)
|
||
|
|
answer=Quit
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
done
|
||
|
|
|
||
|
|
#echo 'nameserver='${nameserver}
|
||
|
|
#echo 'mail_address='${mail_address}
|
||
|
|
#echo 'domain_name='${domain_name}
|
||
|
|
#echo 'defaut_domain_name='${default_domain_name}
|
||
|
|
|
||
|
|
#exit 1
|
||
|
|
|
||
|
|
###
|
||
|
|
# Custumize startup files with selected options.
|
||
|
|
#
|
||
|
|
dot_emacs="dot.emacs.el ${dot_emacs}"
|
||
|
|
eval ${SEDCMD} < ${HOME}/.im/Config > ${HOME}/.backup/Config
|
||
|
|
|
||
|
|
###
|
||
|
|
# Add Mew startup setting to ~/.emacs
|
||
|
|
#
|
||
|
|
if [ -f ${dot_emacs_file} ]; then
|
||
|
|
${SED} -e '/^;;;* Mew ;*$/,/^;;; *Mew end$/d' < ${HOME}/${dot_emacs_file} \
|
||
|
|
> ${HOME}/.backup/${dot_emacs_file}
|
||
|
|
else
|
||
|
|
${ECHO} "Create new \"dot.emacs\" file: ${dot_emacs_file}"
|
||
|
|
fi
|
||
|
|
|
||
|
|
#echo 'dot_emacs='${dot_emacs}
|
||
|
|
for f in ${dot_emacs}; do
|
||
|
|
${CAT} ${SAMPLEDIR}/dot.emacs/${f} |\
|
||
|
|
eval ${SEDCMD} >> ${HOME}/.backup/${dot_emacs_file}
|
||
|
|
done
|
||
|
|
${ECHO} ";;; Mew end" \
|
||
|
|
>> ${HOME}/.backup/${dot_emacs_file}
|
||
|
|
${CP} ${HOME}/.backup/${dot_emacs_file} ${HOME}/${dot_emacs_file}
|
||
|
|
|
||
|
|
###
|
||
|
|
# Copy im Config file to ~/.im
|
||
|
|
#
|
||
|
|
${CP} ${HOME}/.backup/Config ${HOME}/.im/Config
|