初稿: 2018-07-30 Mon 16:37
最終更新日: 2018-12-14 Fri 20:44
ホーム | 文書トップ | 目次

エクスポートオプション取得
org-modeのエクスポートオプションの取得方法

(org-with-point-at (point-min)
  (catch :found
    (let ((case-fold-search t))
      (while (re-search-forward
              "^[ \t]*#\\+EXPORT_FILE_NAME:[ \t]+\\S-" nil t)
        (let ((element (org-element-at-point)))
          (when (eq 'keyword (org-element-type element))
            (throw :found
                   (org-element-property :value element))))))))

日付: 2018-07-30 Mon 16:37

著者: conao

Created: 2018-12-14 Fri 21:04

Validate