Shammer's Philosophy

My private adversaria

2011-11-01から1ヶ月間の記事一覧

Linux(CentOS5.7)にEmacs環境構築

作業内容を忘れないようにメモ。 Emacsのインストール SKKのインストール Lispのインストール SLIMEのインストール とりあえず、これと自分の.emacs.d/init.elを組み合わせればOK。Emacs既存のものは削除(yum erase emacs)して、ftp://ftp.gnu.org/pub/gnu…

テキストボックスの追加

Webページを開いて何か入力する際に、入力項目を追加したり削除したりするボタンが欲しいときがある。それを実現する JavaScript を書いてみた。今回はテキストボックスの追加のみだが。 <form name="testForm" action="http://www.me.local/post" method="POST"> <table border="1"> <tbody id="id1"> <tr><th>Field0</th><td><input type="text" name="field0"></input></td></tr> </tbody> </table>

Lisp UDP Client

Lisp で UDP のクライアントを書いてみた。 (let ((client (make-socket :type :datagram))) (multiple-value-bind (char-vector count) (encode-string-to-octets "Test" :external-format :UTF-8) (format t "char-vector is ~A~%" char-vector) (format t…

netcat Mac 編

Mac

netcat コマンド - Shammerismで netcat のことを書いたけれども、Mac だと勝手が違うようだ。そのため、簡単にメモ。 Listen p option は使用できない。以下のように書く。 $ nc -l 127.0.0.1 12345 ...option p と -l の組み合わせはエラーになる。 $ nc -…

Timestamp のみを返す JSP

curl などで動作検証していると、JSP を使用した際の余計な改行が気になる。なので、余計な改行なしでタイムスタンプのみを返す JSP を作成。一行だけなのだが、また暫くしてどうやるんだっけ?となると面倒だからメモ代わりに残しておく。 $ cat time.jsp <…

AMEX申し込み

コストコに行くようになった。そして、コストコではいつも大量買してしまう。そのため、支払金額も大きいのだが、コストコではクレジットカードはAMEXとオリコの何とかいうカードしか使用できない。AMEXは、日比谷の地下かなんかで勧誘しているのが見たこと…

dovecot にログイン

とりあえずは、imaps でなく imap でいいからとインストールしてみたが、telnet で動作確認すると以下のようになってしまった。 $ telnet xxx 143 Trying xxx... Connected to xxx. Escape character is '^]'. * OK [CAPABILITY IMAP4rev1 LITERAL+ SASL-IR …

文字列の分割

Lisp で文字列を分割させたい。Java でいうところの split のようなもの。標準ではないようなのでちょろっと書いてみた。 (defun split-string (split-char target) (let ((splitted-string nil)) (do () () (let ((first-index (position split-char target…

Lisp 独自 dictionary version 20111105

Lisp 独自 dictionary version 20111102 - Shammerismの内容で若干余計な部分が見つかったのでちょっと手直し。ちょっとだけスマートになって動作は変わらず。 (defun add-keyvalue-to-dictionary (source key value) (let ((new-dictionary (list (cons key…

Lisp 独自 dictionary version 20111102

Lisp 独自 dictionary version 20111029 - Shammerismに手を加え、show-dictionary を見やすくしてみた。具体的には sort するように改良。最終的に以下のようになった。 (defun add-keypair-to-dictionary (source pair) (append source (list pair))) (def…