From: Yann Hodique <yann.hodique@gmail.com> To: emacs-orgmode@gnu.org Cc: Yann Hodique <yann.hodique@gmail.com> Subject: [PATCH 03/10] org-taskjuggler: make use of org properties Date: Sun, 5 Aug 2012 12:53:57 +0200 [thread overview] Message-ID: <1344164044-15059-4-git-send-email-yann.hodique@gmail.com> (raw) In-Reply-To: <1344164044-15059-1-git-send-email-yann.hodique@gmail.com> infer start and end date from SCHEDULED/DEADLINE information * org-taskjuggler.el (org-taskjuggler-date): new function, produce a taskjuggler-compatible date (org-taskjuggler-components): make use of SCHEDULED/DEADLINE properties --- lisp/org-taskjuggler.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index 102eabc..7974d1e 100644 --- a/lisp/org-taskjuggler.el +++ b/lisp/org-taskjuggler.el @@ -138,8 +138,6 @@ ;; :END: ;; ;;;; * TODO -;; - Use SCHEDULED and DEADLINE information (not just start and end -;; properties). ;; - Look at org-file-properties, org-global-properties and ;; org-global-properties-fixed ;; - What about property inheritance and org-property-inherit-p? @@ -384,6 +382,10 @@ with the TaskJuggler GUI." (save-excursion (and (org-up-heading-safe) (org-entry-get (point) "ORDERED")))) +(defun org-taskjuggler-date (date) + (let ((time (parse-time-string date))) + (format "%d-%02d-%02d" (nth 5 time) (nth 4 time) (nth 3 time)))) + (defun org-taskjuggler-components () "Return an alist containing all the pertinent information for the current node such as the headline, the level, todo state @@ -395,6 +397,12 @@ information, all the properties, etc." (replace-regexp-in-string "\"" "\\\"" (nth 4 components) t t)) ; quote double quotes in headlines (parent-ordered (org-taskjuggler-parent-is-ordered-p))) + (let ((scheduled (assoc "SCHEDULED" props)) + (deadline (assoc "DEADLINE" props))) + (when scheduled + (push (cons "start" (org-taskjuggler-date (cdr scheduled))) props)) + (when deadline + (push (cons "end" (org-taskjuggler-date (cdr deadline))) props))) (push (cons "level" level) props) (push (cons "headline" headline) props) (push (cons "parent-ordered" parent-ordered) props))) -- 1.7.11.3
next prev parent reply other threads:[~2012-08-05 10:55 UTC|newest] Thread overview: 51+ messages / expand[flat|nested] mbox.gz Atom feed top 2012-08-05 10:53 [PATCH 00/10] Takjuggler exporter improvements Yann Hodique 2012-08-05 10:53 ` [PATCH 01/10] org-taskjuggler: make task and resource properties customizable Yann Hodique 2012-08-05 10:53 ` [PATCH 02/10] org-taskjuggler: properly install local variables at export time Yann Hodique 2012-08-05 10:53 ` Yann Hodique [this message] 2012-08-05 10:53 ` [PATCH 04/10] org-taskjuggler: task with end-only is also a milestone (deadline) Yann Hodique 2012-08-05 10:53 ` [PATCH 05/10] org-taskjuggler: introduce a global header, for early macros Yann Hodique 2012-08-05 10:54 ` [PATCH 06/10] org-taskjuggler: use project end date, if specified Yann Hodique 2012-08-05 10:54 ` [PATCH 07/10] org-taskjuggler: make project umbrella task optional Yann Hodique 2012-08-10 5:30 ` Christian Egli 2012-08-12 8:03 ` Yann Hodique 2012-08-12 21:36 ` Simon Thum 2012-08-12 21:56 ` Bastien 2012-08-14 2:39 ` Christian Egli 2012-08-14 7:43 ` Bastien 2012-08-05 10:54 ` [PATCH 08/10] org-taskjuggler: disambiguate "headline", as it's also a valid taskjuggler property Yann Hodique 2012-08-05 10:54 ` [PATCH 09/10] org-taskjuggler: allow reports definition from within the org file Yann Hodique 2012-08-05 10:54 ` [PATCH 10/10] org-taskjuggler: update doc to reflect latest changes Yann Hodique 2012-08-05 17:29 ` [PATCH 00/10] Takjuggler exporter improvements Bastien 2012-08-05 20:02 ` Yann Hodique 2012-08-06 8:15 ` Bastien 2012-08-10 5:25 ` Christian Egli 2012-08-15 19:11 ` [PATCH v2 00/11] " Yann Hodique 2012-08-15 19:11 ` [PATCH 04/10] org-taskjuggler: task with end-only is also a milestone (deadline) Yann Hodique 2012-08-16 7:48 ` [PATCH v2 00/11] Takjuggler exporter improvements Bastien 2012-08-16 18:37 ` Yann Hodique 2012-08-19 7:27 ` Bastien 2012-08-16 19:01 ` [PATCH v3 00/11] Taskjuggler " Yann Hodique 2012-08-16 19:01 ` [PATCH v3 01/11] org-taskjuggler.el: Make task and resource properties customizable Yann Hodique 2012-08-16 19:02 ` [PATCH v3 02/11] org-taskjuggler.el: Properly install local variables at export time Yann Hodique 2012-08-16 19:02 ` [PATCH v3 03/11] org-taskjuggler.el: Make use of org properties Yann Hodique 2012-08-16 19:02 ` [PATCH v3 04/11] org-taskjuggler.el: Fix milestone definition Yann Hodique 2012-08-16 19:02 ` [PATCH v3 05/11] org-taskjuggler.el: Introduce a global header, for early macros Yann Hodique 2012-08-16 19:02 ` [PATCH v3 06/11] org-taskjuggler.el: Use project end date, if specified Yann Hodique 2012-08-16 19:02 ` [PATCH v3 07/11] org-taskjuggler.el: Make project umbrella task optional Yann Hodique 2012-08-16 19:02 ` [PATCH v3 08/11] org-taskjuggler.el: Disambiguate "headline", as it's a valid attribute Yann Hodique 2012-08-16 19:02 ` [PATCH v3 09/11] org-taskjuggler.el: Allow reports definition from within the org file Yann Hodique 2012-08-16 19:02 ` [PATCH v3 10/11] org-taskjuggler.el: Update doc to reflect latest changes Yann Hodique 2012-08-16 19:02 ` [PATCH v3 11/11] org-taskjuggler.el: Make taskjuggler compatible with org-publish Yann Hodique 2012-08-26 7:55 ` [PATCH v3 00/11] Taskjuggler exporter improvements Bastien 2012-09-25 13:53 ` Christian Egli 2012-08-15 19:11 ` [PATCH v2 01/11] org-taskjuggler: make task and resource properties customizable Yann Hodique 2012-08-15 19:11 ` [PATCH v2 02/11] org-taskjuggler: properly install local variables at export time Yann Hodique 2012-08-15 19:11 ` [PATCH v2 03/11] org-taskjuggler: make use of org properties Yann Hodique 2012-08-15 19:11 ` [PATCH v2 04/11] org-taskjuggler: fix milestone definition Yann Hodique 2012-08-15 19:11 ` [PATCH v2 05/11] org-taskjuggler: introduce a global header, for early macros Yann Hodique 2012-08-15 19:11 ` [PATCH v2 06/11] org-taskjuggler: use project end date, if specified Yann Hodique 2012-08-15 19:11 ` [PATCH v2 07/11] org-taskjuggler: make project umbrella task optional Yann Hodique 2012-08-15 19:11 ` [PATCH v2 08/11] org-taskjuggler: disambiguate "headline", as it's also a valid property Yann Hodique 2012-08-15 19:11 ` [PATCH v2 09/11] org-taskjuggler: allow reports definition from within the org file Yann Hodique 2012-08-15 19:11 ` [PATCH v2 10/11] org-taskjuggler: update doc to reflect latest changes Yann Hodique 2012-08-15 19:11 ` [PATCH v2 11/11] org-taskjuggler: make taskjuggler compatible with org-publish Yann Hodique
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style List information: https://www.orgmode.org/ * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=1344164044-15059-4-git-send-email-yann.hodique@gmail.com \ --to=yann.hodique@gmail.com \ --cc=emacs-orgmode@gnu.org \ --subject='Re: [PATCH 03/10] org-taskjuggler: make use of org properties' \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: link
Code repositories for project(s) associated with this inbox: https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).