とりあえず書いた関数だと、外部コマンドのエラーが確認出来なくて効率が悪い。外部コマンド出力をEmacsのバッファで確認できるようにした。
(defvar hatedara-cmd2 "外部コマンド")
(defun my_upload_org ()
(interactive)
(org-export-dispatch)
(let* ((extension (concat "." org-hatena-extension))
(outfile (org-export-output-file-name extension nil "~/tmp")))
(set-buffer (get-buffer-create "*hatedara-submit*"))
(if (get-process "my_upload_org")
(delete-process "my_upload_org"))
(erase-buffer)
(start-process-shell-command "my_upload_org" "*hatedara-submit*" hatedara-cmd2 (expand-file-name outfile))))
