iratqq

;;; riece-avatar.el --- insert external icon to IRC buffers

;; Copyright (C) 2009  Iwata

;; Author: Iwata <iratqq@gmail.com>
;; Keywords: IRC, riece

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)

iratqq

#! /bin/sh

echo "hello(){}" > hello.c
libtool --tag=CC --mode=compile gcc -c hello.c
libtool --tag=CC --mode=link gcc -o hello.la -rpath /usr/local/lib -module -avoid-version hello.lo

iratqq

(require "wlos.scm")

(define-class <hello> object
  '((foo #f))
  '(hello!
    hello?
    bar))

(class-set-method! <hello> hello!
  (lambda (self)

iratqq

(loop for x from 1 to 100
      if ((lambda (n) (= (mod n 3) 0)) x) do (princ "Fizz")
      if ((lambda (n) (= (mod n 5) 0)) x) do (princ "Buzz")
      if ((lambda (n) (not (or (= (mod n 3) 0) (= (mod n 5) 0)))) x) do (princ x)
      do (princ ", "))

iratqq

;; echod on uim
(require "socket.scm")

(define (echod:start hostname servname)
  (filter
   integer?
   (call-with-getaddrinfo-hints
    '($AI_PASSIVE) '$PF_UNSPEC '$SOCK_STREAM #f
    (lambda (hints)
      (call-with-getaddrinfo

iratqq

;; print all custom values
(require "i18n.scm")

(module-load "custom-enabler")

(define (build-custom-list-tree type sym)
  (map (lambda (ch)
         (list
          (car ch)
          (ugettext (custom-choice-label sym (car ch)))

iratqq

Index: uim/uim-notify.c
===================================================================
--- uim/uim-notify.c	(revision 5997)
+++ uim/uim-notify.c	(working copy)
@@ -111,6 +111,8 @@
 
   if (strcmp(agent->desc()->name, name) == 0) {
     return UIM_TRUE;
+  } if (getenv("UIM_DISABLE_NOTIFY") != NULL) {
+    return UIM_TRUE;

iratqq

mattn: さいたまさいたまー?

いえ、ちがいます

ちがうのか

iratqq

#! /bin/sh
# twitter notifier for ti
keyword=$1
tail -f ${HOME}/ti/out |
while read foo
do
	if `echo ${foo} | egrep "${keyword}" > /dev/null`; then
		notify-send --expire-time=0 twitter "`echo ${foo}`"
	fi
	# echo $foo | nkf -e

iratqq

diff -aruN yamcha-0.33.orig/libexec/mkdarts.cpp yamcha-0.33/libexec/mkdarts.cpp
--- yamcha-0.33.orig/libexec/mkdarts.cpp	Sat Mar 13 02:12:13 2004
+++ yamcha-0.33/libexec/mkdarts.cpp	Fri Sep 18 17:53:16 2009
@@ -27,7 +27,7 @@
 #include <fstream>
 #include <string>
 #include <vector>
-#include "darts.h"
+#include <darts-clone.h>