Skip to content

Instantly share code, notes, and snippets.

// ==UserScript==
// @name fill library form
// @match https://www.meguro-library.jp/opw/OPW/OPWBOOK.CSP*
// ==/UserScript==
document.forms[0].usercardid.value = 'YOUR_ID';
document.forms[0].password.value = 'YOUR_PASSWORD';
document.forms[0].library.value = 3; // 3 == nakameguro ekimae
@higepon
higepon / gist:740064
Created December 14, 2010 06:13
クラス名が文字列
(define-class <window> ()
(;; Pointer to the parent window.
(parent :init-keyword :parent :init-form *root-window*)
;; Sizes of the window
(width :init-keyword :width :init-value 1)
(height :init-keyword :height :init-value 1)
;; Position of the window relative to the parent.
(x :init-keyword :x :init-value 0)
(y :init-keyword :y :init-value 0)
))
;; 第1回 Scheme コードバトン
;;
;; ■ これは何か?
;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。
;; 次回 Shibuya.lisp で成果を発表します。
;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。
;;
;; ■ 2 つのルール
;;
;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。
(heap "積み重ねた物")
(exploration "探査、探検")
(errand "使いっ走り")
(defect "欠点")
(allowance "割当量")
@higepon
higepon / test.scm
Created June 18, 2009 08:55
implementation of Skip Graphs
(library (skip graph)
(export node-search node-range-search node-insert! node-delete!
make-node node-key node-value
node->list node->key-list
max-level membership-counter
;; exported for test
buddy-op
link-op)
(import (rnrs)
(mosh)
(let ([server (make-server-socket "4649")])
(display "Echo server: START\n")
(let loop ([conn (socket-accept server)])
(let ([pid (spawn
(lambda ()
(display "child start\n")
(receive
[('connection conn)
(let loop ([data (socket-recv conn 100)])
(cond
(import (rnrs)
(mosh)
(mosh socket))
(define (irc-bot server port nick channel)
(let ([socket (make-client-socket server port)])
(define (send text)
(assert (<= (string-length text) 510))
(socket-send socket (string->utf8 (string-append text "\r\n"))))
(define (recv)
(let ([socket (make-client-socket "www.monaos.org" "http"
(os-constant 'AF_INET)
(os-constant 'SOCK_STREAM)
0
0)])
(socket-send socket (string->utf8 "GET /index.html HTTP/1.0\r\nhost: www.monaos.org\r\n\r\n") 0)
(display (utf8->string (socket-recv socket 9000 0))))
(import (rnrs)
(mosh)
(srfi :64))
(define-record-type failure
(fields
(immutable expr)
(immutable expected)
(immutable actual)))