mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-21 05:18:57 +00:00
Re-introduce the variable `org-inlinetask-export'
This commit is contained in:
parent
db607b3e2f
commit
cc0a819186
|
@ -1,3 +1,10 @@
|
||||||
|
2009-10-12 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-inlinetask.el (org-inlinetask-export): Re-introduce
|
||||||
|
variable.
|
||||||
|
(org-inlinetask-export-handler): Only export inline task if the
|
||||||
|
user option calls for it.
|
||||||
|
|
||||||
2009-10-10 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-10-10 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org-exp.el (org-export-handle-export-tags): Remove inlinetask
|
* org-exp.el (org-export-handle-export-tags): Remove inlinetask
|
||||||
|
|
|
@ -93,6 +93,12 @@ the value of this variable."
|
||||||
:group 'org-inlinetask
|
:group 'org-inlinetask
|
||||||
:type 'boolean)
|
:type 'boolean)
|
||||||
|
|
||||||
|
(defcustom org-inlinetask-export nil
|
||||||
|
"Non-nil means, export inline tasts.
|
||||||
|
When nil, they will not be exported."
|
||||||
|
:group 'org-inlinetask
|
||||||
|
:type 'boolean)
|
||||||
|
|
||||||
(defvar org-odd-levels-only)
|
(defvar org-odd-levels-only)
|
||||||
(defvar org-keyword-time-regexp)
|
(defvar org-keyword-time-regexp)
|
||||||
(defvar org-drawer-regexp)
|
(defvar org-drawer-regexp)
|
||||||
|
@ -139,6 +145,7 @@ Either remove headline and meta data, or do special formatting."
|
||||||
(setq content (buffer-substring beg (1- (point-at-bol))))
|
(setq content (buffer-substring beg (1- (point-at-bol))))
|
||||||
(delete-region beg (1+ (match-end 0))))
|
(delete-region beg (1+ (match-end 0))))
|
||||||
(goto-char beg)
|
(goto-char beg)
|
||||||
|
(when org-inlinetask-export
|
||||||
(when (string-match org-complex-heading-regexp headline)
|
(when (string-match org-complex-heading-regexp headline)
|
||||||
(setq headline (concat
|
(setq headline (concat
|
||||||
(if (match-end 2)
|
(if (match-end 2)
|
||||||
|
@ -162,7 +169,7 @@ Either remove headline and meta data, or do special formatting."
|
||||||
(insert "\n"))
|
(insert "\n"))
|
||||||
(insert indent)
|
(insert indent)
|
||||||
(backward-delete-char 2)
|
(backward-delete-char 2)
|
||||||
(insert "THISISTHEINLINELISTTEMINATOR\n")))))
|
(insert "THISISTHEINLINELISTTEMINATOR\n"))))))
|
||||||
|
|
||||||
(defun org-inlinetask-get-current-indentation ()
|
(defun org-inlinetask-get-current-indentation ()
|
||||||
"Get the indentation of the last non-while line above this one."
|
"Get the indentation of the last non-while line above this one."
|
||||||
|
|
Loading…
Reference in a new issue