From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: using org-mode and screen Date: Sun, 3 Feb 2008 09:22:05 +0100 Message-ID: References: Mime-Version: 1.0 (Apple Message framework v915) Content-Type: multipart/mixed; boundary="===============2072924901==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JLa79-0003Iy-Bz for emacs-orgmode@gnu.org; Sun, 03 Feb 2008 03:22:11 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JLa78-0003IJ-HO for emacs-orgmode@gnu.org; Sun, 03 Feb 2008 03:22:10 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JLa78-0003Hx-5l for emacs-orgmode@gnu.org; Sun, 03 Feb 2008 03:22:10 -0500 Received: from fg-out-1718.google.com ([72.14.220.159]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JLa77-00021A-FB for emacs-orgmode@gnu.org; Sun, 03 Feb 2008 03:22:09 -0500 Received: by fg-out-1718.google.com with SMTP id d23so1788809fga.30 for ; Sun, 03 Feb 2008 00:22:09 -0800 (PST) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Andrew Hyatt Cc: emacs-orgmode@gnu.org --===============2072924901== Content-Type: multipart/alternative; boundary=Apple-Mail-11-381426128 --Apple-Mail-11-381426128 Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit 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 --Apple-Mail-11-381426128 Content-Type: text/html; charset=US-ASCII Content-Transfer-Encoding: quoted-printable 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.  =46rom 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

= --Apple-Mail-11-381426128-- --===============2072924901== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============2072924901==--