;;2009-03-31 04-01 (defun h-cocolog-0rg2send (&optional arg) "cocolog blog" (interactive "P") (let* ((file-name "~/saisinn/test.org") (file-buffer-name (progn (string-match ".+/\\(.+\\)$" file-name) (replace-match "\\1" nil nil file-name))) (workbuf nil)) (unless (null arg) (save-excursion (setq file-name (read-file-name "Select File:" "~/saisinn/" "~/saisinn/test.org" t "test.org")) (setq file-bu
![org-modeのファイルをHTML化しmapaeのエントリ本文に置き換えるEmacs-Lisp](https://cdn-ak-scissors.b.st-hatena.com/image/square/126e9c63960837b5815901e11e1f6c1303c17f2b/height=288;version=1;width=512/https%3A%2F%2Fblog.seesaa.jp%2Fimg%2Fogp_logo.png)