12/05 日記

今日はブレイキング・バッドが見たかったのでバイトを休み優雅な午後を過ごした．ハイゼンベルグことウォルターホワイトの義兄のDEAのおっさんがかわいい．おっさん萌えというやつをひしひしと感じている．ブレイキング・バッドはシーズン2の8話まで見た．

研究室を選ばなければならないのだけど，迷っている．私は何を卒研の対象にすると嬉しくなるのだろうか．グラフとか推論とかに興味がある．

emacsから手軽に日記を書きやすくした．

下記のように.emacsに書いてやる．M-x hatena-blog-writeで投稿内容を書いてあげて，M-x hatena-blog-saveでそいつをバックアップディレクトリへタイムスタンプをファイル名としてx-x-x-x-x-x.mdやってから保存してやるみたいな．その際，テンポラリーなblog.mdをゴミ箱へ移動する．ほんとは，参考URLみたいにメール投稿で記事をポストしたかったのだけど，送信がうまく行かなくてやめた． 参考URL

(setq my-blog-file-path "~/Dropbox/blog.md")
(setq my-blog-backup-dir "~/Dropbox/hatena-blog-entries/")

(defun hatena-blog-write ()
  (interactive)
  (if (file-exists-p my-blog-file-path)
      (find-file my-blog-file-path)))

(defun hatena-blog-save ()
  (interactive)
  (write-file (concat my-blog-backup-dir (format-time-string "%Y-%m-%d-%H-%M-%S") ".md"))
  (move-file-to-trash my-blog-file-path))

blog.mdがないときにいちいちblog.mdを作りにいかなければならないので下記のようにした． これを書くだけで，1時間位かかった．死にたい．バッファーの操作とかでハマってた．というか，with-current-bufferとかよく分かってない．(with-current-buffer (get-buffer-create "blog")とかを使ってアレしたけど上手くいかなくて，なんかアレ．

俺が実現したいのは，~/Dropbox/blog.mdが見つかれば，そいつを開く，見つからなければ，~/Dropbox/blog.mdを作成し開く．という動作である．下記のように書けば，一応思った通りの動作をしてくれてはいる．でも少し分かってないところがあって気持ち悪い．つらい．

(defun hatena-blog-write ()
  (interactive)
  (if (file-exists-p my-blog-file-path)
      (find-file my-blog-file-path)
    (progn
      (with-temp-buffer
        (write-file my-blog-file-path))
        (find-file my-blog-file-path))))

これで，日記を書きやすくなったのでどんどん更新していきたい． でも書いたものをいちいちコピペで，はてブロへ投稿させてるのでアホっぽい． どうにかしたい．