iratqq

(progn
  (setq uim-debug-enable t)
  (setq uim-el-agent-timeout 10)
  (require 'uim)
  (require 'uim-leim)
  (setq uim-candidate-display-inline t)
  (setq uim-default-im-prop
	'("action_anthy_hiragana" "action_skk_hiragana"))
  (setq-default uim-candidate-display-frame t)
  (setq default-input-method 'japanese-sj3-uim)

iratqq

114 1 [97]
113 1 FOCUSED
112 1 UNFOCUSED
111 1 FOCUSED
110 1 RELEASE
109 1 UNFOCUSED
108 1 [24]
107 1 LABEL
106 1 FOCUSED
105 1 UNFOCUSED

iratqq

--- ffi.lisp.orig       Mon Sep 15 13:06:11 2008
+++ ffi.lisp    Mon Sep 15 13:04:55 2008
@@ -242,6 +242,7 @@
     (setf *bio-lisp-method* (make-bio-lisp-method))))

 (defun reload ()
+  (cffi:load-foreign-library 'libcrypto)
   (cffi:load-foreign-library 'libssl)
   (setf *ssl-global-context* nil)
   (setf *ssl-global-method* nil))

iratqq

(require :cl-xmpp-tls)
(defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com"))
(xmpp:auth *connection* "your-gmail-address" "your-password" "cl-xmpp" :mechanism :sasl-plain)
(xmpp:message *connection* "wassr-bot@wassr.jp" "#lisp test test")

iratqq

(use iconv)
(use loudmouth)
(use lolevel)

(define-constant jhost   "talk.google.com")
(define-constant jresource "Home")

(define *iconv-desc* (iconv-open "euc-jp" "utf-8"))

(define (lm:debug-print title msg)

iratqq

$cat pkg-plist
include/webkit-1.0/JavaScriptCore/JSBase.h
include/webkit-1.0/JavaScriptCore/JSContextRef.h
include/webkit-1.0/JavaScriptCore/JSObjectRef.h
include/webkit-1.0/JavaScriptCore/JSStringRef.h
include/webkit-1.0/JavaScriptCore/JSStringRefBSTR.h
include/webkit-1.0/JavaScriptCore/JSStringRefCF.h
include/webkit-1.0/JavaScriptCore/JSValueRef.h
include/webkit-1.0/JavaScriptCore/JavaScript.h
include/webkit-1.0/JavaScriptCore/JavaScriptCore.h

iratqq

--- src/a/p.c.orig	Fri Mar 28 04:09:35 2008
+++ src/a/p.c	Tue Sep 30 09:30:01 2008
@@ -60,6 +60,20 @@
 	     "O.>","O.=","O.!=","O.<=","O.>=", "Q.*","P.*","F.!","P.+","P.-",
 	     "E.%","E.*","A.<","A.>","^","Y.&","B.&","B.|","B.<","B.>",
 	     "B.=","B.!=","B.<=","B.>=","B.!",0};
+Z C *n4[]={"\342\206\220","else","if","while","do","case","time","","@","\302\250",0};
+Z C *p4[]={"\342\210\247","\342\210\250","+","\303\227","\342\214\210","\342\214\212","-","\303\267","\342\210\243","<",
+	     ">","=","\342\211\240","\342\211\244","\342\211\245","\342\213\206","\342\215\237","?","\342\215\211","\342\215\263",
+	     "#","\342\215\264",",","\342\210\274","\342\214\275","\342\206\221","\342\206\223","\342\215\213","\342\215\222","\342\211\241",

iratqq

cd src/orb/poa
../../../src/idl-compiler/orbit-idl-2 -I../../../src/idl/CORBA_PIDL -I../../../src/idl/CORBA -I../../../src/idl/misc -I../../../src/orb/orb-core -D_PRE_3_0_COMPILER_ --noskels --nodefskels --nostubs --noidata --noheaders --define=Object=OObject --define=TypeCode=TTypeCode --showcpperrors --deps ./.deps/poa-defs.idl.P poa-defs.idl

iratqq

--- conn.c.orig	Sun Aug 28 19:24:20 2005
+++ conn.c	Sat Oct 18 17:47:21 2008
@@ -31,7 +31,7 @@
 
 struct global {
   SoupSession *session;
-  SoupUri *base_uri;
+  SoupURI *base_uri;
   char *base;
   int pending;

iratqq

<alias>
  <family>IPA Pゴシック</family>
  <accept>
    <family>IPAPGothic</family>
  </accept>
</alias>