日: 2022年8月27日

elispでの検索とその後の処理

org2blogでのorg-roamのノードの投稿 を実装した際に得た知見を書き出す。

検索

正規表現での検索は re-search-forward で行なう。この関数を実行するとカーソルが移動するため、 必要に応じて save-excursion などで元のカーソル位置などを保存する。

下記をテスト用の文字列とする。(■はカーソル位置) 

■abc-123-ABC

カーソル位置で下記のLispを実行する。 

(defun test-search ()
  (re-search-forward "\\(abc\\)-\\(123\\)-\\(ABC\\)"))

カーソルはマッチした正規表現の後部に移動する。 

abc-123-ABC■

置換

テスト用の文字列の 123 を 456 に変換してみる。 

(defun test-replace ()
  (re-search-forward "\\(abc\\)-\\(123\\)-\\(ABC\\)")
  (replace-match "\\1-456-\\3")) 


abc-456-ABC■

削除

削除はマッチした文字列を空文字に置換することで実現できる。 

(defun test-delete-1 ()
  (re-search-forward "\\(abc\\)-\\(123\\)-\\(ABC\\)")
  (replace-match ""))

また、マッチ部分の位置情報を利用しても可能である。 

(defun test-delete-2 ()
  (re-search-forward "\\(abc\\)-\\(123\\)-\\(ABC\\)")
  (delete-region (match-beginning 0) (match-end 0)))

match-beginning と match-end の引数は正規表現のグループ番号なので、それを指定することでグループ単位での位置情報も利用できる。 abc-123-ABC の 123 を削除するには下記のように指定する。 

(defun test-delete-3 ()
  (re-search-forward "\\(abc\\)-\\(123\\)-\\(ABC\\)")
  (delete-region (match-beginning 2) (match-end 2))) 


abc--ABC■

org2blogでのorg-roamのノードの投稿

テスト (Shalev-Shwartz and Ben-David 2009)

関数

org-roam のノードを wordpress に投稿するための関数を作成した。

単純に org2blog-buffer-post-publish で作成されたプロパティを移動するだけ。 

(defun ks-post-to-wordpress ()
  (interactive)
  (let ((snow (format-time-string (org-time-stamp-format t t) (org-current-time)))
        (rtitle (org-make-options-regexp (list "title" "TITLE")))
        (rdate (org-make-options-regexp (list "date" "DATE")))
        (rblog   (org-make-options-regexp (list "blog" "BLOG")))
        (rpostid (org-make-options-regexp (list "postid" "POSTID")))
        (rorb2blog (org-make-options-regexp (list "org2blog" "ORG2BLOG")))
        line1 line2)
    (save-excursion
      (goto-char (point-min))
      (if (re-search-forward rorb2blog nil t 1)
          (progn
            (re-search-forward rdate nil t 1)
            (replace-match (concat "#+\\1: " snow))
            (org2blog-buffer-post-publish))
        (if (re-search-forward rtitle nil t 1)
            (progn
              (insert "\n\n")
              ;; TITLEプロパティの下にORG2BLOGプロパティを
              (insert "#+ORG2BLOG:\n")
              ;; TITLEプロパティの下にDATEプロパティを
              (insert (concat "#+DATE: " snow))
              ;; 投稿
              (org2blog-buffer-post-publish)

              ;; ここからファイル上部に記載される BLOG, POSTID を移動する.
              (goto-char (point-min))

              ;; BLOG を退避、削除する.
              (re-search-forward rblog nil t 1)
              (setq line1 (match-string-no-properties 0))
              (delete-region (match-beginning 0) (match-end 0))
              (delete-char 1)
              ;; POSTID を退避、削除する.
              (re-search-forward rpostid nil t 1)
              (setq line2 (match-string-no-properties 0))
              (delete-region (match-beginning 0) (match-end 0))
              (delete-char 1)

              ;; BLOG, POSTID を追加する.
              (re-search-forward rdate nil t 1)
              (insert "\n")
              (insert line1)
              (insert "\n")
              (insert line2)))))))

参考文献

Shalev-Shwartz, Shai, and Shai Ben-David. 2009. Understanding Machine Learning. Cambridge University Press. https://doi.org/10.1017/cbo9781107298019.