mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2025-01-20 19:24:20 +00:00
Added CONTRIB/org-screen.el by Andrew Hyatt.
This commit is contained in:
Carsten Dominik
parent
b0e67e64ca
commit
9512309a52
@ -1,3 +1,7 @@
|
||||
2008-02-21 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
* org-screen.el: New file.
|
||||
|
||||
2008-02-17 Christian Egli <christian.egli@alumni.ethz.ch>
|
||||
|
||||
* scripts/org2hpda: Added a Makefile for generation of hipster pda
|
||||
|
||||
@ -21,6 +21,7 @@ org-iswitchb.el --- use iswitchb to select Org buffer
|
||||
org-man.el --- Support for links to manpages in Org-mode
|
||||
org-panel.el --- Simple routines for us with bad memory
|
||||
org-registry.el --- a registry for Org links
|
||||
org-screen.el --- visit screen sessions through Org-mode links
|
||||
org-toc.el --- Table of contents for Org-mode buffer
|
||||
org-mairix.el --- Hook mairix search into Org for different MUAs
|
||||
org-mew.el --- Support for links to messages in Mew
|
||||
|
||||
108
CONTRIB/org-screen.el
Normal file
108
CONTRIB/org-screen.el
Normal file
@ -0,0 +1,108 @@
|
||||
;;; org-screen.el --- Integreate Org-mode with screen.
|
||||
|
||||
;; Copyright (c) 2008 Andrew Hyatt
|
||||
;;
|
||||
;; Author: Andrew Hyatt <ahyatt at gmail dot com>
|
||||
;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
|
||||
;;
|
||||
;; This file is not yet part of GNU Emacs.
|
||||
;;
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; This file contains functionality to integrate screen and org-mode.
|
||||
;; When using org-mode, it is often useful to take tasks that have
|
||||
;; some command-line work associated with them, and associate them
|
||||
;; with a screen session. Screen is used rather than a direct
|
||||
;; terminal to facilitate portability of the resulting session.
|
||||
;;
|
||||
;; To use screen in org, in your .emacs file, simply put this file in
|
||||
;; a directory in your load-path and write:
|
||||
;;
|
||||
;; (require 'org-screen)
|
||||
;;
|
||||
;; When have a task and want to start some command-line activity
|
||||
;; associated with that task, go to the end of your item and type:
|
||||
;;
|
||||
;; M-x org-screen
|
||||
;;
|
||||
;; This will prompt you for a name of a screen session. Type in a
|
||||
;; name and it will insert a link into your org file at your current
|
||||
;; location.
|
||||
;;
|
||||
;; When you want to visit the link, go to the link and type C-c C-o to
|
||||
;; open the link.
|
||||
;;
|
||||
;; You may want to get rid of the constant queries about whether you
|
||||
;; really want to execute lisp code. Do so by adding to your .emacs:
|
||||
;;
|
||||
;; (setq org-confirm-elisp-link-function nil)
|
||||
|
||||
(require 'term)
|
||||
(require 'org)
|
||||
|
||||
(defcustom org-screen-program-name "/usr/bin/screen"
|
||||
"Full location of the screen executable."
|
||||
:group 'org-screen
|
||||
:type 'string)
|
||||
|
||||
(defun org-screen (name)
|
||||
"Start a screen session with name"
|
||||
(interactive "MScreen name: ")
|
||||
(save-excursion
|
||||
(org-screen-helper name "-S"))
|
||||
(insert-string (concat "[[screen:" name "]]")))
|
||||
|
||||
(defun org-screen-buffer-name (name)
|
||||
"Returns the buffer name corresponding to the screen name given."
|
||||
(concat "*screen " name "*"))
|
||||
|
||||
(defun org-screen-helper (name arg)
|
||||
"This method will create a screen session with a specified name
|
||||
and taking the specified screen arguments. Much of this function
|
||||
is copied from ansi-term method."
|
||||
|
||||
;; Pick the name of the new buffer.
|
||||
(let ((term-ansi-buffer-name
|
||||
(generate-new-buffer-name
|
||||
(org-screen-buffer-name name))))
|
||||
(setq term-ansi-buffer-name
|
||||
(term-ansi-make-term
|
||||
term-ansi-buffer-name org-screen-program-name 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 org-screen-goto (name)
|
||||
"Open the screen with the specified name in the window"
|
||||
(interactive "MScreen name: ")
|
||||
(let ((screen-buffer-name (org-screen-buffer-name name)))
|
||||
(if (member screen-buffer-name
|
||||
(mapcar 'buffer-name (buffer-list)))
|
||||
(switch-to-buffer screen-buffer-name)
|
||||
(switch-to-buffer (org-screen-helper name "-dr")))))
|
||||
|
||||
(if org-link-abbrev-alist
|
||||
(add-to-list 'org-link-abbrev-alist
|
||||
'("screen" . "elisp:(org-screen-goto \"%s\")"))
|
||||
(setq org-link-abbrev-alist
|
||||
'(("screen" . "elisp:(org-screen-goto \"%s\")"))))
|
||||
|
||||
(provide 'org-screen)
|
||||
108
CONTRIB/org-screen.el~
Normal file
108
CONTRIB/org-screen.el~
Normal file
@ -0,0 +1,108 @@
|
||||
;;; org-mouse.el --- Better mouse support for org-mode
|
||||
|
||||
;; Copyright (c) 2008 Free Software Foundation
|
||||
;;
|
||||
;; Author: Andrew Hyatt <ahyatt at gmail dot com>
|
||||
;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
|
||||
;;
|
||||
;; This file is part of GNU Emacs.
|
||||
;;
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; This file contains functionality to integrate screen and org-mode.
|
||||
;; When using org-mode, it is often useful to take tasks that have
|
||||
;; some command-line work associated with them, and associate them
|
||||
;; with a screen session. Screen is used rather than a direct
|
||||
;; terminal to facilitate portability of the resulting session.
|
||||
;;
|
||||
;; To use screen in org, in your .emacs file, simply put this file in
|
||||
;; a directory in your load-path and write:
|
||||
;;
|
||||
;;(require 'org-screen)
|
||||
;;
|
||||
;; When have a task and want to start some command-line activity
|
||||
;; associated with that task, go to the end of your item and type:
|
||||
;;
|
||||
;; M-x org-screen
|
||||
;;
|
||||
;; This will prompt you for a name of a screen session. Type in a
|
||||
;; name and it will insert a link into your org file at your current
|
||||
;; location.
|
||||
;;
|
||||
;; When you want to visit the link, go to the link and type C-c C-o to
|
||||
;; open the link.
|
||||
;;
|
||||
;; You may want to get rid of the constant queries about whether you
|
||||
;; really want to execute lisp code. Do so by adding to your .emacs:
|
||||
;;
|
||||
;; (setq org-confirm-elisp-link-function nil)
|
||||
|
||||
(require 'term)
|
||||
(require 'org)
|
||||
|
||||
(defcustom org-screen-program-name "/usr/bin/screen"
|
||||
"Full location of the screen executable."
|
||||
:group 'org-screen
|
||||
:type 'string)
|
||||
|
||||
(defun org-screen (name)
|
||||
"Start a screen session with name"
|
||||
(interactive "MScreen name: ")
|
||||
(save-excursion
|
||||
(org-screen-helper name "-S"))
|
||||
(insert-string (concat "[[screen:" name "]]")))
|
||||
|
||||
(defun org-screen-buffer-name (name)
|
||||
"Returns the buffer name corresponding to the screen name given."
|
||||
(concat "*screen " name "*"))
|
||||
|
||||
(defun org-screen-helper (name arg)
|
||||
"This method will create a screen session with a specified name
|
||||
and taking the specified screen arguments. Much of this function
|
||||
is copied from ansi-term method."
|
||||
|
||||
;; Pick the name of the new buffer.
|
||||
(let ((term-ansi-buffer-name
|
||||
(generate-new-buffer-name
|
||||
(org-screen-buffer-name name))))
|
||||
(setq term-ansi-buffer-name
|
||||
(term-ansi-make-term
|
||||
term-ansi-buffer-name org-screen-program-name 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 org-screen-goto (name)
|
||||
"Open the screen with the specified name in the window"
|
||||
(interactive "MScreen name: ")
|
||||
(let ((screen-buffer-name (org-screen-buffer-name name)))
|
||||
(if (member screen-buffer-name
|
||||
(mapcar 'buffer-name (buffer-list)))
|
||||
(switch-to-buffer screen-buffer-name)
|
||||
(switch-to-buffer (org-screen-helper name "-dr")))))
|
||||
|
||||
(if org-link-abbrev-alist
|
||||
(add-to-list 'org-link-abbrev-alist
|
||||
'("screen" . "elisp:(org-screen-goto \"%s\")"))
|
||||
(setq org-link-abbrev-alist
|
||||
'(("screen" . "elisp:(org-screen-goto \"%s\")"))))
|
||||
|
||||
(provide 'org-screen)
|
||||
Loading…
Reference in New Issue
Block a user