2013年3月15日から2013年3月11日までの日記を表示中
2013年 3月15日 (金)
■Twitter archive
Twitterの設定いじろうと思って設定メニュー開いたら、「Your Twitter archive」なんてボタンが。おお、これ、過去の全ツイートダウンロードできるやつじゃないですか。ちょっと前にニュースになって、いつ始まるのかと思ってたんですが、とっくに始まっていたんですね。
ツイートは、Zipで固められたアーカイブになっていて、展開してindex.htmlをブラウザで開くことでアクセスするのね。データ自体はJSONか何かになってるんですが、ツイート本文は全部「\u」+ UCS-2 か何かの形式になっているようで、grepできないのが微妙に不便・・・と思ったらブラウザ上から検索できました。何気にすごいアーカイブだ・・・。
というわけで、まだ基板を1枚しか所持していなかった頃や、初めて基板セールに朝から行って陽さんと会ったときなどのツイートを見ては懐かしんだりしておりました。Twitterを始めたのが2008年の1月1日なので、何だかんだでもう5年以上過ぎてるんですね。
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月13日 (水)
■飲み
タイ料理で飲み会でした。お疲れ様でした。
[コメントを書く]
■KATAMARI FOREVER
[コメントを書く]
2013年 3月12日 (火)
■最大往生
Amazonで限定版の予約が始まっていたので予約しました。もちろん届くのは実家(´・ω・`)
[コメントを書く]
2013年 3月11日 (月)
■Skype
朝からSkypeで日本と色々やり取りしたり。便利な時代です。
[コメントを書く]
2013年3月15日から2013年3月11日までの日記を表示中
[コメントを書く]