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

org-get-limited-outline-regexp
アウトラインの正規表現を返す

 1: (defvar org-outline-regexp) ; defined in org.el
 2: (defvar org-odd-levels-only) ; defined in org.el
 3: (defvar org-inlinetask-min-level) ; defined in org-inlinetask.el
 4: (defun org-get-limited-outline-regexp ()
 5:   "Return outline-regexp with limited number of levels.
 6: The number of levels is controlled by `org-inlinetask-min-level'"
 7:   (cond ((not (derived-mode-p 'org-mode))
 8:          outline-regexp)
 9:         ((not (featurep 'org-inlinetask))
10:          org-outline-regexp)
11:         (t
12:          (let* ((limit-level (1- org-inlinetask-min-level))
13:                 (nstars (if org-odd-levels-only
14:                             (1- (* limit-level 2))
15:                           limit-level)))
16:            (format "\\*\\{1,%d\\} " nstars)))))
17: 

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

著者: conao

Created: 2018-12-14 Fri 21:04

Validate