Yet another Canna client for Emacs20/XEmacs
PR: 16060 Submitted by: HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>
This commit is contained in:
Satoshi Taoka
parent
c93896aa60
commit
4d9dae9133
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=24975
37
japanese/yc.el/Makefile
Normal file
37
japanese/yc.el/Makefile
Normal file
@ -0,0 +1,37 @@
|
||||
# New ports collection makefile for: yc.el
|
||||
# Version required: 19991203
|
||||
# Date created: 1999/12/05
|
||||
# Whom: HONDA Yasuhiro <honda@kashio.info.mie-u.ac.jp>
|
||||
#
|
||||
# $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 <bsd.port.mk>
|
||||
1
japanese/yc.el/distinfo
Normal file
1
japanese/yc.el/distinfo
Normal file
@ -0,0 +1 @@
|
||||
MD5 (yc.el.gz) = e229c9f522918a8cdc1231e00066cc59
|
||||
70
japanese/yc.el/files/patch-aa
Normal file
70
japanese/yc.el/files/patch-aa
Normal file
@ -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/"
|
||||
"$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B")
|
||||
(defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B
|
||||
"$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B
|
||||
--- 251,257 ----
|
||||
|
||||
(require 'cl)
|
||||
|
||||
! (defconst yc-canna-lib-path "/usr/local/lib/canna/dic/"
|
||||
"$B$+$s$J$N<-=q%Q%9$r@_Dj$9$k(B")
|
||||
(defconst yc-select-count 2 ; $B0lMw%b!<%I$K$J$k7+$jJV$7?t(B
|
||||
"$B0lMw%b!<%I$K$J$k7+JV$7?t$r@_Dj$9$k!#%G%U%)%k%H$O(B3$B2s!#(B
|
||||
***************
|
||||
*** 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
|
||||
'(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z")
|
||||
("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "")
|
||||
--- 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
|
||||
'(("~" "$B!1(B" "") ("}" "$B!Y(B" "") ("|" "$B!C(B" "") ("{" "$B!X(B" "") ("zz" "$B$C(B" "z")
|
||||
("zyu" "$B$8$e(B" "") ("zyo" "$B$8$g(B" "") ("zyi" "$B$8$#(B" "") ("zye" "$B$8$'(B" "")
|
||||
***************
|
||||
*** 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
|
||||
1
japanese/yc.el/pkg-comment
Normal file
1
japanese/yc.el/pkg-comment
Normal file
@ -0,0 +1 @@
|
||||
Yet another Canna client for Emacs20/XEmacs
|
||||
22
japanese/yc.el/pkg-descr
Normal file
22
japanese/yc.el/pkg-descr
Normal file
@ -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 <honda@kashio.info.mie-u.ac.jp>
|
||||
2
japanese/yc.el/pkg-plist
Normal file
2
japanese/yc.el/pkg-plist
Normal file
@ -0,0 +1,2 @@
|
||||
share/emacs/site-lisp/yc.el
|
||||
lib/xemacs/site-lisp/yc.el
|
||||
Loading…
Reference in New Issue
Block a user