emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [FEATURE] mobile-org on android don't show the hours of the event


From: Rémi Vanicat
Subject: [O] [FEATURE] mobile-org on android don't show the hours of the event
Date: Sun, 03 Apr 2011 13:45:03 +0200
User-agent: Gnus/5.110015 (No Gnus v0.15) Emacs/23.2 (gnu/linux)

Hello list,

When looking at the agenda on my phone, I can't see the hours of the
events I'm looking at. It seem the information is available (it's in the
agenda.org that is used by android's mobile-org to show, but I can't
understand how to make my android phone)

There is a patch to org-mobile.el that make the times visible on my
phone. I don't know how it will shine on others phone (I've no iphone to
test it), and even if the choice to hide this is seen as a feature for
some. 

>From 0ce98d4f5606cade97edfc4165bf1119e1fcb1ff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Vanicat?= <address@hidden>
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 "<before>" prefix "</before>")
                (beginning-of-line 1))
            (and (looking-at "[ \t]+") (replace-match "")))
-- 
1.7.4.1

-- 
Rémi Vanicat

reply via email to

[Prev in Thread] Current Thread [Next in Thread]