qiita.elで専用バッファを作ってそこから投稿するようにしてみた

qiita-el/README.org at master · gongo/qiita-el · GitHub

投稿するときにファイルを作成したり、新規にバッファを作ったりするのが
面倒だったので、qiita:newを実行すると自動的にバッファが作成されるように
してみた。

;;;###autoload
(defun qiita:new (&optional entry)
  "Open a buffer for a Qiita entry."
  (interactive)
  (switch-to-buffer (qiita:new-noselect entry)))

;;;###autoload
(defun qiita:new-noselect (&optional entry buf)
  "Open a buffer for a Qiita entry without selecting the buffer."
  (interactive)
  (let* ((title " Title")
         (content "")
         (buf (get-buffer-create qiita->new-post-buffer)))
    (with-current-buffer buf
      ;; initialize
      (erase-buffer)
      (insert (format "# %s\n\n" title))
      (insert content)
      (unless (= (char-before (point)) ?\n) (insert "\n"))
      (markdown-mode)
      (goto-char (point-min))
      (setq buffer-undo-list nil)
      (set-buffer-modified-p nil))
    buf))