2014/02/22

シェルでランダムな文字列を各行に付ける

yarn:~% cat /tmp/a
1
2
3
yarn:~% strings /dev/urandom | grep -oE '\w{3}' | head -n `grep -c '' /tmp/a` |paste - /tmp/a
G0n 1
eIZ 2
vI5 3

2014/02/16

C-c C-f でカーソル位置の FiveAM テストを実行する

Slime では C-c C-c でカーソル位置の defun などをコンパイルする。それと同じように C-c C-f でカーソル位置の FiveAM テストを実行したかったので書いてみた。

(defun slime-fiveam-debug-test ()
"fiveam:debug!"
(interactive)
(slime-interactive-eval
(format "(fiveam:debug! %s)" (slime-defun-at-point))))

(define-key slime-mode-map
[(control ?c) (control ?f)] 'slime-fiveam-debug-test)

ちゃんと動く?