Update of /cvsroot/fink/dists/10.4-transitional/stable/main/finkinfo/editors
In directory
sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13168/10.4-transitional/stable/main/finkinfo/editors
Added Files:
italk-el.info italk-el.patch
Log Message:
moved from unstable.
--- NEW FILE: italk-el.patch ---
diff -Naur italk.orig/fink/italk-el-install italk/fink/italk-el-install
--- italk.orig/fink/italk-el-install Thu Jan 1 09:00:00 1970
+++ italk/fink/italk-el-install Sat Mar 27 02:52:15 2004
@@ -0,0 +1,52 @@
+#! /bin/sh -e
+# @PREFIX@/lib/emacsen-common/packages/install/italk-el
+# [ This particular script hasn't been tested, so be careful. ]
+
+set -e
+
+FLAVOR=$1
+PACKAGE=italk-el
+
+if [ "X${FLAVOR}" = "X" ]; then
+ echo "Need argument to determin FLAVOR of emacs"
+ exit 1
+fi
+
+if [ "X${PACKAGE}" = "X" ]; then
+ echo "Internal error: need package name"
+ exit 1
+fi
+
[EMAIL PROTECTED]@/share/emacs/site-lisp/${PACKAGE}
[EMAIL PROTECTED]@/share/${FLAVOR}/site-lisp/${PACKAGE}
+
+COMPILE="-batch -q -f batch-byte-compile"
+
+case "${FLAVOR}" in
+ emacs)
+ ;;
+ emacs19)
+ echo "install/${PACKAGE}: Ignoring ${FLAVOR}."
+ ;;
+ *)
+
+ echo -n "install/${PACKAGE}: Byte-compiling for ${FLAVOR} ..."
+
+ rm -rf ${ELCDIR}
+ install -m 755 -d ${ELCDIR}
+
+ # Copy the temp .el files (and Makefile or so)
+ cp ${ELDIR}/* ${ELCDIR}/
+
+ # Byte compile them
+ (cd ${ELCDIR}
+ ${FLAVOR} ${COMPILE} italk.el > CompilationLog 2>&1
+ rm -f *.el )
+
+ gzip -9 ${ELCDIR}/CompilationLog
+
+ echo " done."
+ ;;
+esac
+
+exit 0
diff -Naur italk.orig/fink/italk-el-remove italk/fink/italk-el-remove
--- italk.orig/fink/italk-el-remove Thu Jan 1 09:00:00 1970
+++ italk/fink/italk-el-remove Sat Mar 27 01:03:29 2004
@@ -0,0 +1,36 @@
+#!/bin/sh
+# @PREFIX@/lib/emacsen-common/packages/remove/italk-el
+# [ This particular script hasn't been tested either, so be careful. ]
+set -e
+
+FLAVOR=$1
+PACKAGE=italk-el
+
+if [ "X${FLAVOR}" = "X" ]; then
+ echo "Need argument to determin FLAVOR of emacs"
+ exit 1
+fi
+
+if [ "X${PACKAGE}" = "X" ]; then
+ echo "Internal error: need package name"
+ exit 1
+fi
+
[EMAIL PROTECTED]@/share/emacs/site-lisp/${PACKAGE}
[EMAIL PROTECTED]@/share/${FLAVOR}/site-lisp/${PACKAGE}
+
+case "${FLAVOR}" in
+ emacs)
+ ;;
+ emacs19)
+ echo "remove/${PACKAGE}: Ignoring ${FLAVOR}."
+ ;;
+ *)
+
+ echo -n "remove/${PACKAGE}: Handling removal of emacsen flavor
${FLAVOR} ..."
+ rm -rf ${ELCDIR}
+ echo " done."
+ ;;
+esac
+
+exit 0
diff -Naur italk.orig/fink/italk-el-startup italk/fink/italk-el-startup
--- italk.orig/fink/italk-el-startup Thu Jan 1 09:00:00 1970
+++ italk/fink/italk-el-startup Sat Mar 27 02:52:57 2004
@@ -0,0 +1,15 @@
+;; -*-emacs-lisp-*-
+;;
+;; Emacs startup file for the Fink italk-el package
+;;
+;; We have to add this to the load-path:
+(setq load-path
+ (cons
+ (concat "@PREFIX@/share/" (symbol-name fink-emacs-flavor)
+ "/site-lisp/italk-el")
+ load-path))
+
+(autoload 'italk "italk" "Inter talk" t nil)
+(autoload 'italk-other-frame "italk" "Inter talk" t nil)
+(setq italk-user-name user-login-name)
+;(setq italk-server "main.italk.ne.jp")
diff -Naur italk.orig/italk.el italk/italk.el
--- italk.orig/italk.el Thu Jan 16 03:07:05 2003
+++ italk/italk.el Sat Mar 27 00:37:09 2004
@@ -1,5 +1,5 @@
;;
-;; italk.el version 1.05
+;; italk.el version 1.06
;; by HARADA Masanori <[EMAIL PROTECTED]>
;; modified by Tak. <[EMAIL PROTECTED]>
;; supporting custom by GANA <[EMAIL PROTECTED]>
@@ -65,7 +65,7 @@
;; $BH?1G$5$l$k$N$G!"?'$NJQ99$d(B kill-name [EMAIL PROTECTED]<B:]$N(B
italk
;; $B$N2hLL$r8+$J$,[EMAIL PROTECTED],2DG=$G$"$k!#(B
-(defconst italk-version "italk.el 1.05")
+(defconst italk-version "italk.el 1.06p5")
;;
;; for custom ( http://www.dina.kvl.dk/~abraham/custom/ )
@@ -164,6 +164,7 @@
(defvar italk-send-message-full-replace-alist
'(
+ ("^\\(/p[ \t$B!!(B]+[0-9]+\\){[^]}]+}\\([ \t$B!!(B]+.+\\)$" .
"\\1\\2") ; telegram
("^hello\\(:-)\\)?$" . "hello, world\\1") ; example
)
"*Alist of elements (REGEXP . REPLACE-STRING) for replacing sending texts.")
@@ -238,7 +239,8 @@
(defvar italk-current-server nil)
(defvar italk-current-port nil)
(defvar italk-current-user-name nil)
-(defvar italk-regexp-receive-telegram "^#< Message from (\\([0-9]+\\)) \\[")
+(defvar italk-regexp-receive-telegram
+ "^#< Message from (0*\\([0-9]+\\)) \\[\\([^]]+\\)\\]")
(defvar italk-regexp-receive-ping nil)
(defvar italk-pinged-string nil)
(defvar italk-time-last-send-message (current-time))
@@ -503,16 +505,20 @@
; /p : (nil . nil)
; /p ch : (ch . nil)
; /p ch msg : (ch . t)
+; /p str : (t . nil)
+; /p str msg : (t . t)
;
(if (and (>= (length str) 3) (string= (substring str 0 3) "/p "))
(let ((sc nil) (sv nil) (r (cons nil nil)))
(setq sv (italk-parse-string str))
(setq sc (car sv)) ; count of parsed strings
(setq sv (cdr sv)) ; value of parsed strings
- (if (and (>= sc 2)
- (string-match "^[0-9]+$" (car (cdr sv)) 0))
+ (if (>= sc 2)
(progn
- (setcar r (string-to-number (car (cdr sv))))
+ (if (string-match "^[0-9]+\\(,[0-9]+\\)*$" (car (cdr sv)) 0)
+ (setcar r (car (cdr sv)))
+ (setcar r t)
+ )
(if (>= sc 3)
(setcdr r t))
)
@@ -534,19 +540,22 @@
(setq a (italk-telegram-parse-string (buffer-substring a (point))))
(end-of-line)
(insert "\n")
- (if (and a (car a) (not (cdr a)) (= (car a) italk-telegram-to))
- (if (/= (car a) italk-telegram-last-from)
- (setq italk-telegram-to italk-telegram-last-from)
+ (if (and a
+ (stringp (car a))
+ (not (cdr a))
+ (string= (car a) italk-telegram-to))
+ (if (string= (car a) italk-telegram-last-from)
(setq italk-telegram-flag nil)
+ (setq italk-telegram-to italk-telegram-last-from)
)
)
)
)
(if italk-telegram-flag
(if italk-telegram-to
- (insert (concat "/p " (number-to-string italk-telegram-to) " "))
+ (insert (concat "/p " italk-telegram-to " "))
(if italk-telegram-last-from
- (insert (concat "/p " (number-to-string italk-telegram-last-from) " "))
+ (insert (concat "/p " italk-telegram-last-from " "))
(insert (concat "/p "))
)
)
@@ -557,6 +566,27 @@
(if (not (string= (buffer-name) italk-input-buffer))
(message "italk.el: italk-send-message-full(ret) acts only on *italk
INPUT*.")
;else
+ (let ((p italk-send-message-full-replace-alist) a p1)
+ (end-of-line)
+ (setq a (point))
+ (while p
+ (setq p1 (car p))
+ (beginning-of-line)
+ (if (not (null (re-search-forward (car p1) a t)))
+ (progn
+ (if (consp (cdr p1))
+ (if (< (/ (random 65536) 65536.0) (cdr (cdr p1)))
+ (replace-match (car (cdr p1)) t)
+ )
+ (replace-match (cdr p1) t)
+ )
+ (end-of-line)
+ (setq a (point))
+ )
+ )
+ (setq p (cdr p))
+ )
+ )
(let ((sendskipf nil))
(if italk-telegram-flag
(let ((a nil))
@@ -564,14 +594,18 @@
(setq a (point))
(end-of-line)
(setq a (italk-telegram-parse-string (buffer-substring a (point))))
- (if (or (not a) (not (car a)))
- (setq italk-telegram-flag nil)
+ (if (or (not a) (not (stringp (car a))))
(progn
- (setq italk-telegram-to (car a))
- (if (not (cdr a))
- (setq italk-telegram-flag nil)
+ (setq italk-telegram-flag nil)
+ (if (car a)
+ (setq italk-telegram-to nil)
)
)
+ ;else
+ (setq italk-telegram-to (car a))
+ (if (not (cdr a))
+ (setq italk-telegram-flag nil)
+ )
)
(if (and a (not (and (car a) (cdr a))))
(setq sendskipf t)
@@ -599,27 +633,6 @@
(end-of-line)
(if (not sendskipf)
(progn
- (let ((p italk-send-message-full-replace-alist) a p1)
- (end-of-line)
- (setq a (point))
- (while p
- (setq p1 (car p))
- (beginning-of-line)
- (if (not (null (re-search-forward (car p1) a t)))
- (progn
- (if (consp (cdr p1))
- (if (< (/ (random 65536) 65536.0) (cdr (cdr p1)))
- (replace-match (car (cdr p1)) t)
- )
- (replace-match (cdr p1) t)
- )
- (end-of-line)
- (setq a (point))
- )
- )
- (setq p (cdr p))
- )
- )
(end-of-line)
(italk-send-message)
)
@@ -632,7 +645,7 @@
(save-excursion (insert "\n"))
)
(if italk-telegram-to
- (insert (concat "/p " (number-to-string italk-telegram-to) " "))
+ (insert (concat "/p " italk-telegram-to " "))
(insert (concat "/p "))
)
(setq italk-current-thread nil)
@@ -805,10 +818,38 @@
'("Describe Mode" . describe-mode))
(define-key italk-menu-map [showversion]
'("Show Version" . italk-version))
- (define-key italk-menu-map [null]
+ (define-key italk-menu-map [null2]
+ '("-" . nil))
+ (define-key italk-menu-map [toggletelegram]
+ '("show/hide telegrams" . italk-toggle-telegram-mask))
+ (define-key italk-menu-map [clearthread]
+ '("show all threads" . italk-clear-thread-mask))
+ (define-key italk-menu-map [showthread9]
+ '("show only thread 9:" . italk-toggle-thread-mask-9))
+ (define-key italk-menu-map [showthread8]
+ '("show only thread 8:" . italk-toggle-thread-mask-8))
+ (define-key italk-menu-map [showthread7]
+ '("show only thread 7:" . italk-toggle-thread-mask-7))
+ (define-key italk-menu-map [showthread6]
+ '("show only thread 6:" . italk-toggle-thread-mask-6))
+ (define-key italk-menu-map [showthread5]
+ '("show only thread 5:" . italk-toggle-thread-mask-5))
+ (define-key italk-menu-map [showthread4]
+ '("show only thread 4:" . italk-toggle-thread-mask-4))
+ (define-key italk-menu-map [showthread3]
+ '("show only thread 3:" . italk-toggle-thread-mask-3))
+ (define-key italk-menu-map [showthread2]
+ '("show only thread 2:" . italk-toggle-thread-mask-2))
+ (define-key italk-menu-map [showthread1]
+ '("show only thread 1:" . italk-toggle-thread-mask-1))
+ (define-key italk-menu-map [showthread0]
+ '("show only thread 0:" . italk-toggle-thread-mask-0))
+ (define-key italk-menu-map [null1]
'("-" . nil))
(define-key italk-menu-map [togglekillname]
'("Toggle kill name" . italk-toggle-kill-name))
+ (define-key italk-menu-map [searchlogout]
+ '("Search last logout" . italk-search-last-logout))
(define-key italk-menu-map [telegram]
'("Telegram mode" . italk-telegram-mode))
(define-key italk-menu-map [sendrregion]
@@ -973,12 +1014,13 @@
(setq italk-time-last-send-message (current-time))
)
)
+ (message "italk: pinged!")
)
(defun italk-search-last-logout ()
"Search your last logout message in the LOG buffer."
(interactive)
(let (
- (re (concat "(\\[" italk-current-user-name "[^ ]* logged out @ "))
+ (re (concat "^\\((\\[" italk-current-user-name ".* \\(logged out @
\\|status to <off\\)\\|#<\\)"))
p
w
)
@@ -1308,16 +1350,26 @@
(setq italk-current-user-name who)
(setq italk-kill-name-flag (and italk-regexp-kill-name))
(run-hooks 'italk-startup-hook)
- (let ((w who) (p (string-match "\C-j" who)))
- (if p
- (setq w (substring who 0 p))
+ (let (p (w who))
+ (setq p (string-match "\C-j" w))
+ (while p
+ (if (string= (substring w 0 1) "/")
+ (progn
+ (setq w (substring w (1+ p)))
+ (setq p (string-match "\C-j" w))
+ (setq italk-current-user-name w)
+ )
+ ;else
+ (setq italk-current-user-name (substring w 0 p))
+ (setq p nil)
+ )
)
- (setq italk-regexp-receive-ping (concat
- "^\\(([0-9][0-9]:[0-9][0-9]:[0-9][0-9])\\[.*\\]\\|#<\\) \\(\\[[^]]+\\]
\\)?\\([0-9][0-9]*: ?\\)?ping "
- w
- "$"
- ))
)
+ (setq italk-regexp-receive-ping (concat
+ "^\\(([0-9][0-9]:[0-9][0-9]:[0-9][0-9])\\[.*\\]\\|#<\\) \\(\\[[^]]+\\]
\\)?\\([0-9][0-9]*: ?\\)?ping "
+ italk-current-user-name
+ "$"
+ ))
(setq italk-time-last-send-message (current-time))
;
(erase-buffer)
@@ -1400,12 +1452,14 @@
(setq italk-log-backlog-p t))
(if (string-match italk-regexp-receive-telegram
italk-pushd-string)
- (setq italk-telegram-last-from
- (string-to-number
- (substring italk-pushd-string
- (match-beginning 1) (match-end 1))
- )
- )
+ (setq italk-telegram-last-from (concat
+ (substring italk-pushd-string
+ (match-beginning 1) (match-end 1))
+ "{"
+ (substring italk-pushd-string
+ (match-beginning 2) (match-end 2))
+ "}"
+ ))
)
(if (and italk-ping-hook (null italk-log-backlog-p))
(if (string-match italk-regexp-receive-ping
--- NEW FILE: italk-el.info ---
Package: italk-el
Version: 1.05.cvs20030129
Revision: 1
Description: Italk client for Emacsen
License: BSD
Maintainer: Todai Fink Team <[EMAIL PROTECTED]>
Depends: emacsen
Source: http://italk.lefs.org/~taka/file/%n-1.05.tar.gz
Source-MD5: e4c30e4dcf7443265f7a4da86a5d2a67
SourceDirectory: italk
PatchScript: sed 's|@PREFIX@|%p|g' < %a/%n.patch | patch -p1
CompileScript: echo "Nothing is compiled in this section."
InstallScript: <<
install -m 755 -d %i/share/emacs/site-lisp/%n
install -m 644 italk.el %i/share/emacs/site-lisp/%n
install -m 755 -d %i/etc/emacs/site-start.d
install -m 644 fink/%n-startup %i/etc/emacs/site-start.d/50%n.el
install -m 755 -d %i/lib/emacsen-common/packages/{install,remove}
install -m 755 fink/%n-install %i/lib/emacsen-common/packages/install/%n
install -m 755 fink/%n-remove %i/lib/emacsen-common/packages/remove/%n
<<
DocFiles: ihist-ja.txt italk-*.txt
PostInstScript: <<
if [ "$1" = "configure" ] && [ -x %p/lib/emacsen-common/emacs-package-install ]
then
%p/lib/emacsen-common/emacs-package-install %n
fi
<<
PreRmScript: <<
if [ -x %p/lib/emacsen-common/emacs-package-remove ] ; then
%p/lib/emacsen-common/emacs-package-remove %n
fi
<<
ConfFiles: %p/etc/emacs/site-start.d/50%n.el
Homepage: http://italk.sourceforge.net/clients/italk-el/
DescDetail: <<
Italk.el is a client of the italk chat system, running on mule 2.x (a
multilingual extension of emacs, based on 19.x) and emacs 20.x. It
works under both X window system environments and character-based
terminals. Windows ports of emacs (mule for Win32 and Meadow) are
also supported. Italk.el is easy to install and user-customizable by
~/.emacs setting.
<<
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
