EvernoteとEmacsの連携(ただしWindows限定): カレントバッファの内容をEvernote新規Noteとして登録する
「http://r.nanapi.jp/1970/」 という記事で、Evernoteをコマンドラインで制御するENscriptというものの存在を知ったので、これを利用して、標記のemacs lispをつくった。
Windows限定ということもあり、需要は低いでしょうなぁ。
使い方
スクリプト
(defun save-current-buffer-to-evernote (title tagstring) "カレントバッファの内容をevernoteに保存する" (interactive (list (read-string "Note Title: ") (read-string "Tags (with SPC separation): ") )) (save-excursion (let* ((work-buffer-name "*en-workbuffer*") (bufbody (buffer-substring (point-min) (point-max))) (tmp-file-name (concat (getenv "TEMP") "\\" title ".txt")) (ens-exec "\"C:/Program Files/Evernote/Evernote3.5/ENscript.exe\"") (ens-com (concat ens-exec " createNote" " /s \"" tmp-file-name "\"" " /t " (replace-regexp-in-string " +" " /t " tagstring))) work-buffer) (if (get-buffer work-buffer-name) (kill-buffer (get-buffer work-buffer-name))) (setq work-buffer (get-buffer-create work-buffer-name)) (set-buffer work-buffer) (insert bufbody) (write-file tmp-file-name) (message ens-com) (shell-command ens-com) (kill-buffer work-buffer) )))