From 0ce98d4f5606cade97edfc4165bf1119e1fcb1ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9mi=20Vanicat?= Date: Sun, 3 Apr 2011 11:36:02 +0200 Subject: [PATCH] Show the time in org-mobile agenda. --- lisp/org-mobile.el | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 83462f0..af3c8b1 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -597,7 +597,7 @@ The table of checksums is written to the file mobile-checksums." (defvar org-mobile-creating-agendas nil) (defun org-mobile-write-agenda-for-mobile (file) - (let ((all (buffer-string)) in-date id pl prefix line app short m sexp) + (let ((all (buffer-string)) in-date id pl prefix line app short m sexp time) (with-temp-file file (org-mode) (insert "#+READONLY\n") @@ -630,6 +630,7 @@ The table of checksums is written to the file mobile-checksums." (get-text-property (point) 'org-marker))) (setq sexp (member (get-text-property (point) 'type) '("diary" "sexp"))) + (setq time (get-text-property (point) 'time)) (if (setq pl (text-property-any (point) (point-at-eol) 'org-heading t)) (progn (setq prefix (org-trim (buffer-substring @@ -638,6 +639,8 @@ The table of checksums is written to the file mobile-checksums." pl (point-at-eol)))) (delete-region (point-at-bol) (point-at-eol)) + (when time + (insert time " ")) (insert line "" prefix "") (beginning-of-line 1)) (and (looking-at "[ \t]+") (replace-match ""))) -- 1.7.4.1