2013年3月14日の日記を表示中
2013年 3月14日 (木)
■Windowsの自動再起動
基本的にPC落とさない人なんですが、朝起きたらアップデートの余波でWindowsが勝手に再起動してました(´・ω・`)。うう、またVirtual Box上のLinuxデスクトップが・・・orz。レジストリいじって阻止するかー。
■Emacs Lisp
久しぶりにこんなの.emacsに書いたり。単にMewで送信元+SMTPサーバの設定をキー一発で切り替えるだけの処理ですが、メールを書き始めた後で設定を変えたくなったとき用のバッファの編集処理を書くのにえらい時間かかっちゃいました。というか、ループの処理とかこんなんでいいんだっけ・・・(;´Д`)
(defun nsk-set-mew-smtp-server-conf1 () (interactive) (message "Mew Configuration 1") (setq mew-from "...") (setq mew-dcc "...") (setq mew-smtp-server "...") (setq mew-smtp-ssl t) (setq mew-smtp-user "...") (setq mew-smtp-ssl-port "465") (setq nsk-mew-smtp-server 'conf1) ) (defun nsk-set-mew-smtp-server-conf2 () (interactive) (message "Mew Configuration 2") (setq mew-from "...") (setq mew-dcc "...") (setq mew-smtp-server "...") (setq mew-smtp-ssl t) (setq mew-smtp-user "...") (setq mew-smtp-ssl-port "465") (setq nsk-mew-smtp-server 'conf2) ) ;; set default (nsk-set-mew-smtp-server-conf1) (defun nsk-toggle-mew-address () (interactive) (if (eq nsk-mew-smtp-server 'conf1) (nsk-set-mew-smtp-server-conf2) (nsk-set-mew-smtp-server-conf1))) (defun nsk-update-mew-header () (interactive) (save-excursion (goto-char (point-min)) (catch 'header-loop (while t (setq line-start (point)) (end-of-line) (setq line-end (point)) (setq line-str (buffer-substring-no-properties line-start line-end)) (if (string-match "^----$" line-str) (throw 'header-loop t) (if (string-match "^From: " line-str) (progn (beginning-of-line) (forward-char (length "Form: ")) (delete-region (point) line-end) (insert mew-from)) (if (string-match "^Dcc: " line-str) (progn (beginning-of-line) (forward-char (length "Dcc: ")) (delete-region (point) line-end) (insert mew-dcc))))) (if (eobp) (throw 'header-loop t) (forward-line 1)) )))) (defun nsk-toggle-mew-address-and-update-mew-header () (interactive) (nsk-toggle-mew-address) (nsk-update-mew-header) ) (add-hook 'mew-init-hook '(lambda () (define-key mew-addrbook-mode-map "\C-cs" 'nsk-toggle-mew-address) (define-key mew-draft-mode-map "\C-cs" 'nsk-toggle-mew-address-and-update-mew-header) (define-key mew-header-mode-map "\C-cs" 'nsk-toggle-mew-address) (define-key mew-message-mode-map "\C-cs" 'nsk-toggle-mew-address) (define-key mew-summary-mode-map "\C-cs" 'nsk-toggle-mew-address)))
[コメントを書く]
■KATAMARI FOREVER
KATAMARI FOREVER遊んでみたんですが、歌は普通に日本語なのね、これ (´・ω・`)。英語でカバーされてるものとばかり・・・。そしてPS3版が、音楽が勘違いアレンジが多い上に、処理落ちしまくりのかなり微妙なデキだったことを思い出しました。しまったなー・・・。
[コメントを書く]
2013年3月14日の日記を表示中
[コメントを書く]