初稿: 2018-08-09 Thu 13:19
最終更新日: 2018-12-14 Fri 20:44
ホーム | 文書トップ | 目次

org-with-limited-levels
与えられたレベル以下のツリーを隠した上でbodyを実行する

 1: (defmacro org-with-limited-levels (&rest body)
 2:   "Execute BODY with limited number of outline levels."
 3:   (declare (debug (body)))
 4:   `(progn
 5:      (defvar org-called-with-limited-levels)
 6:      (defvar org-outline-regexp)
 7:      (defvar outline-regexp)
 8:      (defvar org-outline-regexp-bol)
 9:      (let* ((org-called-with-limited-levels t)
10:             (org-outline-regexp (org-get-limited-outline-regexp))
11:             (outline-regexp org-outline-regexp)
12:             (org-outline-regexp-bol (concat "^" org-outline-regexp)))
13:        ,@body)))

日付: 2018-08-09 Thu 13:19

著者: conao

Created: 2018-12-14 Fri 21:04

Validate