From: Marcin Borkowski <mbork@wmi.amu.edu.pl>
To: emacs-orgmode@gnu.org
Subject: Re: Clocking in on non-org files
Date: Sat, 16 Aug 2014 14:12:48 +0200 [thread overview]
Message-ID: <20140816141248.524ea25c@aga-netbook> (raw)
In-Reply-To: <20131006232625.2f42aa85@aga-netbook>
Dnia 2013-10-06, o godz. 23:26:25
Marcin Borkowski <mbork@wmi.amu.edu.pl> napisał(a):
> Dnia 2013-10-06, o godz. 17:11:25
> Suvayu Ali <fatkasuvayu+linux@gmail.com> napisał(a):
>
> > On Sun, Oct 06, 2013 at 02:07:45PM +0200, Marcin Borkowski wrote:
> > >
> > > I have a bunch of TODO items connected with LaTeX files (in
> > > general: projects) I'm working on. I was wondering whether it
> > > might be possible and/or wise to set things up so that I could
> > > clock in (C-c C-x C-i) in a buffer containing such a file.
> > > Currently, executing org-clock-in in a non-Org buffer results in
> > > an error (at least with my setup); with a prefix argument,
> > > everything is fine, I'm asked for one of the last clocked items.
> > > My dream is that I can clock in my buffer with just
> >
> > Try capture: (info "(org) Template elements").
>
> Thanks, I didn't think about it, though it's not exactly what I'm
> looking for. My dream setup is like this: I bind globally C-c C-x C-i
> to something, and when typing this key sequence /outside/ Org-mode, I
> am asked about a /node/ somewhere in my Org files (preferably with
> autocompletion, like refiling). Then, apart from starting the clock,
> a file-local variable remembering this node is added /to the file I'm
> in/ (as a comment at the end, for instance), so that the /next/ time
> I'm editing this file, C-c C-x C-i just starts clocking.
Hi,
I finally had some time & motivation to look into it. Below is my
solution. It is not perfect (in fact, probably far from being
perfect), but should work. I'd like to hear some comments, especially
regarding two issues: (1) whether my keybindings are reasonable
(especially C-c C-x C-j, which has different semantics than its
Org-mode counterpart, but C-c C-j is already taken e.g. by AUCTeX) and
(2) usage of org-insert-link, which asks for the description, which is
completely unnecessary here. (This touches one problem I have with
Org: it has lots of huge functions, which could be split into smaller
ones. For instance, if org-insert-link called a separate function to
select the link and another one asking for the description, I could
use the former and not care about the latter. But this is a minor
issue.)
The workflow is as follows: I use org-store-link in e.g. some Org
headline, say "* TODO Write a cool book", then go to cool-book.tex and
do M-x org-insert-default-link. From now on, in cool-book.tex, I can
C-c C-x C-j in cool-book.tex (and look into subtasks of the
abovementioned TODO, for example), I can also C-c C-x C-i to clock in,
C-c C-x C-o to clock out and C-c C-x C-x to cancel the clock.
WDYT?
;;;;;;;;;;;; Code begins here ;;;;;;;;;;;;
;; Org-related functions (clocking and goto) working in arbitrary files
(defun org-goto-default-link ()
"Jumps to the link pointed by the variable org-default-link,
which should be a file local variable."
(if (boundp 'org-default-link)
(let ((org-link org-default-link))
(set-buffer (get-buffer-create "*Org Link Temp Buffer*"))
(erase-buffer)
(insert org-link)
(org-open-at-point-global)
(kill-buffer "*Org Link Temp Buffer*"))
(error "Not in Org mode and org-default-link not set.")))
(defun org-goto-anywhere (&optional alternative-interface)
"An interactive wrapper around org-goto-default-link, calling
normal org-goto if in Org mode."
(interactive)
(if (equal major-mode 'org-mode)
(org-goto alternative-interface)
(org-goto-default-link)))
(defun org-clock-in-anywhere (&optional select)
"Clock in. If called without prefix and not in Org-mode, clock
in the entry pointed by org-default-link."
(interactive "P")
(if (or select (equal major-mode 'org-mode))
(org-clock-in select)
(save-excursion
(org-goto-default-link)
(org-clock-in))))
(defun org-insert-default-link ()
"Inserts a link (using org-insert-link) into the
org-default-link file local variable. Uses org-insert-link
interface, which prompts also for the description, which is
irrelevant here."
(interactive)
(let ((link (save-excursion
(switch-to-buffer (get-buffer-create "*Org Link Temp Buffer*"))
(erase-buffer)
(org-insert-link)
(buffer-string))))
(add-file-local-variable 'org-default-link link)
(kill-buffer "*Org Link Temp Buffer*")))
(global-set-key (kbd "C-c C-x C-i") 'org-clock-in-anywhere)
(global-set-key (kbd "C-c C-x C-o") 'org-clock-out)
(global-set-key (kbd "C-c C-x C-j") 'org-goto-anywhere)
(global-set-key (kbd "C-c C-x C-x") 'org-clock-cancel)
;;;;;;;;;;;; Code ends here ;;;;;;;;;;;;
--
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Adam Mickiewicz University
next prev parent reply other threads:[~2014-08-16 12:13 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-10-06 12:07 Clocking in on non-org files Marcin Borkowski
2013-10-06 15:11 ` Suvayu Ali
2013-10-06 21:26 ` Marcin Borkowski
2014-08-16 12:12 ` Marcin Borkowski [this message]
2014-08-16 12:31 ` Marcin Borkowski
2014-08-16 13:47 ` Marcin Borkowski
2014-08-16 14:37 ` Marcin Borkowski
2014-08-16 14:01 ` Thorsten Jolitz
2014-08-16 14:42 ` Marcin Borkowski
2014-08-16 15:02 ` Thorsten Jolitz
2014-08-16 15:13 ` Marcin Borkowski
2014-08-16 15:35 ` Thorsten Jolitz
-- strict thread matches above, loose matches on Subject: below --
2013-10-06 7:56 Marcin Borkowski
2013-11-05 17:16 ` Bastien
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=20140816141248.524ea25c@aga-netbook \
--to=mbork@wmi.amu.edu.pl \
--cc=emacs-orgmode@gnu.org \
/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
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).