mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 19:46:26 +00:00
Code Releases Activity

Re-introduce the variable `org-inlinetask-export'

Browse source
This commit is contained in:
Carsten Dominik 2009-10-12 09:28:02 +02:00
parent db607b3e2f
commit cc0a819186
2 changed files with 38 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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

55
lisp/org-inlinetask.el
View file

@ -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,30 +145,31 @@ 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 (string-match org-complex-heading-regexp headline) (when org-inlinetask-export
(setq headline (concat (when (string-match org-complex-heading-regexp headline)
(if (match-end 2) (setq headline (concat
(concat (match-string 2 headline) " ") "") (if (match-end 2)
(match-string 4 headline))) (concat (match-string 2 headline) " ") "")
(when content (match-string 4 headline)))
(if (not (string-match "\\S-" content)) (when content
(setq content nil) (if (not (string-match "\\S-" content))
(if (string-match "[ \t\n]+\\'" content) (setq content nil)
(setq content (substring content 0 (match-beginning 0)))) (if (string-match "[ \t\n]+\\'" content)
(setq content (org-remove-indentation content)) (setq content (substring content 0 (match-beginning 0))))
(if latexp (setq content (concat "\\quad \\\\\n" content))))) (setq content (org-remove-indentation content))
(insert (make-string (org-inlinetask-get-current-indentation) ?\ ) (if latexp (setq content (concat "\\quad \\\\\n" content)))))
"- ") (insert (make-string (org-inlinetask-get-current-indentation) ?\ )
(setq indent (make-string (current-column) ?\ )) "- ")
(insert headline " ::") (setq indent (make-string (current-column) ?\ ))
(if content (insert headline " ::")
(insert (if htmlp " " (concat "\n" indent)) (if content
(mapconcat 'identity (org-split-string content "\n") (insert (if htmlp " " (concat "\n" indent))
(concat "\n" indent)) "\n") (mapconcat 'identity (org-split-string content "\n")
(insert "\n")) (concat "\n" indent)) "\n")
(insert indent) (insert "\n"))
(backward-delete-char 2) (insert indent)
(insert "THISISTHEINLINELISTTEMINATOR\n"))))) (backward-delete-char 2)
(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."