* Time range between now and timestamp
@ 2011-09-14 22:38 Alexander Wingård
2011-09-15 14:37 ` Nick Dokos
0 siblings, 1 reply; 5+ messages in thread
From: Alexander Wingård @ 2011-09-14 22:38 UTC (permalink / raw)
To: emacs-orgmode
Hi!
I really would want to have a command that given the cursor is over a timestamp would output the time-range from the current time to that timestamp.
I've been searching a lot for this but no luck and I even did an attempt to implement some hacked version of org-evaluate-time-range and org-days-to-time but since my experience with lisp is absolutely zero I failed miserably.
I imagine someone here could help me whip this up in a couple of lines or maybe such feature can already be achieved?
Best Regards /Alexander
Ps. I love org-mode
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Time range between now and timestamp
2011-09-14 22:38 Time range between now and timestamp Alexander Wingård
@ 2011-09-15 14:37 ` Nick Dokos
2011-09-15 14:46 ` Alexander Wingård
0 siblings, 1 reply; 5+ messages in thread
From: Nick Dokos @ 2011-09-15 14:37 UTC (permalink / raw)
To: =?iso-8859-1?Q?Alexander_Wing=E5rd?=; +Cc: nicholas.dokos, emacs-orgmode
Alexander Wingård <alexander.wingard@gmail.com> wrote:
> Hi!
>
> I really would want to have a command that given the cursor is over a
> timestamp would output the time-range from the current time to that
> timestamp.
>
Can you please provide an example? I can interpret this
in a couple of different ways and I'm not sure what you
want.
Also, when you say "output", do you mean that the function
should return e.g. a string representation of whatever it is
you want? Or print the result in the minibuffer?
Or insert it in the buffer you are editing? (and, if the last,
where?)
Nick
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Time range between now and timestamp
2011-09-15 14:37 ` Nick Dokos
@ 2011-09-15 14:46 ` Alexander Wingård
2011-09-15 16:02 ` Nick Dokos
0 siblings, 1 reply; 5+ messages in thread
From: Alexander Wingård @ 2011-09-15 14:46 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
Let's say I have this:
<2011-09-15 Thu>--<2011-09-16 Fri>
and I put my cursor over this and press C-c C-y my minibuffer will
spit out 1 day.
I would like a command that does the same thing if i execute it over
just <2011-09-16 Fri>.
Sometimes I'm interested in how much time there is left to a specific
appointment.
Best Regards /Alexander
On Thu, Sep 15, 2011 at 4:37 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
> Alexander Wingård <alexander.wingard@gmail.com> wrote:
>
>> Hi!
>>
>> I really would want to have a command that given the cursor is over a
>> timestamp would output the time-range from the current time to that
>> timestamp.
>>
>
> Can you please provide an example? I can interpret this
> in a couple of different ways and I'm not sure what you
> want.
>
> Also, when you say "output", do you mean that the function
> should return e.g. a string representation of whatever it is
> you want? Or print the result in the minibuffer?
> Or insert it in the buffer you are editing? (and, if the last,
> where?)
>
> Nick
>
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Time range between now and timestamp
2011-09-15 14:46 ` Alexander Wingård
@ 2011-09-15 16:02 ` Nick Dokos
2011-09-15 16:33 ` Alexander Wingård
0 siblings, 1 reply; 5+ messages in thread
From: Nick Dokos @ 2011-09-15 16:02 UTC (permalink / raw)
To: =?ISO-8859-1?Q?Alexander_Wing=E5rd?=; +Cc: nicholas.dokos, emacs-orgmode
Alexander Wingård <alexander.wingard@gmail.com> wrote:
> Let's say I have this:
>
> <2011-09-15 Thu>--<2011-09-16 Fri>
>
> and I put my cursor over this and press C-c C-y my minibuffer will
> spit out 1 day.
>
> I would like a command that does the same thing if i execute it over
> just <2011-09-16 Fri>.
>
> Sometimes I'm interested in how much time there is left to a specific
> appointment.
>
Here is one way to do it:
--8<---------------cut here---------------start------------->8---
(defun aw/org-evaluate-time-range (&optional to-buffer)
(interactive)
(if (org-at-date-range-p t)
(org-evaluate-time-range to-buffer)
;; otherwise, make a time range in a temp buffer and run o-e-t-r there
(let ((headline (buffer-substring (point-at-bol) (point-at-eol))))
(with-temp-buffer
(insert headline)
(goto-char (point-at-bol))
(re-search-forward org-ts-regexp (point-at-eol) t)
(if (not (org-at-timestamp-p t))
(error "No timestamp here"))
(goto-char (match-beginning 0))
(org-insert-time-stamp (current-time) nil nil)
(insert "--")
(org-evaluate-time-range to-buffer)))))
--8<---------------cut here---------------end--------------->8---
There are probably better implementations; also, you might be able to advise
o-e-t-r, instead of writing a new function, which would have the advantage
of preserving the key binding.
AFAICT, the above works with dates in the past as well, but it always gives
the absolute value of the difference.
Nick
>
> On Thu, Sep 15, 2011 at 4:37 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
> > Alexander Wingård <alexander.wingard@gmail.com> wrote:
> >
> >> Hi!
> >>
> >> I really would want to have a command that given the cursor is over a
> >> timestamp would output the time-range from the current time to that
> >> timestamp.
> >>
> >
> > Can you please provide an example? I can interpret this
> > in a couple of different ways and I'm not sure what you
> > want.
> >
> > Also, when you say "output", do you mean that the function
> > should return e.g. a string representation of whatever it is
> > you want? Or print the result in the minibuffer?
> > Or insert it in the buffer you are editing? (and, if the last,
> > where?)
> >
> > Nick
> >
>
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Time range between now and timestamp
2011-09-15 16:02 ` Nick Dokos
@ 2011-09-15 16:33 ` Alexander Wingård
0 siblings, 0 replies; 5+ messages in thread
From: Alexander Wingård @ 2011-09-15 16:33 UTC (permalink / raw)
To: nicholas.dokos; +Cc: emacs-orgmode
Wonderful, thanks alot!
I can already see this becoming of great use to me.
Best Regards /Alexander
On Thu, Sep 15, 2011 at 6:02 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
> Alexander Wingård <alexander.wingard@gmail.com> wrote:
>
>> Let's say I have this:
>>
>> <2011-09-15 Thu>--<2011-09-16 Fri>
>>
>> and I put my cursor over this and press C-c C-y my minibuffer will
>> spit out 1 day.
>>
>> I would like a command that does the same thing if i execute it over
>> just <2011-09-16 Fri>.
>>
>> Sometimes I'm interested in how much time there is left to a specific
>> appointment.
>>
>
> Here is one way to do it:
>
> --8<---------------cut here---------------start------------->8---
> (defun aw/org-evaluate-time-range (&optional to-buffer)
> (interactive)
> (if (org-at-date-range-p t)
> (org-evaluate-time-range to-buffer)
> ;; otherwise, make a time range in a temp buffer and run o-e-t-r there
> (let ((headline (buffer-substring (point-at-bol) (point-at-eol))))
> (with-temp-buffer
> (insert headline)
> (goto-char (point-at-bol))
> (re-search-forward org-ts-regexp (point-at-eol) t)
> (if (not (org-at-timestamp-p t))
> (error "No timestamp here"))
> (goto-char (match-beginning 0))
> (org-insert-time-stamp (current-time) nil nil)
> (insert "--")
> (org-evaluate-time-range to-buffer)))))
> --8<---------------cut here---------------end--------------->8---
>
> There are probably better implementations; also, you might be able to advise
> o-e-t-r, instead of writing a new function, which would have the advantage
> of preserving the key binding.
>
> AFAICT, the above works with dates in the past as well, but it always gives
> the absolute value of the difference.
>
> Nick
>
>>
>> On Thu, Sep 15, 2011 at 4:37 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
>> > Alexander Wingård <alexander.wingard@gmail.com> wrote:
>> >
>> >> Hi!
>> >>
>> >> I really would want to have a command that given the cursor is over a
>> >> timestamp would output the time-range from the current time to that
>> >> timestamp.
>> >>
>> >
>> > Can you please provide an example? I can interpret this
>> > in a couple of different ways and I'm not sure what you
>> > want.
>> >
>> > Also, when you say "output", do you mean that the function
>> > should return e.g. a string representation of whatever it is
>> > you want? Or print the result in the minibuffer?
>> > Or insert it in the buffer you are editing? (and, if the last,
>> > where?)
>> >
>> > Nick
>> >
>>
>
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2011-09-15 16:52 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-09-14 22:38 Time range between now and timestamp Alexander Wingård
2011-09-15 14:37 ` Nick Dokos
2011-09-15 14:46 ` Alexander Wingård
2011-09-15 16:02 ` Nick Dokos
2011-09-15 16:33 ` Alexander Wingård
Code repositories for project(s) associated with this public 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).