Mercurial > emacs
comparison lisp/org/org-taskjuggler.el @ 109462:a150e8a14679
Install version 7.01 of Org-mode
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* ob-C.el: New file.
* ob-R.el: New file.
* ob-asymptote.el: New file.
* ob-clojure.el: New file.
* ob-comint.el: New file.
* ob-css.el: New file.
* ob-ditaa.el: New file.
* ob-dot.el: New file.
* ob-emacs-lisp.el: New file.
* ob-eval.el: New file.
* ob-exp.el: New file.
* ob-gnuplot.el: New file.
* ob-haskell.el: New file.
* ob-keys.el: New file.
* ob-latex.el: New file.
* ob-lob.el: New file.
* ob-matlab.el: New file.
* ob-mscgen.el: New file.
* ob-ocaml.el: New file.
* ob-octave.el: New file.
* ob-perl.el: New file.
* ob-python.el: New file.
* ob-ref.el: New file.
* ob-ruby.el: New file.
* ob-sass.el: New file.
* ob-screen.el: New file.
* ob-sh.el: New file.
* ob-sql.el: New file.
* ob-sqlite.el: New file.
* ob-table.el: New file.
* ob-tangle.el: New file.
* ob.el: New file.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-mks.el: New file.
* org-capture.el: New file.
2010-07-19 Christian Egli <christian.egli@sbszh.ch>
* org-taskjuggler.el: New file.
2010-07-19 Matt Lundin <mdl@imapmail.org>
* org-agenda.el (org-search-view): Fixed inclusion of agenda-archives
in org-agenda-text-search-extra-files.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-list.el (org-list-send-list): Locally bind variable
`txt'.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org.el (org-reload): now also reloading babel files
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-set-plist): Make sure txt is a string
before calling `string-match'.
(org-capture-templates): Fix customization type.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-preprocess): Make a special case for \nbsp.
(org-latex-entities): Remove the entry for \nbsp.
(org-latex-entities-exceptions): Variable removed.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-refile): Do not try to manipulate
bookmark list.
* org.el (org-refile): Use the correct bookmark here.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-list.el (org-list-send-list): Parse list from its true beginning.
* org.el (org-ctrl-c-ctrl-c): Maybe send the list when at a list item.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-insert-link): Correctly determine if we should use
a relative path.
2010-07-19 Nicolas Goaziou <n.goaziou@gmail.com>
* org-list.el (org-list-radio-list-templates): Fix templates.
2010-07-19 Nicolas Goaziou <n.goaziou@gmail.com>
* org-list.el (org-list-send-list): regexp defining the start of
a radio list is now on par with the one used for radio tables.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-entities.el (org-entities-help): Add a headline for
the user-defined entities.
2010-07-19 Dirk-Jan C. Binnema <djcb.bulk@gmail.com> (tiny change)
* org-agenda.el (org-agenda-action): Document capture key and add it
to the prompt.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-latex.el (org-export-latex-listings-langs): added (sqlite "SQL")
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-first-lines): Do not mark
meta lines for removal. Do not remove BABEL config lines during export
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-capture.el (org-capture): Check if
`org-capture-link-is-already-stored' is bound before evaluating.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org.el: added autoload for org-babel-do-load-languages
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-src.el (org-src-lang-modes): added sqlite to sql-mode
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el: Change indentation to match coding style
guideline.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (org-feed-unescape, org-feed-parse-atom-feed): Load XML
library if necessary.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-beamer.el (org-beamer-amend-header): Standardize the
header cookie for the beamer extra stuff.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-beamer.el (org-beamer-amend-header): Put extra header
last in header.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-exp-blocks.el (org-export-blocks-format-ditaa)
(org-export-blocks-format-dot): Remove text properties of body before
calculating cache hash.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-tabular-environment): New option.
(org-export-latex-tables): Use `org-export-latex-tabular-environment'.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-compat.el (org-version-check): New function.
* org-indent.el (org-indent-mode): Check for exact emacs version.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-templates): Allow the template
to come from a file or function call.
(org-capture-place-entry): Get the template from file or function.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-agenda.el (org-agenda-bulk-action): Don't create marker for
position if target is entire file.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-autoload): Autoload a few more org-table functions.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org.el (org-babel-load-languages): adding ob-mscgen
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-latex.el (org-export-latex-tables): format string now
matches options
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org.el (org-babel-load-languages): this variable controls which
languages will be loaded by org-babel. It is customizable through
the customize interface.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-latex.el (org-export-latex-format-image): updated number of
arguments to allow for an optional short-name
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-indent.el (org-indent-mode): Refuse to turn on prior to Emacs 23.2
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-set-target-location): Store
exact positions for file+regexp and file+function targets.
(org-capture-place-entry, org-capture-place-item)
(org-capture-place-table-line, org-capture-place-plain-text): Respect
exact positions.
(org-capture-finalize): Make sure we are at the beginning of a line
when fixing the empty lines after the entry.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-entry-get-with-inheritance): New argument LITERAL-NIL.
(org-entry-get): Pass `literal-nil' into
`org-entry-get-with-inheritance'.
(org-todo): React to nil values of the LOGGING property.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-default-notes-file): Update docstring
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-link-frame-setup): Use `org-gnus-no-new-news' as default.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp.el (org-export-attach-captions-and-attributes): adding
a shortname attribute to caption strings under the symbol name
org-caption-shortn.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-switchb): Renamed from `org-iswitchb'. Improve
docstring.
(org-iswitchb): New alias.
(org-ido-switchb): Make alias point to `org-switchb'.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-fill-template): Respect
time-of-day preference in template prompt.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (org-feed-unescape): Remove superfluous lambda.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-wl.el (org-wl-disable-folder-check): New customization
variable.
(org-wl-open): Disable folder check depending on
`org-wl-disable-folder-check'.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-set-target-location): Fix
file+function interpretation.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (org-feed-parse-rss-entry): Unescape rss element
content.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (xml-entity-alist): Declare variable
`xml-entity-alist' for byte compiler.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (org-feed-unescape): New function. Unescape
protected entities.
(org-feed-parse-atom-entry): Use function for atom:content
type text and html.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-feed.el (org-feed-parse-rss-feed): Ignore case of rss
element names.
2010-07-19 Bernt Hansen <bernt@norang.ca>
* org.el (org-time-string-to-absolute): Ignore cyclic repeater
when displaying items on todays agenda date.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-get-progress): Avoid reusing previous
value of EXTRA.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-publish.el (org-publish-initialize-cache): Make
timestamp directory, the entire path to it.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-handle-comments): Make sure to check
for protection in the comment line, and not in the line after it.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-html.el (org-export-html-preprocess): Call org-format-latex,
possibly with a protect-only argument.
* org.el (org-format-latex): New argument PROTECT-ONLY.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp.el (org-export-handle-table-metalines): this function
removes table specific meta-lines, now that we aren't wiping
everything that looks remotely like a comment at the end of the
export process we have to be sure to catch all of the specific lines
in org-exp.el
2010-07-19 Nicolas Goaziou <n.goaziou@gmail.com>
* org-exp.el: (org-export-select-backend-specific-text) Properly
get rid of #+Backend and #+ATTR_Backend specifics to backends not
matching the one we're exporting to.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* Makefile (lisp/org-install.el): replacing babel files in
construction of org-install.el
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-table.el (orgtbl-to-generic): added the :remove-newlines
option which will strip newline characters from the text of table
cells and replace then with "\n"
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-confirm-shell-link-function):
(org-confirm-elisp-link-function): Limit the values that can be set by
file variables.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-compute-latex-and-specials-regexp): Deal with
string elements by discarding them.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-iswitchb): Make sure to use at least iswitchb.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-capture.el (org-capture-position-for-last-stored):
org-capture-bookmark-last-stored-position): New functions.
(org-capture-place-table-line): Better error catching.
(org-capture-place-item):
(org-capture-place-entry):
(org-capture-place-plain-text): Call
`org-capture-position-for-last-stored'.
(org-capture-finalize): Just call
`org-capture-bookmark-last-stored-position'.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp.el (org-export-mark-blockquote-verse-center): fixed
small bug, now grabbing match data before overwritten by looking-at
this fixes a problem with remainders of #+end_quote lines appearing
in exported output
2010-07-19 David Maus <dmaus@ictsoc.de>
* org.el (org-link-frame-setup): Add customization option for
Wanderlust.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-latex.el (org-export-latex-fixed-width): now checking
org-example rather than org-protected on verbatim export, because by
default all ": " prefixed lines are marked protected
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-latex.el (org-export-latex-fixed-width): check for
protection before wrapping ": " lines as verbatim
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp.el (org-export-handle-comments): check for protection
before removing comments
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-entities.el (org-entities): Restructure the list.
(org-entities-help): Turn the help output into a buffer
in Org-mode, so that it becomes easier to find a symbol
in the structure.
(org-entities-create-table): Deal with new structure.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-agenda.el (org-write-agenda): Use backquotes to expand
`flet' at compile time.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-entry-properties): Make sure that standard property
names are used even if the user has customized time keywords.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-macs.el (org-not-nil): Return the value if not interpreted
as nil.
* org.el (org-entry-get):
(org-entry-get-with-inheritance): Interpret the value "nil"
as nil for properties.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-switch-to-buffer-other-window): Return the buffer.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-macs.el (org-not-nil): New function.
* org.el (org-block-todo-from-children-or-siblings-or-parent):
Use `org-not-nil' to interpret a property value of nil.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-truely-invisible-p): New function.
(org-beginning-of-line): Use `org-truely-invisible-p'.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-get-timestamps): No errors
while getting TODO state.
(org-agenda-highlight-todo): No error when no keyword has
been matched.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-timestamp-change): New optional argument UPDOWN.
Use this to identify calls from org-timestamp-up/down, so that we can
skip by rounding minutes in this case.
(org-timestamp-up):
(org-timestamp-down):
(org-timestamp-up-day):
(org-timestamp-down-day): Call org-timestamp-change with the
updown argument.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-action): Make `c' key call org-capture.
* org-capture.el: New file.
* org-compat.el (org-get-x-clipboard): Function moved here from
remember.el.
* org-mks.el: New file
* org.el (org-set-regexps-and-options): Allow statistic cookies as
part of complex headlines.
(org-find-olp): New argument THIS-BUFFER. When set, assume that the
OLP does not contain a file name.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-mode): Set `comment-start' instead of changing the
syntax of the `#' character.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-format-source-code-or-example): Mark examples
by a property. o
* org-html.el (org-export-html-close-lists-maybe): Check if raw
HTML stuff was actually made from an example
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* Makefile (LISPF): let's not compile files that won't often be used.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-latex.el: items are no longer skipped when their first line
ends on a protected element.
* org-list.el: protected environments looking like lists are not
exported anymore.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp-blocks.el (org-export-blocks-preprocess):
cleanup trailing newline after block
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-exp.el: comment regexp now matches documentation. No more
protection check when deleting comments before export.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-exp.el (org-export-preprocess-string):
now using `org-export-handle-include-files-recurse' to resolve
included files
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-agenda.el (org-agenda-get-deadlines):
(org-agenda-get-scheduled):
* org.el (org-time-string-to-seconds):
For deadline and scheduled agenda display ignore the cyclic repeater
when calculating how many days late the task is. If you have a weekly
task and miss the date the agenda view will show more than a week late
now instead of resetting on the cyclic repeating date. This makes it
much more obvious when you missed a repeating task after the repeater.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-exp.el (org-export-mark-blockquote-verse-center):
Consider environments that end at eob.
2010-07-19 Mikael Fornius <mfo@abc.se>
* org.el (org-raise-scripts): Do not fontify sub/superscripts of text
with face `org-special-keyword'. Makes property keys as :LAST_REPEAT:
display correctly.
2010-07-19 Mikael Fornius <mfo@abc.se>
* org.el (org-at-property-p): Use save-match-data macro instead of let.
2010-07-19 Mikael Fornius <mfo@abc.se>
* org.el (test): Removed unused test function.
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp-blocks.el (org-export-blocks-preprocess): fixed typo
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp-blocks.el (org-export-blocks-postblock-hook): adding
documentation to and turning into a defcustom
2010-07-19 Eric Schulte <schulte.eric@gmail.com>
* org-exp.el (org-get-file-contents): by un-setting prefix1 to ""
instead of to nil we avoid errors when :prefix1 is defined, but
prefix is not.
2010-07-19 Nicolas Goaziou <n.goaziou@gmail.com>
* org-latex.el (org-export-latex-preprocess): Environments coming
from latex backend specific instructions (#+LaTeX) are already
protected and won't be treated as normal environments.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-timer.el (org-timer-set-timer): Fix typo in the docstring.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-timer.el (org-timer-set-timer): Use a prefix argument.
See the docstring of the function.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-timer.el (org-timer-set-timer): Fix bug about cancelling
timers.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-w3m.el (org-w3m-copy-for-org-mode)
(org-w3m-get-next-link-start, org-w3m-get-prev-link-start):
Get text property directly, not using macro `w3m-anchor'.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-emph-re): Document the match groups.
2010-07-19 Bernt Hansen <bernt@norang.ca>
* org-clock.el (org-clock-in): Set `org-clock-clocking-in' to
t before calling `org-clock-out', so that that function can
know its call context.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-timer.el (org-timer-default-timer): New variable.
(org-timer-set-timer): Use the new variable. Also offer the
possibility to replace the current timer by a new one.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-kill-note-or-show-branches): Hide subtree before
exposing the headings.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-add-planning-info): Remove the empty line also
if there is no whitespace at all in there.
* org-table.el (org-table-align): Fix alignment of strings
with invisible characters.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org.el (org-refile-cache-get): Return empty list of targets
when cache was cleared.
(org-clone-subtree-with-time-shift): Maybe create ID property
in cloned subtrees.
(org-clone-delete-id): New customization variable.
(org-clone-subtree-with-time-shift): Use customization
variable `org-clone-delete-id'.
(org-clone-subtree-with-time-shift): Remove empty property
drawer in cloned subtrees.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-refile-use-cache): New option.
(org-refile-cache, org-refile-markers): New variable.
(org-refile-marker, org-refile-cache-clear)
(org-refile-cache-check-set, org-refile-cache-put)
(org-refile-cache-get): New function.
(org-get-refile-targets): Use the refile cache.
* org-clock.el (org-clock-sum): Don't include running clock if
the time block is wrong.
2010-07-19 John Wiegley <jwiegley@gmail.com>
* org-clock.el (org-clock-clock-in, org-clock-in): Added
parameter `start-time'.
(org-clock-resolve-clock): Added parameter `clock-out-time'.
If set, and resolve-to is a past time, then the clock out
event occurs at `clock-out-time' rather than at `resolve-to'.
In this case, `resolve-to' becomes the clock in time.
(org-clock-jump-to-current-clock): Created new global command
to reveal the current clock.
(org-clock-resolve): Added new commands g/G and j/J, and a
help window describing all commands and their meaning.
(org-clock-resolve-expert): New customization variable.
(org-find-open-clocks): Fixed a bug that caused discovered
clocks not to match up with the currently active clock.
(org-resolve-clocks): Changed the argument
`also-non-dangling-p' to `only-dangling-p', since due to a bug
this was the default behavior all along.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-id.el (org-id-uuid): New function. Return string with
random (version 4) UUID.
(org-id-method): Make 'uuid the new default value.
(org-id-new): Use `org-id-uuid' if call to uuidgen program
does not return a UUID.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-format-image): Add support
for multicolumn figures in LaTeX.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org.el (org-clone-subtree-with-time-shift): Remove ID
property of original subtree in cloned subtrees.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-format-source-code-or-example):
XEmacs compatibility.
* org-latex.el (org-export-latex-tables): Accept comma in
align string.
* org-docbook.el (org-export-docbook-xslt-stylesheet): New option.
(org-export-docbook-xslt-proc-command): Fix docstring.
(org-export-docbook-xsl-fo-proc-command): Fix docstring.
(org-export-as-docbook-pdf): Improve
formatting of the xslt command.
* org-exp.el (org-infile-export-plist): Check for XSLT setting.
* org.el (org-file-contents): Improve error message.
(org-set-regexps-and-options): Remove spaces at both ends.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-docbook.el (org-export-as-docbook-pdf): Improve
formatting of the xslt command.
2010-07-19 Sebastian Rose <sebastian_rose@gmx.de>
* org-publish.el (org-publish-cache): Use one big hashmap for
each project defined in `org-publish-project-alist'.
(initialize-files-alist): Function removed.
(org-publish-validate-link): Function removed.
(org-publish-get-base-files): Add variable `sitemap-requested'
to avoid sorting where possible.
(org-publish-get-files): Function removed.
(org-publish-get-project-from-filename): Make independent of
file list.
(org-publish-file): New argument NO-CACHE.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-beginning-of-defun, org-end-of-defun): New
functions.
(org-mode): Install the `org-beginning-of-defun' and
`org-end-of-defun' functions.
(org-pretty-entities): New option.
(org-toggle-pretty-entities): New command.
(org-fontify-entities): New function.
(org-startup-options): New keywords for pretty entities.
(org-set-font-lock-defaults): Call the pretty entities
function.
* org-latex.el (org-export-latex-keywords-maybe): Protect the
TODO markup.
2010-07-19 Mikael Fornius <mfo@abc.se>
* org-habit.el (org-habit-build-graph): Help-echo date when
mouse is over stars.
2010-07-19 Jan Bker <jan.boecker@jboecker.de>
* org.el (org-file-apps): Improve docstring to reflect
grouping matches
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-set-startup-visibility): Fix empty line display.
* org-latex.el (org-export-latex-links): Use the formatting
function of the link type, if it is available.
* org-table.el (org-table-get-remote-range): Return to
original buffer when retrieving remote reference.
* org.el (org-display-inline-images): Do the entire buffer,
not just the narrowed region. Clear the cache.
(org-display-inline-images): Match mode file paths.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-wl.el (org-wl-store-link-folder): Don't throw error when
called on WL folder group.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-replace-escapes): Make sure the cdr is not nil.
(org-read-date): Make `M-v' and `C-v' scroll the popup calendar.
(org-mode): Revert comment syntax changes.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-sparse-tree): Make `C-c / t' search for all TODO
keywords, and `C-c / T' for a specific one.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-mode): Fix comment syntax settings.
* org-src.el (org-edit-src-allow-write-back-p): Define
variable.
* org.el (org-inline-image-overlays): New variable.
(org-toggle-inline-images, org-display-inline-images)
(org-remove-inline-images): New commands.
(org-mode-map): Define a key for `org-toggle-inline-images'.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-wl.el (org-wl-message-field): New function. Return
content of header field in message entity.
(org-wl-store-link): Call `org-wl-store-link-folder' or
`org-wl-store-link-message' depending on major-mode.
(org-wl-store-link-folder): New function. Store link to
Wanderlust folder.
(org-wl-store-link-message): New function. Store link to
Wanderlust message.
(org-wl-store-link-message): Store link to message while
visiting message.
(org-wl-open): Don't try to jump to message when opening a
folder link.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org.el (org-replace-escapes): Avoid infinite loop when
replace string contains escape sequence it replaces.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-crypt.el (org-crypt-key-for-heading): Use symmetric
encryption when now key is set.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (org-table-recalculate-buffer-tables)
(org-table-iterate-buffer-tables): New commands.
* org.el (org-check-for-hidden): When there is a region, skip
the check.
2010-07-19 Dan Davison <davison@stats.ox.ac.uk>
* org-src.el (org-edit-src-code): allow-write-back-p had
erroneously been omitted from let binding
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-sorting-choice): New sorting type alpha.
(org-cmp-alpha): New defsubst.
(org-em): New defsubst.
(org-entries-lessp): Only compute needed comparisons.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-html.el (org-format-org-table-html): Test all columns
for number content.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-treat-sub-super-char): Make
sure parenthesis matching is consistent.
* org-table.el (org-table-colgroup-line-p)
(org-table-cookie-line-p): New functions.
* org-exp.el (org-table-clean-before-export): Better tests for
colgroup and cookie lines.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-goto): Push a mark before changing
the position.
* org-footnote.el (org-footnote): New group.
(org-footnote-section)
(org-footnote-tag-for-non-org-mode-files): Fix typos.
* org-list.el (org-end-of-item-text-before-children): Also do
the right thing at the end of a file.
* org.el (org-set-packages-alist, org-get-packages-alist): New
function.
(org-export-latex-default-packages-alist)
(org-export-latex-packages-alist): Add extra flag to
each package, indicating if it should be used for snippets.
(org-create-formula-image): Add the snippet argument.
(org-splice-latex-header): New argument SNIPPET-P, pass it
through to `org-latex-packages-to-string'.
(org-latex-packages-to-string): New argument SNIPPET-P.
* org-latex.el (org-export-latex-make-header): Add the snippet
argument.
* org-docbook.el (org-export-as-docbook): Implement ordered
lists starting at some offset.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-link-types, org-open-at-point): Add doi links.
* org-ascii.el (org-export-ascii-preprocess): Remove list
startcounter cookies.
* org-list.el (org-renumber-ordered-list): Respect counter
start values.
* org-latex.el (org-export-latex-lists): Accept ordered list
item offset cookie.
* org-html.el (org-export-as-html): Accept ordered list
item offset cookie.
* org-indent.el (org-indent-mode): Turn off `indent-tabs-mode'
which messes up alignment of tags.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-clock.el (org-clock-cancel, org-clock-out): Make sure
the modeline display is removed.
* org-exp.el (org-export-format-drawer-function): Fix
docstring.
* org-agenda.el (org-agenda-refile): New optional argument
NO-UPDATE.
(org-agenda-refile): Call `org-agenda-redo' unless NO-UPDATE
is set.
(org-agenda-bulk-action): Call the refile command with updates
suppressed - but arrange for `org-agenda-redo' to be called at
the end.
* org.el (org-mode): Make table mapping quiet.
(org-table-map-tables): New optional argument QUIETLY.
* org-ascii.el (org-export-ascii-preprocess): Make table
mapping quiet.
* org-html.el (org-export-as-html, org-html-level-start): Change
XHTML IDs to not use dots.
* org-exp.el (org-export-define-heading-targets): Change
XHTML IDs to not use dots.
* org-docbook.el (org-export-docbook-level-start): Change
XHTML IDs to not use dots.
* org-latex.el (org-export-as-latex): Make sure that the
result buffer is in latex-mode.
* org.el (org-shiftup-final-hook, org-shiftdown-final-hook)
(org-shiftleft-final-hook, org-shiftright-final-hook): New
hooks.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (org-table-justify-field-maybe): Make sure that
inserting a value does not turn a line into a hline.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-clock.el (org-clock-sum): New argument HEADLINE-FILTER.
(org-clock-sum): Add property to selected headlines.
(org-dblock-write:clocktable): Make tags matcher.
* org.el (org-set-autofill-regexps): XEmacs compatibility.
* org-latex.el (org-export-latex-set-initial-vars): Allow "-"
in latex class definitions
* org.el (org-shiftup-hook, org-shiftdown-hook)
(org-shiftleft-hook, org-shiftright-hook): New hooks.
* org-entities.el (org-entities): Use \land and \lor for logical
operators.
* org.el (org-shiftmetaleft, org-shiftmetaright): Call the subtree
indentation commands.
(org-hidden-tree-error): New defsubst.
(org-metaleft, org-metaright): Check for hidden stuff and throw an
error.
(org-check-for-hidden): New function.
* org-list.el (org-item-re): New function.
(org-at-item-p): Use `org-item-re'.
(org-end-of-item-text-before-children): New function.
(org-outdent-item, org-indent-item): Arrange for leaving the
subtree alone.
(org-outdent-item-tree, org-indent-item-tree): New argument
NO-SUBTREE.
(org-indent-item-tree): Use `org-end-of-item-text-before-children'
to find the end for processing while ignoring the subtree.
* org-publish.el (org-publish-sitemap-sort-alphabetically)
(org-publish-sitemap-sort-folders)
(org-publish-sitemap-sort-ignore-case): New options.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-publish.el (org-publish-compare-directory-files): Fix sorting.
* org-compat.el (org-get-x-clipboard-compat): Use (featurep 'xemacs).
* org-publish.el (org-publish-project-alist): Update docstring.
(org-publish-file-title-cache): New variable.
(org-publish-initialize-files-alist): Initialize
`org-publish-initialize-files-alist' to nil.
(org-publish-sort-directory-files): New function.
(org-publish-projects): Access the new properties.
(org-publish-find-title): Use the file title cache.
(org-publish-find-title): Build the file title cache.
(org-publish-get-base-files-1): Sort files.
(org-publish-aux-preprocess): Do not throw an error when before
the first headline. Allow an empty target, meaning to link just
to the file.
(org-publish-index-generate-theindex.inc): Check if there is
actually a target and only then add it to the link.
(org-publish-projects): Fix a remaining issue with the last commit
* org-html.el (org-export-as-html): Treat verse as open/close
paragraph.
(org-export-html-close-lists-maybe): Allow to splice raw HTML into
and out of lists.
2010-07-19 Dan Davison <davison@stats.ox.ac.uk>
* org-src.el (org-edit-src-code): Allow the org-src edit buffer to
be used in a read-only mode.
(org-edit-src-code): Different message in read-only mode
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-src.el (org-edit-src-find-region-and-lang): Test for
table.el as late as possible.
* org-colview-xemacs.el: Make sure this file is never loaded into
Emacs. Remove all tests for XEmacs.
* org-colview.el: Make sure this file is never loaded into XEmacs.
* org-agenda.el (org-highlight, org-unhighlight): Use direct
overlay calls.
* org.el (org-key): Apply the translations defined in
`org-xemacs-key-equivalents'.
* org-mouse.el (org-mode-hook): Use `org-defkey'.
* org-compat.el (org-xemacs-key-equivalents): New constant.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-inlinetask.el (org-inlinetask-defaut-state): New option.
(org-inlinetask-insert-task): Use `org-inlinetask-defaut-state'.
Obey `org-odd-levels-only'.
* org-compat.el (org-find-overlays): Use overlays-in/at.
* org.el (org-remove-empty-overlays-at)
(org-outline-overlay-data, org-hide-block-toggle)
(org-format-latex, org-context): Use overlays-in/at.
* org-src.el (org-edit-src-exit): Use overlays-in/at.
* org-agenda.el (org-agenda-mark-clocking-task)
(org-agenda-fontify-priorities, org-agenda-dim-blocked-tasks)
(org-agenda-entry-text-hide)
(org-agenda-fix-tags-filter-overlays-at)
(org-agenda-bulk-remove-overlays): Use overlays-in/at.
* org-compat.el (org-overlays-at): Function removed.
(org-overlays-in): Function removed.
2010-07-19 Bastien Guerry <bzg@altern.org>
* org-clock.el (org-clock-set-current): Just return the headline
itself, strip the TODO keyword, the priority cookie and the tags.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-compat.el (org-xemacs-without-invisibility): New macro.
(org-xemacs-without-invisibility): New macro.
(org-indent-to-column, org-indent-line-to, org-move-to-column):
Redefine using the macro `org-xemacs-without-invisibility'.
* org.el (org-mode, org-org-menu): Use `add-to-invisibility-spec'.
* org-table.el (orgtbl-mode): Use `add-to-invisibility-spec'.
* org-compat.el (org-make-overlay, org-delete-overlay)
(org-overlay-start, org-overlay-end, org-overlay-put)
(org-overlay-get, org-overlay-move, org-overlay-buffer): Functions
removed.
(org-add-to-invisibility-spec): Function removed.
* org-html.el (org-export-as-html-and-open): Add argument to
kill-buffer.
* org-habit.el (require): `calendar' is now required already by
org.el on top level.
* org-clock.el (require): `calendar' is now required already by
org.el on top level.
* org-agenda.el (require, org-timeline, org-agenda-list)
(org-todo-list, org-agenda-to-appt): `calendar' is now required
already by org.el on top level.
* org.el (org-export-latex-fix-inputenc): Declare function.
* org-agenda.el (org-agenda-goto-calendar): Do not bind obsolete
variables.
* org.el (calendar): Require calendar now on top level in org.el
and define aliases to new variables when needed.
(org-read-date, org-goto-calendar): Do not bind obsolete
variables.
* org-clock.el (org-clock-out, org-clock-cancel): Get rid of
compilation warning, add comment that this cannot be done with
`with-current-buffer'.
* org-wl.el (org-wl-open): Use `with-current-buffer'.
* org.el (overlay, org-remove-empty-overlays-at)
(org-outline-overlay-data, org-set-outline-overlay-data)
(org-show-block-all, org-hide-block-toggle)
(org-highlight-new-match, org-remove-occur-highlights)
(org-tags-overlay, org-fast-tag-selection, org-date-ovl)
(org-read-date, org-read-date-display, org-eval-in-calendar)
(org-format-latex, org-context)
(org-speedbar-restriction-lock-overlay)
(org-speedbar-set-agenda-restriction): Use the normal overlay API.
* org-table.el (org-table-add-rectangle-overlay)
(org-table-remove-rectangle-highlight)
(org-table-overlay-coordinates)
(org-table-toggle-coordinate-overlays): Use the normal overlay
API.
* org-src.el (org-edit-src-code, org-edit-fixed-width-region)
(org-edit-src-exit, org-src-mode-configure-edit-buffer): Use the
normal overlay API.
* org-colview.el (org-columns-new-overlay)
(org-columns-display-here, org-columns-remove-overlays)
(org-columns-edit-value, org-columns-next-allowed-value)
(org-columns-update): Use the normal overlay API.
* org-clock.el (org-clock-out, org-clock-cancel)
(org-clock-put-overlay, org-clock-remove-overlays): Use the normal
overlay API.
* org-agenda.el (org-agenda-mark-filtered-text)
(org-agenda-mark-clocking-task, org-agenda-fontify-priorities)
(org-agenda-dim-blocked-tasks, org-agenda-entry-text-show-here)
(org-agenda-entry-text-hide)
(org-agenda-restriction-lock-overlay)
(org-agenda-set-restriction-lock)
(org-agenda-filter-by-tag-hide-line)
(org-agenda-fix-tags-filter-overlays-at)
(org-agenda-filter-by-tag-show-all, org-hl)
(org-agenda-goto-calendar, org-agenda-bulk-mark)
(org-agenda-bulk-remove-overlays): Use the normal overlay API.
* org-freemind.el (org-freemind-from-org-mode-node)
(org-freemind-from-org-mode, )
(org-freemind-from-org-sparse-tree, org-freemind-to-org-mode): Use
interactive-p instead of called-interactively, because this is
backward compatible with older Emacsen I still support..
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-define-heading-targets): Fix bug in
regexp finding ID and CUSTOM_ID properties.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-footnote.el (org-footnote-goto-previous-reference): Renamed
from `org-footnote-goto-next-reference'.
* org.el (org-auto-repeat-maybe): Only record LAST_REPEAT if
org-log-repeat is non-nil, or if there is clocking data in the
entry.
* org-crypt.el (org-encrypt-entry): Improve mapping behavior.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-align-all-tags): New command.
2010-07-19 David Maus <dmaus@ictsoc.de>
* org-wl.el (org-wl-link-remove-filter): New customizable
variable. If non-nil, filter conditions are stripped when storing
link to message in filter folder.
(org-wl-shimbun-prefer-web-links): New customizable variable. If
non-nil, links to shimbun messages are created as web links to
message source.
(org-wl-nntp-prefer-web-links): New customizable variable. If
non-nil, links to nntp message are created as web links to gmane
or googlegroups.
(org-wl-namazu-default-index): New customizable variable.
Directory of namazu search index that should be used as default
when opening a link in a search folder.
(org-wl-folder-types): New constant. Wanderlust folder type
indicators.
(org-wl-folder-type): New function. Return type of Wanderlust
folder.
(org-wl-store-link): Create web links for shimbun or nntp messages
and strip filter conditions depending on customizable variables.
(org-wl-open): Open namazu search folder for message when called
with prefix.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-remove-if, org-remove-if-not): New functions.
(org-open-file): Use internal remove-if functions.
2010-07-19 Jan Bcker <jan.boecker@jboecker.de>
* org.el (org-file-apps-entry-match-against-dlink-p): new function.
(org-file-apps-ex): remove variable.
(org-open-file): Integrate org-file-apps-ex functionality back
into org-file-apps, and decide whether to match a regexp against
the link or the filename using org-file-apps-entry-uses-grouping-p.
2010-07-19 Jan Bcker <jan.boecker@jboecker.de>
* org.el (org-file-apps-ex): new variable.
(org-open-file): Before considering org-file-apps, first match the
regexps from org-file-apps-ex against the whole link. See
docstring of org-file-apps-ex.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-export-latex-default-packages-alist): Remove
microtype package.
(org-todo-repeat-to-state): New variable.
(org-auto-repeat-maybe): Allow user-selected target states.
(org-default-properties): Add the new property REPEAT_TO_STATE.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-mobile.el (org-mobile-check-setup): Make sure that there is
a binary to compute checksums.
2010-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.texi: Add macros to get plain quotes in PDF output.
List additional contributors.
(Capture): New section, replaces the section about remember.
(Working With Source Code): New chapter, focused on documenting Org
Babel.
(Code evaluation security): New section.
(MobileOrg): Document DropBox support.
(TaskJuggler export): Document taskjuggler and Gantt chart support.
(Special symbols): Show how to display UTF8 characters for entities.
(Global TODO list): Clarify the use of the "M" key and the differences
to the "m" key.
(RSS Feeds): Mention Atom feeds as well.
(Setting tags): Remove paragraph about
`org-complete-tags-always-offer-all-agenda-tags'.
author | Carsten Dominik <carsten.dominik@gmail.com> |
---|---|
date | Mon, 19 Jul 2010 11:47:27 +0200 |
parents | |
children | 5cb272c831e8 |
comparison
equal
deleted
inserted
replaced
109461:d898f8a84d48 | 109462:a150e8a14679 |
---|---|
1 ;;; org-taskjuggler.el --- TaskJuggler exporter for org-mode | |
2 ;; | |
3 ;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | |
4 ;; | |
5 ;; Emacs Lisp Archive Entry | |
6 ;; Filename: org-taskjuggler.el | |
7 ;; Version: 7.01 | |
8 ;; Author: Christian Egli | |
9 ;; Maintainer: Christian Egli | |
10 ;; Keywords: org, taskjuggler, project planning | |
11 ;; Description: Converts an org-mode buffer into a taskjuggler project plan | |
12 ;; URL: | |
13 | |
14 ;; This file is part of GNU Emacs. | |
15 | |
16 ;; GNU Emacs is free software: you can redistribute it and/or modify | |
17 ;; it under the terms of the GNU General Public License as published by | |
18 ;; the Free Software Foundation, either version 3 of the License, or | |
19 ;; (at your option) any later version. | |
20 | |
21 ;; GNU Emacs is distributed in the hope that it will be useful, | |
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
24 ;; GNU General Public License for more details. | |
25 | |
26 ;; You should have received a copy of the GNU General Public License | |
27 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
28 | |
29 ;; Commentary: | |
30 ;; | |
31 ;; This library implements a TaskJuggler exporter for org-mode. | |
32 ;; TaskJuggler uses a text format to define projects, tasks and | |
33 ;; resources, so it is a natural fit for org-mode. It can produce all | |
34 ;; sorts of reports for tasks or resources in either HTML, CSV or PDF. | |
35 ;; The current version of TaskJuggler requires KDE but the next | |
36 ;; version is implemented in Ruby and should therefore run on any | |
37 ;; platform. | |
38 ;; | |
39 ;; The exporter is a bit different from other exporters, such as the | |
40 ;; HTML and LaTeX exporters for example, in that it does not export | |
41 ;; all the nodes of a document or strictly follow the order of the | |
42 ;; nodes in the document. | |
43 ;; | |
44 ;; Instead the TaskJuggler exporter looks for a tree that defines the | |
45 ;; tasks and a optionally tree that defines the resources for this | |
46 ;; project. It then creates a TaskJuggler file based on these trees | |
47 ;; and the attributes defined in all the nodes. | |
48 ;; | |
49 ;; * Installation | |
50 ;; | |
51 ;; Put this file into your load-path and the following line into your | |
52 ;; ~/.emacs: | |
53 ;; | |
54 ;; (require 'org-taskjuggler) | |
55 ;; | |
56 ;; The interactive functions are similar to those of the HTML and LaTeX | |
57 ;; exporters: | |
58 ;; | |
59 ;; M-x `org-export-as-taskjuggler' | |
60 ;; M-x `org-export-as-taskjuggler-and-open' | |
61 ;; | |
62 ;; * Tasks | |
63 ;; | |
64 ;; Let's illustrate the usage with a small example. Create your tasks | |
65 ;; as you usually do with org-mode. Assign efforts to each task using | |
66 ;; properties (it's easiest to do this in the column view). You should | |
67 ;; end up with something similar to the example by Peter Jones in | |
68 ;; http://www.contextualdevelopment.com/static/artifacts/articles/2008/project-planning/project-planning.org. | |
69 ;; Now mark the top node of your tasks with a tag named | |
70 ;; "taskjuggler_project" (or whatever you customized | |
71 ;; `org-export-taskjuggler-project-tag' to). You are now ready to | |
72 ;; export the project plan with `org-export-as-taskjuggler-and-open' | |
73 ;; which will export the project plan and open a gant chart in | |
74 ;; TaskJugglerUI. | |
75 ;; | |
76 ;; * Resources | |
77 ;; | |
78 ;; Next you can define resources and assign those to work on specific | |
79 ;; tasks. You can group your resources hierarchically. Tag the top | |
80 ;; node of the resources with "taskjuggler_resource" (or whatever you | |
81 ;; customized `org-export-taskjuggler-resource-tag' to). You can | |
82 ;; optionally assign an identifier (named "resource_id") to the | |
83 ;; resources (using the standard org properties commands) or you can | |
84 ;; let the exporter generate identifiers automatically (the exporter | |
85 ;; picks the first word of the headline as the identifier as long as | |
86 ;; it is unique, see the documentation of | |
87 ;; `org-taskjuggler-get-unique-id'). Using that identifier you can | |
88 ;; then allocate resources to tasks. This is again done with the | |
89 ;; "allocate" property on the tasks. Do this in column view or when on | |
90 ;; the task type | |
91 ;; | |
92 ;; C-c C-x p allocate RET <resource_id> RET | |
93 ;; | |
94 ;; Once the allocations are done you can again export to TaskJuggler | |
95 ;; and check in the Resource Allocation Graph which person is working | |
96 ;; on what task at what time. | |
97 ;; | |
98 ;; * Export of properties | |
99 ;; | |
100 ;; The exporter also takes TODO state information into consideration, | |
101 ;; i.e. if a task is marked as done it will have the corresponding | |
102 ;; attribute in TaskJuggler ("complete 100"). Also it will export any | |
103 ;; property on a task resource or resource node which is known to | |
104 ;; TaskJuggler, such as limits, vacation, shift, booking, efficiency, | |
105 ;; journalentry, rate for resources or account, start, note, duration, | |
106 ;; end, journalentry, milestone, reference, responsible, scheduling, | |
107 ;; etc for tasks. | |
108 ;; | |
109 ;; * Dependencies | |
110 ;; | |
111 ;; The exporter will handle dependencies that are defined in the tasks | |
112 ;; either with the ORDERED attribute (see TODO dependencies in the Org | |
113 ;; mode manual) or with the BLOCKER attribute (see org-depend.el) or | |
114 ;; alternatively with a depends attribute. Both the BLOCKER and the | |
115 ;; depends attribute can be either "previous-sibling" or a reference | |
116 ;; to an identifier (named "task_id") which is defined for another | |
117 ;; task in the project. BLOCKER and the depends attribute can define | |
118 ;; multiple dependencies separated by either space or comma. You can | |
119 ;; also specify optional attributes on the dependency by simply | |
120 ;; appending it. The following examples should illustrate this: | |
121 ;; | |
122 ;; * Training material | |
123 ;; :PROPERTIES: | |
124 ;; :task_id: training_material | |
125 ;; :ORDERED: t | |
126 ;; :END: | |
127 ;; ** Markup Guidelines | |
128 ;; :PROPERTIES: | |
129 ;; :Effort: 2.0 | |
130 ;; :END: | |
131 ;; ** Workflow Guidelines | |
132 ;; :PROPERTIES: | |
133 ;; :Effort: 2.0 | |
134 ;; :END: | |
135 ;; * Presentation | |
136 ;; :PROPERTIES: | |
137 ;; :Effort: 2.0 | |
138 ;; :BLOCKER: training_material { gapduration 1d } some_other_task | |
139 ;; :END: | |
140 ;; | |
141 ;;;; * TODO | |
142 ;; - Use SCHEDULED and DEADLINE information (not just start and end | |
143 ;; properties). | |
144 ;; - Look at org-file-properties, org-global-properties and | |
145 ;; org-global-properties-fixed | |
146 ;; - What about property inheritance and org-property-inherit-p? | |
147 ;; - Use TYPE_TODO as an way to assign resources | |
148 ;; - Make sure multiple dependency definitions (i.e. BLOCKER on | |
149 ;; previous-sibling and on a specific task_id) in multiple | |
150 ;; attributes are properly exported. | |
151 ;; | |
152 ;;; Code: | |
153 | |
154 (eval-when-compile | |
155 (require 'cl)) | |
156 | |
157 (require 'org) | |
158 (require 'org-exp) | |
159 | |
160 ;;; User variables: | |
161 | |
162 (defgroup org-export-taskjuggler nil | |
163 "Options for exporting Org-mode files to TaskJuggler." | |
164 :tag "Org Export TaskJuggler" | |
165 :group 'org-export) | |
166 | |
167 (defcustom org-export-taskjuggler-extension ".tjp" | |
168 "Extension of TaskJuggler files." | |
169 :group 'org-export-taskjuggler | |
170 :type 'string) | |
171 | |
172 (defcustom org-export-taskjuggler-project-tag "taskjuggler_project" | |
173 "Tag, property or todo used to find the tree containing all | |
174 the tasks for the project." | |
175 :group 'org-export-taskjuggler | |
176 :type 'string) | |
177 | |
178 (defcustom org-export-taskjuggler-resource-tag "taskjuggler_resource" | |
179 "Tag, property or todo used to find the tree containing all the | |
180 resources for the project." | |
181 :group 'org-export-taskjuggler | |
182 :type 'string) | |
183 | |
184 (defcustom org-export-taskjuggler-default-project-version "1.0" | |
185 "Default version string for the project." | |
186 :group 'org-export-taskjuggler | |
187 :type 'string) | |
188 | |
189 (defcustom org-export-taskjuggler-default-project-duration 280 | |
190 "Default project duration if no start and end date have been defined | |
191 in the root node of the task tree, i.e. the tree that has been marked | |
192 with `org-export-taskjuggler-project-tag'" | |
193 :group 'org-export-taskjuggler | |
194 :type 'integer) | |
195 | |
196 (defcustom org-export-taskjuggler-default-reports | |
197 '("taskreport \"Gantt Chart\" { | |
198 headline \"Project Gantt Chart\" | |
199 columns hierarchindex, name, start, end, effort, duration, completed, chart | |
200 timeformat \"%Y-%m-%d\" | |
201 hideresource 1 | |
202 loadunit shortauto | |
203 }" | |
204 "resourcereport \"Resource Graph\" { | |
205 headline \"Resource Allocation Graph\" | |
206 columns no, name, utilization, freeload, chart | |
207 loadunit shortauto | |
208 sorttasks startup | |
209 hidetask ~isleaf() | |
210 }") | |
211 "Default reports for the project." | |
212 :group 'org-export-taskjuggler | |
213 :type '(repeat (string :tag "Report"))) | |
214 | |
215 (defcustom org-export-taskjuggler-default-global-properties | |
216 "shift s40 \"Part time shift\" { | |
217 workinghours wed, thu, fri off | |
218 } | |
219 " | |
220 "Default global properties for the project. Here you typically | |
221 define global properties such as shifts, accounts, rates, | |
222 vacation, macros and flags. Any property that is allowed within | |
223 the TaskJuggler file can be inserted. You could for example | |
224 include another TaskJuggler file. | |
225 | |
226 The global properties are inserted after the project declaration | |
227 but before any resource and task declarations." | |
228 :group 'org-export-taskjuggler | |
229 :type '(string :tag "Preamble")) | |
230 | |
231 ;;; Hooks | |
232 | |
233 (defvar org-export-taskjuggler-final-hook nil | |
234 "Hook run at the end of TaskJuggler export, in the new buffer.") | |
235 | |
236 ;;; Autoload functions: | |
237 | |
238 ;; avoid compiler warning about free variable | |
239 (defvar org-export-taskjuggler-old-level) | |
240 | |
241 ;;;###autoload | |
242 (defun org-export-as-taskjuggler () | |
243 "Export parts of the current buffer as a TaskJuggler file. | |
244 The exporter looks for a tree with tag, property or todo that | |
245 matches `org-export-taskjuggler-project-tag' and takes this as | |
246 the tasks for this project. The first node of this tree defines | |
247 the project properties such as project name and project period. | |
248 If there is a tree with tag, property or todo that matches | |
249 `org-export-taskjuggler-resource-tag' this three is taken as | |
250 resources for the project. If no resources are specified, a | |
251 default resource is created and allocated to the project. Also | |
252 the taskjuggler project will be created with default reports as | |
253 defined in `org-export-taskjuggler-default-reports'." | |
254 (interactive) | |
255 | |
256 (message "Exporting...") | |
257 (setq-default org-done-keywords org-done-keywords) | |
258 (let* ((tasks | |
259 (org-taskjuggler-resolve-dependencies | |
260 (org-taskjuggler-assign-task-ids | |
261 (org-map-entries | |
262 '(org-taskjuggler-components) | |
263 org-export-taskjuggler-project-tag nil 'archive 'comment)))) | |
264 (resources | |
265 (org-taskjuggler-assign-resource-ids | |
266 (org-map-entries | |
267 '(org-taskjuggler-components) | |
268 org-export-taskjuggler-resource-tag nil 'archive 'comment))) | |
269 (filename (expand-file-name | |
270 (concat | |
271 (file-name-sans-extension | |
272 (file-name-nondirectory buffer-file-name)) | |
273 org-export-taskjuggler-extension))) | |
274 (buffer (find-file-noselect filename)) | |
275 (org-export-taskjuggler-old-level 0) | |
276 task resource) | |
277 (unless tasks | |
278 (error "No tasks specified")) | |
279 ;; add a default resource | |
280 (unless resources | |
281 (setq resources | |
282 `((("resource_id" . ,(user-login-name)) | |
283 ("headline" . ,user-full-name) | |
284 ("level" . 1))))) | |
285 ;; add a default allocation to the first task if none was given | |
286 (unless (assoc "allocate" (car tasks)) | |
287 (let ((task (car tasks)) | |
288 (resource-id (cdr (assoc "resource_id" (car resources))))) | |
289 (setcar tasks (push (cons "allocate" resource-id) task)))) | |
290 ;; add a default start date to the first task if none was given | |
291 (unless (assoc "start" (car tasks)) | |
292 (let ((task (car tasks)) | |
293 (time-string (format-time-string "%Y-%m-%d"))) | |
294 (setcar tasks (push (cons "start" time-string) task)))) | |
295 ;; add a default version if none was given | |
296 (unless (assoc "version" (car tasks)) | |
297 (let ((task (car tasks)) | |
298 (version org-export-taskjuggler-default-project-version)) | |
299 (setcar tasks (push (cons "version" version) task)))) | |
300 (with-current-buffer buffer | |
301 (erase-buffer) | |
302 (org-taskjuggler-open-project (car tasks)) | |
303 (insert org-export-taskjuggler-default-global-properties) | |
304 (insert "\n") | |
305 (dolist (resource resources) | |
306 (let ((level (cdr (assoc "level" resource)))) | |
307 (org-taskjuggler-close-maybe level) | |
308 (org-taskjuggler-open-resource resource) | |
309 (setq org-export-taskjuggler-old-level level))) | |
310 (org-taskjuggler-close-maybe 1) | |
311 (setq org-export-taskjuggler-old-level 0) | |
312 (dolist (task tasks) | |
313 (let ((level (cdr (assoc "level" task)))) | |
314 (org-taskjuggler-close-maybe level) | |
315 (org-taskjuggler-open-task task) | |
316 (setq org-export-taskjuggler-old-level level))) | |
317 (org-taskjuggler-close-maybe 1) | |
318 (org-taskjuggler-insert-reports) | |
319 (save-buffer) | |
320 (or (org-export-push-to-kill-ring "TaskJuggler") | |
321 (message "Exporting... done")) | |
322 (current-buffer)))) | |
323 | |
324 ;;;###autoload | |
325 (defun org-export-as-taskjuggler-and-open () | |
326 "Export the current buffer as a TaskJuggler file and open it | |
327 with the TaskJuggler GUI." | |
328 (interactive) | |
329 (let* ((file-name (buffer-file-name (org-export-as-taskjuggler))) | |
330 (process-name "TaskJugglerUI") | |
331 (command (concat process-name " " file-name))) | |
332 (start-process-shell-command process-name nil command))) | |
333 | |
334 (defun org-taskjuggler-parent-is-ordered-p () | |
335 "Return true if the parent of the current node has a property | |
336 \"ORDERED\". Return nil otherwise." | |
337 (save-excursion | |
338 (and (org-up-heading-safe) (org-entry-get (point) "ORDERED")))) | |
339 | |
340 (defun org-taskjuggler-components () | |
341 "Return an alist containing all the pertinent information for | |
342 the current node such as the headline, the level, todo state | |
343 information, all the properties, etc." | |
344 (let* ((props (org-entry-properties)) | |
345 (components (org-heading-components)) | |
346 (level (nth 1 components)) | |
347 (headline (nth 4 components)) | |
348 (parent-ordered (org-taskjuggler-parent-is-ordered-p))) | |
349 (push (cons "level" level) props) | |
350 (push (cons "headline" headline) props) | |
351 (push (cons "parent-ordered" parent-ordered) props))) | |
352 | |
353 (defun org-taskjuggler-assign-task-ids (tasks) | |
354 "Given a list of tasks return the same list assigning a unique id | |
355 and the full path to each task. Taskjuggler takes hierarchical ids. | |
356 For that reason we have to make ids locally unique and we have to keep | |
357 a path to the current task." | |
358 (let ((previous-level 0) | |
359 unique-ids unique-id | |
360 path | |
361 task resolved-tasks tmp) | |
362 (dolist (task tasks resolved-tasks) | |
363 (let ((level (cdr (assoc "level" task)))) | |
364 (cond | |
365 ((< previous-level level) | |
366 (setq unique-id (org-taskjuggler-get-unique-id task (car unique-ids))) | |
367 (dotimes (tmp (- level previous-level)) | |
368 (push (list unique-id) unique-ids) | |
369 (push unique-id path))) | |
370 ((= previous-level level) | |
371 (setq unique-id (org-taskjuggler-get-unique-id task (car unique-ids))) | |
372 (push unique-id (car unique-ids)) | |
373 (setcar path unique-id)) | |
374 ((> previous-level level) | |
375 (dotimes (tmp (- previous-level level)) | |
376 (pop unique-ids) | |
377 (pop path)) | |
378 (setq unique-id (org-taskjuggler-get-unique-id task (car unique-ids))) | |
379 (push unique-id (car unique-ids)) | |
380 (setcar path unique-id))) | |
381 (push (cons "unique-id" unique-id) task) | |
382 (push (cons "path" (mapconcat 'identity (reverse path) ".")) task) | |
383 (setq previous-level level) | |
384 (setq resolved-tasks (append resolved-tasks (list task))))))) | |
385 | |
386 (defun org-taskjuggler-assign-resource-ids (resources &optional unique-ids) | |
387 "Given a list of resources return the same list, assigning a | |
388 unique id to each resource." | |
389 (cond | |
390 ((null resources) nil) | |
391 (t | |
392 (let* ((resource (car resources)) | |
393 (unique-id (org-taskjuggler-get-unique-id resource unique-ids))) | |
394 (push (cons "unique-id" unique-id) resource) | |
395 (cons resource | |
396 (org-taskjuggler-assign-resource-ids (cdr resources) | |
397 (cons unique-id unique-ids))))))) | |
398 | |
399 (defun org-taskjuggler-resolve-dependencies (tasks) | |
400 (let ((previous-level 0) | |
401 siblings | |
402 task resolved-tasks) | |
403 (dolist (task tasks resolved-tasks) | |
404 (let* ((level (cdr (assoc "level" task))) | |
405 (depends (cdr (assoc "depends" task))) | |
406 (parent-ordered (cdr (assoc "parent-ordered" task))) | |
407 (blocker (cdr (assoc "BLOCKER" task))) | |
408 (blocked-on-previous | |
409 (and blocker (string-match "previous-sibling" blocker))) | |
410 (dependencies | |
411 (org-taskjuggler-resolve-explicit-dependencies | |
412 (append | |
413 (and depends (org-taskjuggler-tokenize-dependencies depends)) | |
414 (and blocker (org-taskjuggler-tokenize-dependencies blocker))) | |
415 tasks)) | |
416 previous-sibling) | |
417 ; update previous sibling info | |
418 (cond | |
419 ((< previous-level level) | |
420 (dotimes (tmp (- level previous-level)) | |
421 (push task siblings))) | |
422 ((= previous-level level) | |
423 (setq previous-sibling (car siblings)) | |
424 (setcar siblings task)) | |
425 ((> previous-level level) | |
426 (dotimes (tmp (- previous-level level)) | |
427 (pop siblings)) | |
428 (setq previous-sibling (car siblings)) | |
429 (setcar siblings task))) | |
430 ; insert a dependency on previous sibling if the parent is | |
431 ; ordered or if the tasks has a BLOCKER attribute with value "previous-sibling" | |
432 (when (or (and previous-sibling parent-ordered) blocked-on-previous) | |
433 (push (format "!%s" (cdr (assoc "unique-id" previous-sibling))) dependencies)) | |
434 ; store dependency information | |
435 (when dependencies | |
436 (push (cons "depends" (mapconcat 'identity dependencies ", ")) task)) | |
437 (setq previous-level level) | |
438 (setq resolved-tasks (append resolved-tasks (list task))))))) | |
439 | |
440 (defun org-taskjuggler-tokenize-dependencies (dependencies) | |
441 "Split a dependency property value DEPENDENCIES into the | |
442 individual dependencies and return them as a list while keeping | |
443 the optional arguments (such as gapduration) for the | |
444 dependencies. A dependency will have to match `[-a-zA-Z0-9_]+'." | |
445 (cond | |
446 ((string-match "^ *$" dependencies) nil) | |
447 ((string-match "^[ \t]*\\([-a-zA-Z0-9_]+\\([ \t]*{[^}]+}\\)?\\)[ \t,]*" dependencies) | |
448 (cons | |
449 (substring dependencies (match-beginning 1) (match-end 1)) | |
450 (org-taskjuggler-tokenize-dependencies (substring dependencies (match-end 0))))) | |
451 (t (error (format "invalid dependency id %s" dependencies))))) | |
452 | |
453 (defun org-taskjuggler-resolve-explicit-dependencies (dependencies tasks) | |
454 "For each dependency in DEPENDENCIES try to find a | |
455 corresponding task with a matching property \"task_id\" in TASKS. | |
456 Return a list containing the resolved links for all DEPENDENCIES | |
457 where a matching tasks was found. If the dependency is | |
458 \"previous-sibling\" it is ignored (as this is dealt with in | |
459 `org-taskjuggler-resolve-dependencies'). If there is no matching | |
460 task the dependency is ignored and a warning is displayed ." | |
461 (unless (null dependencies) | |
462 (let* | |
463 ;; the dependency might have optional attributes such as "{ | |
464 ;; gapduration 5d }", so only use the first string as id for the | |
465 ;; dependency | |
466 ((dependency (car dependencies)) | |
467 (id (car (split-string dependency))) | |
468 (optional-attributes | |
469 (mapconcat 'identity (cdr (split-string dependency)) " ")) | |
470 (path (org-taskjuggler-find-task-with-id id tasks))) | |
471 (cond | |
472 ;; ignore previous sibling dependencies | |
473 ((equal (car dependencies) "previous-sibling") | |
474 (org-taskjuggler-resolve-explicit-dependencies (cdr dependencies) tasks)) | |
475 ;; if the id is found in another task use its path | |
476 ((not (null path)) | |
477 (cons (mapconcat 'identity (list path optional-attributes) " ") | |
478 (org-taskjuggler-resolve-explicit-dependencies | |
479 (cdr dependencies) tasks))) | |
480 ;; warn about dangling dependency but otherwise ignore it | |
481 (t (display-warning | |
482 'org-export-taskjuggler | |
483 (format "No task with matching property \"task_id\" found for id %s" id)) | |
484 (org-taskjuggler-resolve-explicit-dependencies (cdr dependencies) tasks)))))) | |
485 | |
486 (defun org-taskjuggler-find-task-with-id (id tasks) | |
487 "Find ID in tasks. If found return the path of task. Otherwise | |
488 return nil." | |
489 (let ((task-id (cdr (assoc "task_id" (car tasks)))) | |
490 (path (cdr (assoc "path" (car tasks))))) | |
491 (cond | |
492 ((null tasks) nil) | |
493 ((equal task-id id) path) | |
494 (t (org-taskjuggler-find-task-with-id id (cdr tasks)))))) | |
495 | |
496 (defun org-taskjuggler-get-unique-id (item unique-ids) | |
497 "Return a unique id for an ITEM which can be a task or a resource. | |
498 The id is derived from the headline and made unique against | |
499 UNIQUE-IDS. If the (downcased) first token of the headline is not | |
500 unique try to add more (downcased) tokens of the headline or | |
501 finally add more underscore characters (\"_\")." | |
502 (let* ((headline (cdr (assoc "headline" item))) | |
503 (parts (split-string headline)) | |
504 (id (org-taskjuggler-clean-id (downcase (pop parts))))) | |
505 ; try to add more parts of the headline to make it unique | |
506 (while (member id unique-ids) | |
507 (setq id (concat id "_" (org-taskjuggler-clean-id (downcase (pop parts)))))) | |
508 ; if its still not unique add "_" | |
509 (while (member id unique-ids) | |
510 (setq id (concat id "_"))) | |
511 id)) | |
512 | |
513 (defun org-taskjuggler-clean-id (id) | |
514 "Clean and return ID to make it acceptable for taskjuggler." | |
515 (and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id))) | |
516 | |
517 (defun org-taskjuggler-open-project (project) | |
518 "Insert the beginning of a project declaration. All valid | |
519 attributes from the PROJECT alist are inserted. If no end date is | |
520 specified it is calculated | |
521 `org-export-taskjuggler-default-project-duration' days from now." | |
522 (let* ((unique-id (cdr (assoc "unique-id" project))) | |
523 (headline (cdr (assoc "headline" project))) | |
524 (version (cdr (assoc "version" project))) | |
525 (start (cdr (assoc "start" project))) | |
526 (end (cdr (assoc "end" project)))) | |
527 (insert | |
528 (format "project %s \"%s\" \"%s\" %s +%sd {\n }\n" | |
529 unique-id headline version start | |
530 org-export-taskjuggler-default-project-duration)))) | |
531 | |
532 (defun org-taskjuggler-filter-and-join (items) | |
533 "Filter all nil elements from ITEMS and join the remaining ones | |
534 with separator \"\n\"." | |
535 (let ((filtered-items (remq nil items))) | |
536 (and filtered-items (mapconcat 'identity filtered-items "\n")))) | |
537 | |
538 (defun org-taskjuggler-get-attributes (item attributes) | |
539 "Return all attribute as a single formated string. ITEM is an | |
540 alist representing either a resource or a task. ATTRIBUTES is a | |
541 list of symbols. Only entries from ITEM are considered that are | |
542 listed in ATTRIBUTES." | |
543 (org-taskjuggler-filter-and-join | |
544 (mapcar | |
545 (lambda (attribute) | |
546 (org-taskjuggler-filter-and-join | |
547 (org-taskjuggler-get-attribute item attribute))) | |
548 attributes))) | |
549 | |
550 (defun org-taskjuggler-get-attribute (item attribute) | |
551 "Return a list of strings containing the properly formatted | |
552 taskjuggler declaration for a given ATTRIBUTE in ITEM (an alist). | |
553 If the ATTRIBUTE is not in ITEM return nil." | |
554 (cond | |
555 ((null item) nil) | |
556 ((equal (symbol-name attribute) (car (car item))) | |
557 (cons (format "%s %s" (symbol-name attribute) (cdr (car item))) | |
558 (org-taskjuggler-get-attribute (cdr item) attribute))) | |
559 (t (org-taskjuggler-get-attribute (cdr item) attribute)))) | |
560 | |
561 (defun org-taskjuggler-open-resource (resource) | |
562 "Insert the beginning of a resource declaration. All valid | |
563 attributes from the RESOURCE alist are inserted. If the RESOURCE | |
564 defines a property \"resource_id\" it will be used as the id for | |
565 this resource. Otherwise it will use the ID property. If neither | |
566 is defined it will calculate a unique id for the resource using | |
567 `org-taskjuggler-get-unique-id'." | |
568 (let ((id (org-taskjuggler-clean-id | |
569 (or (cdr (assoc "resource_id" resource)) | |
570 (cdr (assoc "ID" resource)) | |
571 (cdr (assoc "unique-id" resource))))) | |
572 (headline (cdr (assoc "headline" resource))) | |
573 (attributes '(limits vacation shift booking efficiency journalentry rate))) | |
574 (insert | |
575 (concat | |
576 "resource " id " \"" headline "\" {\n " | |
577 (org-taskjuggler-get-attributes resource attributes) "\n")))) | |
578 | |
579 (defun org-taskjuggler-clean-effort (effort) | |
580 "Translate effort strings into a format acceptable to taskjuggler, | |
581 i.e. REAL UNIT. If the effort string is something like 5:30 it | |
582 will be assumed to be hours and will be translated into 5.5h. | |
583 Otherwise if it contains something like 3.0 it is assumed to be | |
584 days and will be translated into 3.0d. Other formats that | |
585 taskjuggler supports (like weeks, months and years) are currently | |
586 not supported." | |
587 (cond | |
588 ((null effort) effort) | |
589 ((string-match "\\([0-9]+\\):\\([0-9]+\\)" effort) | |
590 (let ((hours (string-to-number (match-string 1 effort))) | |
591 (minutes (string-to-number (match-string 2 effort)))) | |
592 (format "%dh" (+ hours (/ minutes 60.0))))) | |
593 ((string-match "\\([0-9]+\\).\\([0-9]+\\)" effort) (concat effort "d")) | |
594 (t (error "Not a valid effort (%s)" effort)))) | |
595 | |
596 (defun org-taskjuggler-get-priority (priority) | |
597 "Return a priority between 1 and 1000 based on PRIORITY, an | |
598 org-mode priority string." | |
599 (max 1 (/ (* 1000 (- org-lowest-priority (string-to-char priority))) | |
600 (- org-lowest-priority org-highest-priority)))) | |
601 | |
602 (defun org-taskjuggler-open-task (task) | |
603 (let* ((unique-id (cdr (assoc "unique-id" task))) | |
604 (headline (cdr (assoc "headline" task))) | |
605 (effort (org-taskjuggler-clean-effort (cdr (assoc org-effort-property task)))) | |
606 (depends (cdr (assoc "depends" task))) | |
607 (allocate (cdr (assoc "allocate" task))) | |
608 (priority-raw (cdr (assoc "PRIORITY" task))) | |
609 (priority (and priority-raw (org-taskjuggler-get-priority priority-raw))) | |
610 (state (cdr (assoc "TODO" task))) | |
611 (complete (or (and (member state org-done-keywords) "100") | |
612 (cdr (assoc "complete" task)))) | |
613 (parent-ordered (cdr (assoc "parent-ordered" task))) | |
614 (previous-sibling (cdr (assoc "previous-sibling" task))) | |
615 (attributes | |
616 '(account start note duration endbuffer endcredit end | |
617 flags journalentry length maxend maxstart milestone | |
618 minend minstart period reference responsible | |
619 scheduling startbuffer startcredit statusnote))) | |
620 (insert | |
621 (concat | |
622 "task " unique-id " \"" headline "\" {\n" | |
623 (if (and parent-ordered previous-sibling) | |
624 (format " depends %s\n" previous-sibling) | |
625 (and depends (format " depends %s\n" depends))) | |
626 (and allocate (format " purge allocations\n allocate %s\n" allocate)) | |
627 (and complete (format " complete %s\n" complete)) | |
628 (and effort (format " effort %s\n" effort)) | |
629 (and priority (format " priority %s\n" priority)) | |
630 | |
631 (org-taskjuggler-get-attributes task attributes) | |
632 "\n")))) | |
633 | |
634 (defun org-taskjuggler-close-maybe (level) | |
635 (while (> org-export-taskjuggler-old-level level) | |
636 (insert "}\n") | |
637 (setq org-export-taskjuggler-old-level (1- org-export-taskjuggler-old-level))) | |
638 (when (= org-export-taskjuggler-old-level level) | |
639 (insert "}\n"))) | |
640 | |
641 (defun org-taskjuggler-insert-reports () | |
642 (let (report) | |
643 (dolist (report org-export-taskjuggler-default-reports) | |
644 (insert report "\n")))) | |
645 | |
646 (provide 'org-taskjuggler) | |
647 | |
648 ;;; org-taskjuggler.el ends here |