続かない日記

calc-string を使ってお小遣いを計算できるやつ、

適当過ぎるけど変数も関数も使えたりする

使い方は M-x field-over-write で

| meat | fish | vegetable | total|

| A=1000 |B=2000 |C= 3000 |A+B+C|

=>

続きを読む ...

scheme の cut ってこんなんかな

(defmacro cut (expr &rest rest)

(let*((r)

(l (dolist(x rest(nreverse(delete () r)))

(push (cond((eq '<> x)

(gensym))

続きを読む ...

process から apropos で取ってくるといいみたいだ

初回はどうしても起動に時間がかかってしまうが後は大丈夫みたいだ

ksyword file から補完のした方がすっぱりするかな

(defun scheme-apropos(str)

(let(process l)

(setq process (make-process "e:/usr/bin/Gauche/bin/gosh.exe -i "))

(process-send-string ; send

続きを読む ...

xyzzy の プロセスの使い方を勉強がてらcomint 風 なものをでっち上げた、comint.el を読んだ訳でもないので名前だけぱ..

編集しながらあるプロセスに region だけ送りたいと思ったらさっと書けるもの

が欲しかった。

見た目が派手なだけで実際はすぐに飽きてしまう気がするが ..

続きを読む ...

anything に debug させるとか

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 結構使い勝手が在りそうだ

(defun call-process-list(cmd &key(work)(buffer)(string)(hash))

(interactive)

(let((outfile (make-temp-file-name "$call_" "tmp"))

(escape (lambda(x)(substitute-string x "\"" "\\\\\"")))

続きを読む ...

scheme-mode のプロセス投げる奴便利過ぎるので他のでも使いたいといゆう事でscheme-mode のを丸まま名前だけ変えて他のも使えるようにしたりした。いじれそうなとこなかった

自分用メモ

(defvar-local *pipe-process* nil)

(defvar-local *pipe-process-open-hook* nil)

(defvar-local *pipe-process-close-hook* nil)

(defvar *pipe-process-send-filter* 'pipe-default-send-filter)

(defvar *pipe-process-read-filter* 'pipe-default-read-filter)

続きを読む ...

最近のツボ、ラジオのリポビタンD の CM

続きを読む ...

lisp 使いの人のコードや文を読んでると 趣味 lisp とは言いにく過ぎる T T)

> Lispは神が世界を記述するのに使った言葉。

> 最初に「光あれ！」とかやってたのは全部Lisp。

こういゆう見るとタマゴが先がにわとりが先かとか、宇宙の終焉 みたいに深みどんどんはまっていく

厚焼きタマゴでいいのに。。

続きを読む ...

これ賛成ですけど、mode によっては余計なものまで export されてたりして萎

える時があるんだよな～

やっぱチラっと位が萌える

続きを読む ...

twitter-mode の修練中

web service はコロコロ仕様が変わったり、無くなったりするので、もうしばら

くいいやと思ってたけど面白い、twitter 今頃ですけど orz

俺モードで飽きるほうが、たち悪いですね orz

続きを読む ...