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

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

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)

ちゃんと動く?