[Orgmode] [PATCH] Quote path argument in ob-ditaa

2010-07-17 Thread Gregory J. Grubbs
Patch fixes ob-ditaa for paths that contain spaces and other
shell-interpreted characters.


diff --git a/lisp/ob-ditaa.el b/lisp/ob-ditaa.el
index 1f56d12..cc06246 100644
--- a/lisp/ob-ditaa.el
+++ b/lisp/ob-ditaa.el
@@ -59,7 +59,7 @@ called by `org-babel-execute-src-block'.
   (error Could not find ditaa.jar at %s org-ditaa-jar-path))
 (with-temp-file in-file (insert body))
 (message (concat java -jar  org-ditaa-jar-path   cmdline   in-file  
 out-file))
-(shell-command (concat java -jar  org-ditaa-jar-path   cmdline   
in-file   out-file))
+(shell-command (concat java -jar  (shell-quote-argument 
org-ditaa-jar-path)   cmdline   in-file   out-file))
 out-file))
 
 (defun org-babel-prep-session:ditaa (session params)


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] [PATCH] Quote path argument in org-latex

2010-07-17 Thread Gregory J. Grubbs

Patch quotes paths to protect from interpretation by the shell

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index b6a7769..156dbcf 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -836,7 +836,7 @@ when PUB-DIR is set, use this as the publishing directory.
 (with-current-buffer outbuf (erase-buffer))
 (message Processing LaTeX file...)
 (if (and cmds (symbolp cmds))
-   (funcall cmds file)
+   (funcall cmds (shell-quote-argument file))
   (while cmds
(setq cmd (pop cmds))
(while (string-match %b cmd)


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: Display inline images patch

2010-06-10 Thread Gregory J. Grubbs
Colin Fraizer orgm...@cfraizer.com writes:

 I use org-mode on Windows 7. It seems that the regexp for image files
 excludes the : (colon) character. Could it be added to this:
 [-+./_0-9a-zA-Z]+
 to make this
 [-+./:_0-9a-zA-Z]+
 ?


I use a regexp for image files that adds characters often found in
Windows paths, as shown in the following patch in function
org-toggle-inline-images:


--8---cut here---start-8---
diff --git a/lisp/org.el b/lisp/org.el
old mode 100644
new mode 100755
index ba4ea63..ef8a06c
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15923,7 +15923,7 @@ BEG and END default to the buffer boundaries.
   (widen)
   (setq beg (or beg (point-min)) end (or end (point-max)))
   (goto-char (point-min))
-  (let ((re (concat 
\\[\\[\\(\\(file:\\)\\|\\([./~]\\)\\)\\([-+~./_0-9a-zA-Z]+
+  (let ((re (concat 
\\[\\[\\(\\(file:\\)\\|\\([./~]\\)\\)\\([-+~.:/\\_0-9a-zA-Z ]+
(substring (org-image-file-name-regexp) 0 -2)
\\)\\] (if include-linked  \\])))
old file ov img)

--8---cut here---end---8---

It adds ':', space and backslash to the set of characters, so that things like
the following work (org-insert-link sometimes inserts mixed back and forward 
slashes): 

--8---cut here---start-8---

  [[file:c:/cygwin/usr/share/pixmaps/xterm-color_48x48.xpm]]
  [[~/projects/appointment-soon.png]]
  [[file:c:\Documents and Settings\ggrubbs\projects/appointment-soon.png]]

--8---cut here---end---8---




 -Original Message-
 From: emacs-orgmode-bounces+orgmode=cfraizer@gnu.org
 [mailto:emacs-orgmode-bounces+orgmode=cfraizer@gnu.org] On Behalf Of
 Carsten Dominik
 Sent: Tuesday, June 01, 2010 9:37 AM
 To: Russell Adams
 Cc: emacs-orgmode
 Subject: Re: [Orgmode] Display inline images patch

 Hi Russel,

 looks like you are not running the latest version, I think this is  
 already fixed


 - Carsten

 On May 31, 2010, at 9:30 PM, Russell Adams wrote:

 I got irritated by my point jumping to the end of the buffer every
 time I toggled inline image display, so lets save excursion. ;]

 $ diff -Narub org.el~ org.el
 --- org.el~   2010-05-20 10:12:45.0 -0500
 +++ org.el2010-05-31 14:28:21.0 -0500
 @@ -15489,6 +15489,7 @@
 is how it will work for export.  When INCLUDE-LINKED is set, also
 links
 with a description part will be inlined.
   (interactive P)
 +  (save-excursion
   (org-remove-inline-images)
   (goto-char (point-min))
   (let ((re (concat \\[\\[\\(file:\\|\\./\\)\\(~?
   [-+./_0-9a-zA-Z]+
 @@ -15501,7 +15502,7 @@
   (setq ov (make-overlay (match-beginning 0) (match-end 0)))
   (overlay-put ov 'display (create-image file))
   (overlay-put ov 'face 'default)
 -  (push ov org-inline-image-overlays)
 +  (push ov org-inline-image-overlays))

 (defun org-remove-inline-images ()
   Remove inline display of images.






 --
 Russell Adamsrlad...@adamsinfoserv.com

 PGP Key ID: 0x1160DCB3   http://www.adamsinfoserv.com/

 Fingerprint:1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3

 ___
 Emacs-orgmode mailing list
 Please use `Reply All' to send replies to the list.
 Emacs-orgmode@gnu.org
 http://lists.gnu.org/mailman/listinfo/emacs-orgmode

 - Carsten




 ___
 Emacs-orgmode mailing list
 Please 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
 Please 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
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: org batch job using emacsclient?

