« ^ »
所要時間: 約 1分

editor-modeでコメントのたびにgit addおよびgit commitをしないといけないのは大変なので C-c C-s したらそれを実行されるように変更する。

(defun editor-save-as-kill ()
  (interactive)
  (symdon-ga-post
   (editor-get-editor-buffer-text))
  (kill-buffer editor-buffer-name))
Before

symdon-ga-postは保存したファイルのバッファを返してくるので そのバッファにswitch-to-bufferすることにした。

(defun editor-save-as-kill ()
  (interactive)
  (switch-to-buffer
   (symdon-ga-post
    (editor-get-editor-buffer-text)))
  (kill-buffer editor-buffer-name))
After

https://github.com/TakesxiSximada/emacs.d/commit/b90abd59fee45daddc8445125e31539a2d02289e

さらに自動でgit addとpushもするように修正した

(defun symdon-ga-add-comment ()
  (interactive)
  (let ((filename (buffer-name (current-buffer))))
    (shell-command (format "git add %s" filename))
    (shell-command (format "git commit -m 'Add comment.' %s" filename))))


(defun symdon-ga-post (text)
  (with-current-buffer (find-file-noselect (symdon-ga-create-new-file-path))
    (insert text)
    (save-buffer)
    (symdon-ga-add-comment)
    (current-buffer)))

https://github.com/TakesxiSximada/emacs.d/commit/41066fd3a925c5eda5cd0b03ceb73f05877faaf0