Well, Andrew,
if you write an extension, I will put it into the CONTRIB directory of
the distribution.
- Carsten
On Jan 28, 2008, at 12:41 AM, Andrew Hyatt wrote:
Hi everyone,
I use org-mode religiously these days. I blogged about my use here (http://technical-dresese.blogspot.com/2007/08/org-mode.html
) (please excuse the fact that when I wrote this I didn't know about
the existing org-mode functionality to jump to the current clock).
I generally have a problem of integrating the work I do in the shell
with the tasks in org-mode. Plus, I often need access to the
shells at home I started from work. I thought I'd combine these
problems into a little org-mode extension that ties screen and org-
mode together, via ansi-term.
For these to work, you have to load ansi-term, which my hack is
based on.
If there's enough interest, I'll make a real .el file out of this.
The general idea is that you start a task in which all the work will
take place in a shell. This usually is not a leaf-task for me, but
usually the parent of a leaf task. From a task in your org-file, M-
x ash-org-screen will prompt for the name of a session. Give it a
name, and it will insert a link. Open the link at any time to go
the screen session containing your work!
It works pretty well for me. The only problem is that I often run
emacs in a screen session itself, and I can never get scrolling to
work right in screen-in-screen.
(defun ash-org-screen-buffer-name (name)
"Returns the buffer name corresponding to the screen name given."
(concat "*screen " name "*"))
(defun ash-org-screen-helper (name arg)
;; Pick the name of the new buffer.
(let ((term-ansi-buffer-name (generate-new-buffer-name (ash-org-
screen-buffer-name name))))
(setq term-ansi-buffer-name
(term-ansi-make-term term-ansi-buffer-name "/usr/bin/
screen" nil
arg name))
(set-buffer term-ansi-buffer-name)
(term-mode)
(term-char-mode)
(term-set-escape-char ?\C-x)
term-ansi-buffer-name))
(defun ash-org-screen (name)
"Start a screen session with name"
(interactive "MScreen name: ")
(save-excursion
(ash-org-screen-helper name "-S"))
(insert-string (concat "[[screen:" name "]]")))
And don't forget to add ("screen" . "elisp:(ash-org-goto-screen \"%s
\")") to org-link-abbrev-alist.
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