2009-11-16 Thread Gregory J. Grubbs
Stefan Vollmar voll...@nf.mpg.de writes:

 Hello,

 we are currently setting up some org-templates for simple web pages (e.g. CV 
 information for members of our institute). So far this seems to work 
 surprisingly well - even for users who use editors other than Emacs (yes, we 
 need to try harder...). We have created a web service so users can upload an 
 org-file and get a preview of the generated HTML page.

 In a python script we use (a recipe from this very useful list):

 [...]
 cmd = emacs \
   +  -Q --batch
   +  --eval \(add-to-list 'load-path \\\ + ORGLIB + \\\)\ \
   +  --eval \(require 'org)\ \
   +  --eval \(require 'org-exp)\ \
   +  --eval \(setq org-export-headline-levels 2)\ \
   +  --visit=\ + orgfile + \ \
   +  --funcall org-export-as-html

 However, even on a modern system (SunFire T5140, Solaris 10) generating the 
 HTML output with Emacs 23.1 and the latest org-version takes several seconds 
 (which is disappointing). To improve performance, we want to switch to 
 emacsclient but we are not sure how to adapt the above code to do this. Our 
 first attempt:

 cmd = emacsclient +  --eval  \
   +  \(add-to-list 'load-path \\\ + ORGLIB + \\\)\ \
   +  \(require 'org)\ \
   +  \(require 'org-exp)\ \
   +  \(setq org-export-headline-levels 2)\ \
   +  \(load-file \\\ + orgfile + \\\)\ \
   +  \(org-export-as-html)\

 did not work.
 Any help is appreciated.


You are trying to load an Org file as an elisp file.  Use find-file or
something like it instead.

The following worked for me from the shell:
--8---cut here---start-8---
 emacsclient --eval (progn 
 (add-to-list 'load-path \/home/gregj/emacs/org-mode/lisp\)
 (require 'org)
 (require 'org-exp)
 (find-file \/home/gregj/projects/blogs.org\)
 (org-export-as-html 2 nil nil nil nil \/tmp\))
--8---cut here---end---8---



___
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


[Orgmode] [PATCH] Info: clarify all allowed values of PROPERTY in COLUMN definition

2009-11-15 Thread Gregory J. Grubbs

Add cross reference to Special properties/Column atrributes node to
clarify what may be used in the PROPERTY definition

--8---cut here---start-8---
index d2b4d3c..3c6fe1a 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -4589,6 +4589,7 @@ optional.  The individual parts have the following 
meaning:
 @var{width}   @r{An integer specifying the width of the column in 
characters.}
@r{If omitted, the width will be determined automatically.}
 @var{property}@r{The property that should be edited in this column.}
+@r{Special properties may be used here (@pxref{Special 
properties})}
 (title) @r{The header text for the column. If omitted, the}
@r{property name is used.}
 @{...@var{summary-type}@}  @r{The summary type.  If specified, the column 
values for}
--8---cut here---end---8---



___
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


[Orgmode] Problem refiling using IDO with flex matching

2009-11-14 Thread Gregory J. Grubbs

Hi, all.

I find that using IDO with fuzzy matching turned on is making org-refile
unusable.  The problem is that emacs will lock up for up to 45 seconds
for each character I type, as ido searches through 3 levels of headings
in all my archive files.  I like having ido turned on for this, as it
allows me to type a word that is unique to a 3rd-level heading, and jump
right to that without having to find it hierarchically.  But I can live
without flex matching for this purpose.

There is no hook run at the beginning of org-refile, so I have tried
using defadvice to turn off flex matching.  For some reason, it isn't
working for me:

--8---cut here---start-8---
(defadvice org-refile-pseudo-hook (before org-refile)
  do some customizations prior to running org-refile
  (setq ido-enable-flex-matching nil))
(ad-activate 'org-refile-pseudo-hook)
--8---cut here---end---8---

I've tried doing the above as around advice as well as before
advice.  In either case, flex matching is still turned on when I invoke
org-refile.

I suppose an alternative would be to add a hook variable to be run near
the beginning of org-refile.  But I would still love to be enlightened
about the correct use of defadvice!

FWIW, here are what I think are my relevant variable settings (the
verify function could be suspected of slowing things down, but selection
is very fast with ido flex matching off):
--8---cut here---start-8---
(ido-everywhere 1)
(setq ido-enable-flex-matching t)
(setq org-goto-interface 'outline-path-completion)
(setq org-outline-path-complete-in-steps nil)
(setq org-refile-targets '((org-agenda-files :maxlevel . 3))
  org-refile-use-outline-path 'file
  org-refile-target-verify-function
  (lambda ()
(not (member ARCHIVE (org-get-tags)
--8---cut here---end---8---



___
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


[Orgmode] [PATCH] Meaningful prompt for org-set-effort

2009-11-14 Thread Gregory J. Grubbs
I don't understand what I'm being prompted for with the current prompt.

--8---cut here---start-8---
diff --git a/lisp/org.el b/lisp/org.el
index c5499a3..dcded8e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12213,11 +12213,11 @@ allowed value.
  (if (equal rpl 0) (setq rpl 10))
  (if (and ( rpl 0) (= rpl (length allowed)))
  (car (nth (1- rpl) allowed))
-   (org-completing-read Value:  allowed nil
+   (org-completing-read Effort:  allowed nil
   (t
(let (org-completion-use-ido org-completion-use-iswitchb)
  (org-completing-read
-  (concat Value  (if (and cur (string-match \\S- cur))
+  (concat Effort  (if (and cur (string-match \\S- cur))
(concat [ cur ]) )
   : )
   existing nil nil  nil cur))
--8---cut here---end---8---



___
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


[Orgmode] Request: org-display-outline-path report full file path even when narrowed

2009-11-14 Thread Gregory J. Grubbs

When the following file is narrowed to the Sub Two tree,
org-display-outline reports the path relative to Sub Two.  It would be
more useful to report, e.g. Top One/Sub Two/Blah 

Obviously, if you are narrowed further down the hierarchy, the current
function becomes even less useful.

--8---cut here---start-8---
* Top One
** Sub One
*** Sub Sub One
*** Sub Sub Two
** Sub Two
*** Blah
 Forget following this pattern
*** Blah Blah
* Top Two
--8---cut here---end---8---

I would have submitted a patch, but my naive attempts to use (widen)
within a (save-excursion) did not work!

Cheers,
-Greg



___
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


[Orgmode] Re: Problem refiling using IDO with flex matching

2009-11-14 Thread Gregory J. Grubbs
greg...@dynapse.com (Gregory J. Grubbs) writes:

 Hi, all.

 I find that using IDO with fuzzy matching turned on is making org-refile
 unusable.  The problem is that emacs will lock up for up to 45 seconds
 for each character I type, as ido searches through 3 levels of headings
 in all my archive files.  I like having ido turned on for this, as it
 allows me to type a word that is unique to a 3rd-level heading, and jump
 right to that without having to find it hierarchically.  But I can live
 without flex matching for this purpose.

 There is no hook run at the beginning of org-refile, so I have tried
 using defadvice to turn off flex matching.  For some reason, it isn't
 working for me:

 (defadvice org-refile-pseudo-hook (before org-refile)
   do some customizations prior to running org-refile
   (setq ido-enable-flex-matching nil))
 (ad-activate 'org-refile-pseudo-hook)

 I've tried doing the above as around advice as well as before
 advice.  In either case, flex matching is still turned on when I invoke
 org-refile.

 I suppose an alternative would be to add a hook variable to be run near
 the beginning of org-refile.  But I would still love to be enlightened
 about the correct use of defadvice!

 FWIW, here are what I think are my relevant variable settings (the
 verify function could be suspected of slowing things down, but selection
 is very fast with ido flex matching off):
 (ido-everywhere 1)
 (setq ido-enable-flex-matching t)
 (setq org-goto-interface 'outline-path-completion)
 (setq org-outline-path-complete-in-steps nil)
 (setq org-refile-targets '((org-agenda-files :maxlevel . 3))
   org-refile-use-outline-path 'file
   org-refile-target-verify-function
   (lambda ()
   (not (member ARCHIVE (org-get-tags)



 ___
 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

I clearly should not be allowed to play with sharp objects.  

The following is working now:
--8---cut here---start-8---
(defadvice org-refile (before org-refile-pseudo-hook dis)
  (setq ido-enable-flex-matching nil))

(ad-enable-advice 'org-refile 'before 'org-refile-pseudo-hook)
(ad-activate 'org-refile)
--8---cut here---end---8---



___
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


[Orgmode] [PATCH] Suggestion to change speed key

2009-11-14 Thread Gregory J. Grubbs

The current speed keys include the following:
--8---cut here---start-8---
c   org-cycle
C   org-shifttab
--8---cut here---end---8---

But those keys already have equivalents with the same number of key
strokes: 
c  can also be done as TAB
S-c is S-TAB

I find it quite useful to jump into and out of column view as I'm
zipping up and down the hierarchy of an org-mode file.

I therefore suggest removing C as a speed key, and using c to invoke 
org-columns,
like so:

--8---cut here---start-8---
diff --git a/lisp/org.el b/lisp/org.el
index 0c22428..3ae67f1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -14905,8 +14905,7 @@ Some of the options can be changed using the variable
 (j . org-goto)
 (g . (org-refile t))
 (Outline Visibility)
-(c . org-cycle)
-(C . org-shifttab)
+(c . org-columns)
 (  . org-display-outline-path)
 (Outline Structure Editing)
 (U . org-shiftmetaup)
--8---cut here---end---8---



___
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


[Orgmode] Re: Handling phone calls

2009-11-13 Thread Gregory J. Grubbs
Bernt Hansen be...@norang.ca writes:

[non-phone call comments snipped]
 I set up a second set of templates for phone calls:

 ,[ .emacs remember functions ]
 | (setq my-phone-remember-templates
 |   (quote ((client1 ?c * Phone Call - %:name - %:company\n  
 :CLOCK-IN:%? ~/org/client1.org Tasks)
 |   (otherclient ?o * Phone Call - %:name - %:company\n  
 :CLOCK-IN:%? ~/org/otherclient.org Tasks)
 |   (norang ?n * Phone Call - %:name - %:company\n  :CLOCK-IN:%? 
 ~/org/norang.org Tasks)
 |   (phone call ?p * Phone Call - %? - \n  :CLOCK-IN: 
 ~/org/todo.org Tasks
 | 
 | (global-set-key (kbd f9 p) 'my-phone-call)
 | 
 | (defun my-phone-call ()
 |   (interactive)
 |   (let ((org-remember-templates my-phone-remember-templates))
 | (bbdb (read-string Who is calling: ) nil)
 | (other-window 1)
 | (org-remember)))
 | 
 | (add-hook 'remember-mode-hook 'my-start-clock-if-needed)
 | (defun my-start-clock-if-needed ()
 |   (save-excursion
 | (goto-char (point-min))
 | (when (re-search-forward :CLOCK-IN: nil t)
 |(replace-match )
 |(org-clock-in
 | 
 | (require 'remember)
 | (global-set-key (kbd C-M-r) 'org-remember)
 | (add-hook 'remember-mode-hook 'org-remember-apply-template)
 `

 Thanks Carsten for the my-start-clock-if-needed function which I stole
 off the org-mode mailing list :)

 ---

 So I'm happily clocking time on some task I'm working on and the phone
 rings...  I pick up the phone, find out who I'm talking to and type
 f9-p and enter a name at the prompt

 Who is calling: Joe User

 which looks up the person in my bbdb database and fills in the remember
 template then I select the appropriate template for the client org file
 I want to create the task in and it fills in something like this:

 ,[ Remember buffer entry for phone calls ]
 | ## Filing location: Select interactively, default, or last used:
 | ## C-u C-c C-c  to select file and header location interactively.
 | ## C-c C-c  ~/org/norang.org - * Tasks
 | ## C-u C-u C-c C-c  ~/org/client1.org - * Tasks
 | ## To switch templates, use `C-M-r'.  To abort use `C-c C-k'.
 | 
 | * Phone Call - Joe User - Some Client Company
 |   CLOCK: [2008-02-09 Sat 17:36]
 |   cursor is here, Start typing notes right away
 `

 When I'm done with the call C-c C-c stops the clock and files the task
 under * Tasks in whatever file I picked using the template above.
 C-u C-u C-M-r jumps to the task and I can refile it to the appropriate
 spot with C-c C-w.

 I'm sure this can be improved upon but it's already a lot better than
 what I had before.

 Happy organizing!

 -Bernt

Bernt, I have been happily using your phone call templates and the BBDB
integration.  The one thing that was bugging me was when someone calls
who is not in my BBDB database (quite a high percentage, since I don't
make much use of BBDB).  I wanted the prompt to let me quickly enter any
name, and fill in the BBDB content if it was there.  

My revamped template looks like this: 
--8---cut here---start-8---
(setq my-phone-remember-templates
  (quote (
  ;; ... client templates deleted ... 
  (phone call ?p * Phone Call - %(gjg/bbdb-name) - 
%(gjg/bbdb-company)  %T\n  :CLOCK-IN:+ %?% ~/projects/notes.org Phone 
Calls
--8---cut here---end---8---

Rather than using the variables for BBDB, I am using custom functions to
return name and company; those will return values from the BBDB record
if it was found, otherwise the name function returns what I entered
at the prompt, and the company function returns the empty string.

--8---cut here---start-8---
(defvar gjg/remember-phone-record nil
  Either BBDB record vector, or person's name as a string, or nil)

(defun my-phone-call ()
  (interactive)
  (let* ((org-remember-templates my-phone-remember-templates)
 (myname (completing-read Who is calling:  (bbdb-hashtable) 
'bbdb-completion-predicate 'confirm))
 (my-bbdb-name (if ( (length myname) 0) myname nil)))
(setq gjg/remember-phone-record 
  (or (first (bbdb-search (bbdb-records) my-bbdb-name nil nil))
  myname))
(other-window 1)
(org-remember)))

(defun gjg/bbdb-name ()
  Return full name of saved bbdb record, or empty string - for use in Remember 
templates
  (if (and gjg/remember-phone-record (vectorp gjg/remember-phone-record))
  (bbdb-record-name gjg/remember-phone-record)
  (or gjg/remember-phone-record )))

(defun gjg/bbdb-company ()
  Return company of saved bbdb record, or empty string - for use in Remember 
templates
  (if (and gjg/remember-phone-record (vectorp gjg/remember-phone-record))
  (bbdb-record-company gjg/remember-phone-record)
  ))
--8---cut here---end---8---



___
Emacs-orgmode mailing list
Remember: use `Reply 

[Orgmode] Re: feature request: show context in agenda

2009-11-13 Thread Gregory J. Grubbs
Carsten Dominik carsten.domi...@gmail.com writes:

 P.S.  In an org file, with speed commands turned on, press SPC
 to get the current outline path displayed.


Best. Feature. Ever.

(along with the speed keys!)



___
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


[Orgmode] Re: contact management in org-mode?

2009-10-31 Thread Gregory J. Grubbs

org-mode may attain self-hosting status before Clojure does!

-Greg

(after writing some elisp to translate my BBDB entries into
property-laden org-mode entries)

Russell Adams rlad...@adamsinfoserv.com writes:
 Now, I know this won't give me synchronization. Unfortunately I think
 that's a lost cause currently, I just want a way to find a contact.
 
 Fast finding on the CLI?
 
 awk 'BEGIN {RS=\n\n\\*  ; IGNORECASE=1} /chief/ {print $0}' Contacts.org 
 
 I can even adapt that to give me emails for mutt.
 
 Yes there's no way to push this to CSV and back, but I could write
 something in an hour in Perl to do so. (feature idea! Export
 column-view as csv...)
 
 I thought I'd post here for feedback prior to committing my contacts
 to this format.


 Looking into this some more, export is really easy. I can just use a
 dynamic block to store column view in whatever format I choose, and
 export then search  replace ',' for '|'. That is minimal effort!

 Sparse searches in column view, hierarchy organization, etc. I'm
 trying to find a problem here.

 --
 Russell Adamsrlad...@adamsinfoserv.com

 PGP Key ID: 0x1160DCB3   http://www.adamsinfoserv.com/

 Fingerprint:1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3


 ___
 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


[Orgmode] Org-mode version 6.32trans (release_6.32b.22.gfbe1); Symbol not found in org-src-switch-to-buffer

2009-10-29 Thread Gregory J. Grubbs

When running C-c ' (org-edit-special) on the file attached to
[[gnus:gmane.emacs.orgmode#m2ws2fuppl@gmail.com][email from Eric
Schulte: Re: {babel} Re: org-babel: Met]]

I get the following backtrace

--8---cut here---start-8---
Debugger entered--Lisp error: (invalid-function (quote current-window))
  (quote current-window)(#buffer *Org Src noweb-eval.org[ latex ]*)
  org-src-switch-to-buffer(#buffer *Org Src noweb-eval.org[ latex ]* edit)
  org-edit-src-code()
  ad-Orig-org-edit-special()
  org-edit-special()
  call-interactively(org-edit-special nil nil)
--8---cut here---end---8---

The symbol 'current-window is being evaluated as a function ... don't 
understand why.

I have org-src-window-setup set to 'reorganize-frame




Emacs  : GNU Emacs 23.1.50.1 (i686-pc-linux-gnu, GTK+ Version 2.18.2)
 of 2009-10-11 on maui
Package: Org-mode version 6.32trans (release_6.32b.22.gfbe1)

current state:
==
(setq
 org-clock-in-switch-to-state STARTED
 org-todo-keyword-faces '((TODO :foreground red :weight bold) (STARTED 
:foreground deep sky blue :weight bold)
  (DONE :foreground forest green :weight bold)
  (WAITING :foreground orange :weight bold) 
(SOMEDAY :foreground magenta :weight bold)
  (CANCELLED :foreground forest green :weight bold)
  (QUOTE :foreground red :weight bold) (QUOTED 
:foreground magenta :weight bold)
  (APPROVED :foreground forest green :weight bold)
  (EXPIRED :foreground forest green :weight bold)
  (REJECTED :foreground forest green :weight bold)
  (OPEN :foreground blue :weight bold))
 org-special-ctrl-a/e t
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 99)
 org-agenda-custom-commands '((P Projects tags Project 
((org-use-tag-inheritance nil)))
  (S Started Tasks todo STARTED 
((org-agenda-todo-ignore-with-date nil)))
  (w Tasks waiting on something tags WAITING 
((org-use-tag-inheritance nil)))
  (r Refile New Notes and Tasks tags REFILE 
((org-agenda-todo-ignore-with-date nil)))
  (n Notes tags NOTE nil)
  (dc Clock report agenda 
   ((org-agenda-ndays 1) 
(org-agenda-start-with-clockreport-mode t)
(org-agenda-time-grid nil)
(org-agenda-skip-function
 (quote
  (org-agenda-skip-entry-if (quote 
notscheduled) (quote deadline) (quote scheduled)))
 )
)
   )
  (da GORT Agenda ((agenda ) (todo 
STARTED
 org-agenda-files '(~/hebrew-word-list.org ~/projects/next-work.org 
~/projects/notes.org
~/work/carolsetters/carolsetters.org 
~/projects/reid.org ~/work/rockthehill/rockthehill.org
~/projects/misc.org ~/work/cglawfirm/cglawfirm.org
~gregj/work/nodepression/nd-archive-conversion.org
~gregj/work/northsummitventures/northsummitventures.org)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-show-inherited-tags nil
 org-agenda-window-setup 'other-window
 org-agenda-exporter-settings '((ps-number-of-columns 1) (ps-landscape-mode t) 
(org-agenda-add-entry-text-maxlines 10)
(htmlize-output-type (quote css)))
 org-completion-use-ido t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-read-date-prefer-future 'time
 org-clock-history-length 12
 org-babel-interpreters '(sh emacs-lisp)
 org-goto-interface 'outline-path-completion
 org-todo-state-tags-triggers '((CANCELLED (CANCELLED . t)) (WAITING 
(WAITING . t) (NEXT))
(SOMEDAY (WAITING . t)) (done (NEXT) 
(WAITING))
(TODO (WAITING) (CANCELLED)) (STARTED 
(WAITING) (NEXT . t)))
 org-agenda-restore-windows-after-quit t
 org-stuck-projects '(Project|project/-DONE nil (NEXT) )
 org-export-preprocess-hook '(org-export-blocks-preprocess (lambda nil 
(org-dblock-update 2)))
 org-tags-exclude-from-inheritance '(Project project)
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-clock-sound ~/projects/c136.wav
 org-todo-keywords '((sequence TODO(t) STARTED(s!) | DONE(d!/!))
 (sequence PROPOSED(p) WAITING(w@/!) MAYBE(m!) 
OPEN(O@) | CANCELLED(c@/!))
 (sequence QUOTE(q!) QUOTED(Q!) | APPROVED(A@) 
EXPIRED(E@) REJECTED(R@)))
 

[Orgmode] Re: contact management in org-mode?

2009-10-29 Thread Gregory J. Grubbs
Eric S Fraga ucec...@ucl.ac.uk writes:

 At Sat, 24 Oct 2009 21:34:10 -0500, Russell Adams wrote:

 [...]

 I reverse my recommendation regarding BBDB. 
 
 /rant on
 

 [...]

 /rant off

 I'm in complete agreement with you on this rant.  I do find it
 incredible that there are no good contact managers out there, at least
 not those that are not tied to some specific tool.


I can finally admit it here:

I, too, am a BBDB hater.

Maybe now I can finally move on with my life ... thank you all!

-Greg

... but really, there has to be a better way.  Maybe a wrapper around a
contact-specific sqlite database? 


 When my Psion 3 (various incarnations of this lovely little computer)
 died a few years ago now, I have tried out a large number of contact
 managers trying to find one that could replace the Psion.  I have had
 no luck, having gone through bbdb and abook, amongst others.  This was
 all before my second (more successful) encounter with org-mode.

 I'll post if I find a better alternative. I welcome recommendations
 while I try to centralize my contacts to CSV while I decide what to
 put them in.

 I've gone to using org-mode for this: an entry (top level heading) for
 each person and details fully written out in free form but also some
 details in properties that I can then view in column mode (phone
 number etc.).  But please do pass on any suggestions for alternatives!


 ___
 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


[Orgmode] Re: Org-mode version 6.32trans (release_6.32b.22.gfbe1); Symbol not found in org-src-switch-to-buffer

2009-10-29 Thread Gregory J. Grubbs
I don't understand how ... but that solves it for me - thanks!

-Greg

Carsten Dominik carsten.domi...@gmail.com writes:

 Can you guys please try to pull again?  I think this problem is solved
 now - let me know if not.

 - Carsten

 On Oct 29, 2009, at 4:49 PM, Stephan Schmitt wrote:

 Hi,

 I noticed the same problem.  However, the function
 org-src-switch-to-
 buffer (with the breaking case-form) runs without problems when it
 is not compiled.

 hth,
  Stephan

 Gregory J. Grubbs wrote:
 When running C-c ' (org-edit-special) on the file attached to
 [[gnus:gmane.emacs.orgmode#m2ws2fuppl@gmail.com][email from Eric
 Schulte: Re: {babel} Re: org-babel: Met]]
 I get the following backtrace
 --8---cut here---start-8---
 Debugger entered--Lisp error: (invalid-function (quote current-
 window))
  (quote current-window)(#buffer *Org Src noweb-eval.org[ latex ]*)
  org-src-switch-to-buffer(#buffer *Org Src noweb-
 eval.org[ latex ]* edit)
  org-edit-src-code()
  ad-Orig-org-edit-special()
  org-edit-special()
  call-interactively(org-edit-special nil nil)
 --8---cut here---end---8---
 The symbol 'current-window is being evaluated as a function
 ... don't understand why.
 I have org-src-window-setup set to 'reorganize-frame
 Emacs  : GNU Emacs 23.1.50.1 (i686-pc-linux-gnu, GTK+ Version 2.18.2)
 of 2009-10-11 on maui
 Package: Org-mode version 6.32trans (release_6.32b.22.gfbe1)
 current state:
 ==
 (setq
 org-clock-in-switch-to-state STARTED
 org-todo-keyword-faces '((TODO :foreground red :weight bold)
 (STARTED :foreground deep sky blue :weight bold)
   (DONE :foreground forest green :weight bold)
   (WAITING :foreground orange :weight
 bold) (SOMEDAY :foreground magenta :weight bold)
   (CANCELLED :foreground forest green :weight bold)
   (QUOTE :foreground red :weight bold)
 (QUOTED :foreground magenta :weight bold)
   (APPROVED :foreground forest green :weight bold)
   (EXPIRED :foreground forest green :weight bold)
   (REJECTED :foreground forest green :weight bold)
   (OPEN :foreground blue :weight bold))
 org-special-ctrl-a/e t
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 99)
 org-agenda-custom-commands '((P Projects tags Project ((org-
 use-tag-inheritance nil)))
   (S Started Tasks todo STARTED
 ((org-agenda-todo-
 ignore-with-date nil)))
   (w Tasks waiting on something tags
 WAITING ((org-use-
 tag-inheritance nil)))
   (r Refile New Notes and Tasks tags
 REFILE ((org-
 agenda-todo-ignore-with-date nil)))
   (n Notes tags NOTE nil)
   (dc Clock report agenda 
((org-agenda-ndays 1)
 (org-agenda-start-with-clockreport-
 mode t)
 (org-agenda-time-grid nil)
 (org-agenda-skip-function
  (quote
   (org-agenda-skip-entry-if (quote
 notscheduled) (quote deadline) (quote scheduled)))
  )
 )
)
   (da GORT Agenda ((agenda ) (todo 
 STARTED
 org-agenda-files '(~/hebrew-word-list.org ~/projects/next-
 work.org ~/projects/notes.org
 ~/work/carolsetters/carolsetters.org
 ~/projects/reid.org ~/work/rockthehill/rockthehill.org
 ~/projects/misc.org ~/work/cglawfirm/cglawfirm.org
 ~gregj/work/nodepression/nd-archive-conversion.org
 ~gregj/work/northsummitventures/northsummitventures.org)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-
 parent)
 org-agenda-show-inherited-tags nil
 org-agenda-window-setup 'other-window
 org-agenda-exporter-settings '((ps-number-of-columns 1) (ps-
 landscape-mode t) (org-agenda-add-entry-text-maxlines 10)
 (htmlize-output-type (quote css)))
 org-completion-use-ido t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-read-date-prefer-future 'time
 org-clock-history-length 12
 org-babel-interpreters '(sh emacs-lisp)
 org-goto-interface 'outline-path-completion
 org-todo-state-tags-triggers '((CANCELLED (CANCELLED . t))
 (WAITING (WAITING . t) (NEXT))
 (SOMEDAY (WAITING . t)) (done (NEXT) 
 (WAITING))
 (TODO (WAITING) (CANCELLED))
 (STARTED (WAITING) (NEXT . t)))
 org-agenda-restore-windows-after-quit t
 org-stuck-projects '(Project|project/-DONE nil (NEXT) )
 org-export-preprocess-hook '(org-export-blocks-preprocess (lambda
 nil (org-dblock-update 2)))
 org-tags-exclude-from-inheritance '(Project project)
 org-tab-first-hook '(org-hide

[Orgmode] Re: Patch for resolving away time when clocked in

2009-10-16 Thread Gregory J. Grubbs
John Wiegley jwieg...@gmail.com writes:
 Looking for anyone who uses Org's time clocking facilities and is
 willing to test this with me.  I've been using it for a couple of days
 now.  The functionality is based on the way the commercial app
 OfficeTime handles idleness.

Wow.  Your patch helped me clean up a multitude of dangling clocks.
Thank you!

One suggestion: I think when your code stops on a clock and prompts to
keep/subtract/cancel, it should expand the drawer (for those of us who
use drawers). 

-Greg

(I know, there's probably already a variable like
org-expand-drawers-when-running-a-patched-version)




___
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


[Orgmode] Re: Patch for resolving away time when clocked in

2009-10-16 Thread Gregory J. Grubbs
John Wiegley jwieg...@gmail.com writes:

 On Oct 16, 2009, at 11:59 AM, Gregory J. Grubbs wrote:

 One suggestion: I think when your code stops on a clock and prompts to
 keep/subtract/cancel, it should expand the drawer (for those of us who
 use drawers).

 I've added this to the version of the patch below.

 As another question:

 When attempting to clock into A, and org-resolve-clocks finds a
 dangling clock in B, and the user presses k or s (i.e., not K or
 S), do you expect it to clock you into A or into B when the resolution
 is done?  Right now K will continue the clock-in to A, but k will
 abort the clock-in to A and clock you into B to resume that task.

Since my intention was to clock in to A, I would find it confusing in
any event to suddenly find myself clocked into B.  Even in the case of a
dangling clock caused by an emacs crash, I would prefer to stay in
control!  Should task B strike me as the task I would rather be clocking
in instead of task A, I would expect to either hit C-g and clock into B,
or go through the list of all dangling clocks and come back to B.



___
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


[Orgmode] Re: clearing the state of an org-mode subtree

2009-10-11 Thread Gregory J. Grubbs
Robert Goldman rpgold...@sift.info writes:

 This is one of those cases where automating a task will not pay back the
 investment (at least not to me, individually), so I think I'd better
 just do it by hand.

I think automating a task that annoys you is worth the trouble.  You
could at least start with something like the following, and flesh it out
to include drawer notes and check lists.

--8---cut here---start-8---
(defun gjg/org-reset-todo ()
  reset any task from point onward with a TODO keyword to
initial TODO state. Show all trees you want to reset before
running this command: hidden trees will not be touched
  (interactive)
  (save-excursion
(while (not (eobp))
  (outline-next-visible-heading 1)
  (if  (org-get-todo-state)
  (org-todo TODO)
--8---cut here---end---8---



___
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


[Orgmode] My definition of stuck projects

2009-10-06 Thread Gregory J. Grubbs
I have slowly been making better use of the Agenda in org-mode. One
tantalizing possibility has been finding stuck projects.  I finally have
a definition of stuck projects along with a simple way to define what a
project is.  

This is so cool and so very useful.  I wanted to share what is working
for me and to invite others to do the same.

Of all my outlines in .org files, only the trees with a :Project: tag
are considered projects.  Any task that I have clocked into
automatically gets a :NEXT: tag in org-todo-state-tags-triggers.
Projects marked done at the top level are not considered stuck, and I
cannot mark them done unless all the subtasks are marked done
(org-enforce-todo-dependencies t)



init.el
Description: Emacs init code
___
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


[Orgmode] [PATCH] Minor documentation patch

2009-08-27 Thread Gregory J. Grubbs

When wrestling with org-remember, I got stuck on %i: I thought it would
display content, then create an active region ...


org-version: Org-mode version 6.29trans (release_6.29c.86.gfa36.dirty)

diff --git a/lisp/org-remember.el b/lisp/org-remember.el
index 5cfb217..191b678 100644
--- a/lisp/org-remember.el
+++ b/lisp/org-remember.el
@@ -130,8 +130,8 @@ Furthermore, the following %-escapes will be replaced with 
content:
   You may define a prompt like %^{Please specify birthday
   %n  user name (taken from `user-full-name')
   %a  annotation, normally the link created with org-store-link
-  %i  initial content, the region active.  If %i is indented,
-  the entire inserted text will be indented as well.
+  %i  initial content, copied from the active region.  If %i is 
+  indented, the entire inserted text will be indented as well.
   %c  current kill ring head
   %x  content of the X clipboard
   %^C Interactive selection of which kill or clip to use



___
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


[Orgmode] Re: POLL: Change of keys to move agenda through time

2009-08-26 Thread Gregory J. Grubbs
Carsten Dominik domi...@uva.nl writes:

 Hi,

 thank you everybody for this very interesting discussion.  I have
 been trying to think of a way to extract common ground from the
 different opinions.

 Here is what I have come up with:

 1. n/p remain as they where
 2. Moving forward/backward though time will be `f' and `b'
 3. Follow mode goes to the F key, a capital letter does
make sense here given that some other modes like [G]rid
and clock[R]eport and [D]iary are on capitals as well.
 4. `org-agenda-tree-to-indirect-buffer' is already on
`C-c C-x b' which is the same key as in a normal Org
buffer.  Therefore, I think we do not need to find a
replacement for the `b' binding.

Great!


 5. The cursor keys left and right are remapped to a
function that does nothing, except showing a message
that you should now use f/b to move through time.


Please allow left and right to move the cursor.  I will often move
the cursor even in read-only buffers, just to focus on a section I want
to contemplate.  Dired allows me to do that -- even to move left of the
file name to the date or other information on a line. 



___
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