前回までで、 previous msgid と msgid をそれぞれのバッファにいいかんじで持ってくることができました。
ということで、そろそろ ediff-regions-wordwise に繋ぎこんでみます。
さっそく動かしてみた
サンプル rev-list-options.po を開き、 previous msgid があるエントリに移動してから M-x po-ediff-previous-msgid として実行します。
動く、動く おー動いてる！
ここでキー入力待ちになりました。 C-M-c (CTRL+ALT+C) は押下しなければならないようです。
再びキー入力待ちになりました。 C-M-c 押下。
これでやっと目的のモノが表示されました。
終了は q
qを押下して ediff を抜けます。
プログラム
po-previous-msgid.el
;;; po-ediff-previous-msgid.el --- ediff previous-msgid and msgid.
;;; Author: kuma35
;;; Created: 2024/12/18
;;; Commentary:
;; previous msgid is '#|' marked in comment.
;;; Code:
(defcustom po-ediff-previous-msgid-buffer-a-name "*pepm-previous-msgid*"
"'po-ediff-previous-msgid' BUFFER A name. pepm is PoEdiffPreviousMsgid."
:type 'string
:require 'po-mode
:group 'po)
(defcustom po-ediff-previous-msgid-buffer-b-name "*pepm-now-msgid*"
"'po-ediff-previous-msgid' BUFFER A name. pepm is PoEdiffPreviousMsgid."
:type 'string
:require 'po-mode
:group 'po)
(defun po-extract-previous-msgid (buffer start end)
"Delete '#|' marker and unquote text from BUFFER START END.
delete '^#| ' each line. then unquote.
return is String with property."
(with-temp-buffer
(insert-buffer-substring buffer start end)
(goto-char (point-min))
(while (re-search-forward "^#\\(~\\)?|[ \t]*" nil t)
(replace-match "" t t))
(po-extract-unquoted (current-buffer) (point-min) (point-max))
)
)
(defun po-ediff-previous-msgid ()
"Ediff previous msgid (marked #| ) and msgid."
(interactive)
(po-find-span-of-entry)
(let (
(oldbuf (current-buffer))
(msgid (po-get-msgid))
(untranslated-regions (po-previous-untranslated-regions))
)
(save-current-buffer
(set-buffer (get-buffer-create
po-ediff-previous-msgid-buffer-a-name))
(setq buffer-read-only nil)
(erase-buffer)
(dolist (region untranslated-regions)
(insert (po-extract-previous-msgid oldbuf (car region) (cdr region)))
)
(goto-char (point-min))
(push-mark (point-max) t t)
(setq buffer-read-only t)
(restore-buffer-modified-p nil))
(save-current-buffer
(set-buffer (get-buffer-create
po-ediff-previous-msgid-buffer-b-name))
(setq buffer-read-only nil)
(erase-buffer)
(insert msgid)
(goto-char (point-min))
(push-mark (point-max) t t)
(setq buffer-read-only t)
(restore-buffer-modified-p nil)))
(ediff-regions-wordwise
po-ediff-previous-msgid-buffer-a-name
po-ediff-previous-msgid-buffer-b-name)
)
(provide 'po-ediff-previous-msgid)
;;; po-ediff-previous-msgid.el ends here
とりあえずは動いたけど
手動でやっていたころから比べると大幅な手間削減で、とりあえずはこれでいいんじゃないかとおもうのですが、まだ C-M-c を 2回キーインしなければなりません。これは次回以降でそのうち解決したいと思います。
今回はここまで。