From 4d9dae9133aad735d3c83a9dd1e29a185ecfa8db Mon Sep 17 00:00:00 2001 From: Satoshi Taoka Date: Sun, 23 Jan 2000 14:20:25 +0000 Subject: Yet another Canna client for Emacs20/XEmacs PR: 16060 Submitted by: HONDA Yasuhiro --- japanese/yc.el/Makefile | 37 +++++++++++++++++++++++ japanese/yc.el/distinfo | 1 + japanese/yc.el/files/patch-aa | 70 +++++++++++++++++++++++++++++++++++++++++++ japanese/yc.el/pkg-comment | 1 + japanese/yc.el/pkg-descr | 22 ++++++++++++++ japanese/yc.el/pkg-plist | 2 ++ 6 files changed, 133 insertions(+) create mode 100644 japanese/yc.el/Makefile create mode 100644 japanese/yc.el/distinfo create mode 100644 japanese/yc.el/files/patch-aa create mode 100644 japanese/yc.el/pkg-comment create mode 100644 japanese/yc.el/pkg-descr create mode 100644 japanese/yc.el/pkg-plist (limited to 'japanese/yc.el') diff --git a/japanese/yc.el/Makefile b/japanese/yc.el/Makefile new file mode 100644 index 000000000000..6106bbc22632 --- /dev/null +++ b/japanese/yc.el/Makefile @@ -0,0 +1,37 @@ +# New ports collection makefile for: yc.el +# Version required: 19991203 +# Date created: 1999/12/05 +# Whom: HONDA Yasuhiro +# +# $FreeBSD$ +# + +DISTNAME= yc.el +PKGNAME?= ja-yc.el-19991203 +CATEGORIES= japanese elisp +MASTER_SITES= http://www.ceres.dti.ne.jp/~knak/ +EXTRACT_SUFX= .gz + +MAINTAINER= honda@kashio.info.mie-u.ac.jp + +NO_BUILD= yes +NO_WRKSUBDIR= yes +WRKSRC= ${WRKDIR} + +ELISPDIR= ${PREFIX}/share/emacs/site-lisp +XELISPDIR= ${PREFIX}/lib/xemacs/site-lisp + +do-extract: + @${RM} -rf ${WRKDIR} + @${MKDIR} ${WRKDIR} + @${CP} ${DISTDIR}/yc.el.gz ${WRKSRC} + @(cd ${WRKSRC} ; ${GUNZIP_CMD} yc.el.gz) + +do-install: + ${MKDIR} ${ELISPDIR} + ${INSTALL_DATA} ${WRKSRC}/yc.el ${ELISPDIR} +# for xemacs + ${MKDIR} ${XELISPDIR} + ${LN} -sf ${ELISPDIR}/yc.el ${XELISPDIR} + +.include diff --git a/japanese/yc.el/distinfo b/japanese/yc.el/distinfo new file mode 100644 index 000000000000..0dfca2f4d61d --- /dev/null +++ b/japanese/yc.el/distinfo @@ -0,0 +1 @@ +MD5 (yc.el.gz) = e229c9f522918a8cdc1231e00066cc59 diff --git a/japanese/yc.el/files/patch-aa b/japanese/yc.el/files/patch-aa new file mode 100644 index 000000000000..9f0717282b80 --- /dev/null +++ b/japanese/yc.el/files/patch-aa @@ -0,0 +1,70 @@ +*** yc.el.orig Sun Dec 5 15:50:23 1999 +--- yc.el Sun Dec 5 16:08:09 1999 +*************** +*** 251,257 **** + + (require 'cl) + +! (defconst yc-canna-lib-path "/usr/lib/canna/dic/";"/usr/local/canna/lib/dic/" + "かんなの辞書パスを設定する") + (defconst yc-select-count 2 ; 一覧モードになる繰り返し数 + "一覧モードになる繰返し数を設定する。デフォルトは3回。 +--- 251,257 ---- + + (require 'cl) + +! (defconst yc-canna-lib-path "/usr/local/lib/canna/dic/" + "かんなの辞書パスを設定する") + (defconst yc-select-count 2 ; 一覧モードになる繰り返し数 + "一覧モードになる繰返し数を設定する。デフォルトは3回。 +*************** +*** 655,661 **** + (defvar yc-user-dic-list nil) + (defvar yc-default-bushu-dic-list '("bushu")) + (defvar yc-bushu-dic-list nil) +! (defvar yc-rH-conv-dic "/usr/local/canna/lib/dic/default.cbp") + (defvar yc-default-rH-table + '(("~" "￣" "") ("}" "』" "") ("|" "｜" "") ("{" "『" "") ("zz" "っ" "z") + ("zyu" "じゅ" "") ("zyo" "じょ" "") ("zyi" "じぃ" "") ("zye" "じぇ" "") +--- 655,661 ---- + (defvar yc-user-dic-list nil) + (defvar yc-default-bushu-dic-list '("bushu")) + (defvar yc-bushu-dic-list nil) +! (defvar yc-rH-conv-dic (concat (file-name-as-directory yc-canna-lib-path) "default.kp")) + (defvar yc-default-rH-table + '(("~" "￣" "") ("}" "』" "") ("|" "｜" "") ("{" "『" "") ("zz" "っ" "z") + ("zyu" "じゅ" "") ("zyo" "じょ" "") ("zyi" "じぃ" "") ("zye" "じぇ" "") +*************** +*** 1603,1609 **** + (defun yc-read-string-from-file (file) + (let* (;; emacs-20.x + (auto-coding-alist +! (cons '("\\.cbp" . japanese-iso-8bit) + (and (boundp 'auto-coding-alist) + auto-coding-alist))) + (auto-coding-alist +--- 1603,1609 ---- + (defun yc-read-string-from-file (file) + (let* (;; emacs-20.x + (auto-coding-alist +! (cons '("\\.kp" . japanese-iso-8bit) + (and (boundp 'auto-coding-alist) + auto-coding-alist))) + (auto-coding-alist +*************** +*** 1613,1619 **** + + ;; XEmacs-20.x + (file-coding-system-alist +! (cons '("\\.cbp" . euc-jp) + (and (boundp 'file-coding-system-alist) + file-coding-system-alist))) + (file-coding-system-alist +--- 1613,1619 ---- + + ;; XEmacs-20.x + (file-coding-system-alist +! (cons '("\\.kp" . euc-jp) + (and (boundp 'file-coding-system-alist) + file-coding-system-alist))) + (file-coding-system-alist diff --git a/japanese/yc.el/pkg-comment b/japanese/yc.el/pkg-comment new file mode 100644 index 000000000000..28c76a74858f --- /dev/null +++ b/japanese/yc.el/pkg-comment @@ -0,0 +1 @@ +Yet another Canna client for Emacs20/XEmacs diff --git a/japanese/yc.el/pkg-descr b/japanese/yc.el/pkg-descr new file mode 100644 index 000000000000..c874ef2f1e52 --- /dev/null +++ b/japanese/yc.el/pkg-descr @@ -0,0 +1,22 @@ +Yet another Canna client + +YC is a Japanese input method on Emacs-20.x/XEmacs. YC is written in +emacs lisp and access to Canna server directly. YC works well even if +your Emacs does not support Canna. + +Configuration: + 1. make user dictionary if you don't have your user dictionary + % mkdic user + 2. specify your Canna server + set enviroment variable CANNAHOST: + % setenv CANNAHOST hostname + or add + (setq yc-server-host "hostname") + to ~/.emacs + 3. add + (load "yc") + to ~/.emacs + +WWW: http://www.ceres.dti.ne.jp/~knak/yc.html + +- HONDA Yasuhiro diff --git a/japanese/yc.el/pkg-plist b/japanese/yc.el/pkg-plist new file mode 100644 index 000000000000..739a37050002 --- /dev/null +++ b/japanese/yc.el/pkg-plist @@ -0,0 +1,2 @@ +share/emacs/site-lisp/yc.el +lib/xemacs/site-lisp/yc.el -- cgit v1.2.3