2014-07-24
進捗がなかったら, Emacsを終了しない
emacs |
コード
(defun my/kill-emacs-hook () (let ((progress (read-string "進捗どうですか? " "ダメです"))) (when (string-match-p "\\(?:ダメ\\|だめ\\|駄目\\)" progress) (error "作業してください")))) (add-hook 'kill-emacs-hook 'my/kill-emacs-hook)
イメージ
おわりに
めったに終了しないのであまり意味はなさそうです.
コメントを書く
トラックバック - http://d.hatena.ne.jp/syohex/20140724/1406215404
リンク元
- 55 http://t.co/exRqFQkIxP
- 38 http://b.hatena.ne.jp/
- 29 http://t.co/gYnvz12EgE
- 19 https://www.google.co.jp/
- 11 http://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&ved=0CCQQFjAB&url=http://d.hatena.ne.jp/syohex/20110616/1308237655&ei=cNXQU43NDsnj8AWYoICACQ&usg=AFQjCNFHVCoUjf1UODK5QJTta9d1U1u6JQ&bvm=bv.71667212,d.dGc
- 10 http://t.co/ws1KyJpqNV
- 8 http://getpocket.com/redirect?url=http://d.hatena.ne.jp/syohex/20140623/1403530952
- 8 http://www.google.co.jp/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&ved=0CB4QFjAA&url=http://d.hatena.ne.jp/syohex/20101224/1293206906&ei=pNfQU_nFL4u68gXTioH4CA&usg=AFQjCNE6ymh1PB1kvDliMNf4tOOmyQSCLQ&sig2=NF1fLgJcsLCkiJrYIbtgwg
- 5 https://www.google.com/
- 4 http://d.hatena.ne.jp/