Re: [Orgmode] searchable refcard?

2008-12-02 Thread Carsten Dominik

Hi Sebastian,

On Dec 1, 2008, at 3:38 PM, Sebastian Rose wrote:


Hi Carsten, Alan & Co,


sorry for not following this thread closely. If the idea here is  
deleted

from your list already or is not feasable, just ignore it.



Refcard as info file


 How about maintaining the extended refcard as a second texinfo file?
 After the install, we would have two resulting info files: org and
 org-refcard.

 We could then bind a key to some `org-open-ref-card' function, that
 simply calls (info "(orgrefcard)").



If this would be done in info format (i.e. TexInfo), then it could
simply be part of the manual itself and info could jumpt to that
particular node in the manual.






Context help


 As for help in general:

 How about binding a key (e.g. `C-c h') to a function calling (info
 &optional file-or-node) to get context-help while in an org-file?

 (info "(org)tags")  if on a tag,
 (info "(org)properties and columns")if in `#+COLUMNS' line

 ...and so on.

 Often more than one section will match, so a mapping would be needed
 as well, as some sort of completion.


I do like that idea.

- Carsten



___
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


Re: [Orgmode] searchable refcard?

2008-12-02 Thread Sebastian Rose
Carsten Dominik <[EMAIL PROTECTED]> writes:

> Hi Sebastian,
>
> On Dec 1, 2008, at 3:38 PM, Sebastian Rose wrote:
>
>> Hi Carsten, Alan & Co,
>>
>>
>> sorry for not following this thread closely. If the idea here is deleted
>> from your list already or is not feasable, just ignore it.
>>
>>
>>
>> Refcard as info file
>> 
>>
>>  How about maintaining the extended refcard as a second texinfo file?
>>  After the install, we would have two resulting info files: org and
>>  org-refcard.
>>
>>  We could then bind a key to some `org-open-ref-card' function, that
>>  simply calls (info "(orgrefcard)").
>
>
> If this would be done in info format (i.e. TexInfo), then it could
> simply be part of the manual itself and info could jumpt to that
> particular node in the manual.


Yes, true. Since the info file comes with org-mode, it would be a
natural way to do this IMO. It's so simple to search in info, since C-s
searches accross sections and even files.


>> Context help
>> 
>>
>>  As for help in general:
>>
>>  How about binding a key (e.g. `C-c h') to a function calling (info
>>  &optional file-or-node) to get context-help while in an org-file?
>>
>>  (info "(org)tags")  if on a tag,
>>  (info "(org)properties and columns")if in `#+COLUMNS' line
>>
>>  ...and so on.
>>
>>  Often more than one section will match, so a mapping would be needed
>>  as well, as some sort of completion.
>
> I do like that idea.


It's the only feature MS-Office and openoffice.org have, that's
not in Org-mode yet :-)


Just courious:

How would I reveal the context at point?
Would I use those predicates as `org-at-xxx-p'?


Best,

  Sebastian

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover

Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose emma-stil de, sebastian_rose gmx de
Http:  www.emma-stil.de


___
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


Re: [Orgmode] searchable refcard?

2008-12-02 Thread Carsten Dominik


On Dec 2, 2008, at 1:28 PM, Sebastian Rose wrote:



Just courious:

How would I reveal the context at point?
Would I use those predicates as `org-at-xxx-p'?



C-h f org-context RET

We can extend this function if needed for context help.

- Carsten



___
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] Clean up the description of org-archive-location

2008-12-02 Thread Bernt Hansen
Christian Egli <[EMAIL PROTECTED]> writes:

> Hi
>
> Carsten Dominik <[EMAIL PROTECTED]> writes:
>
>> I think I am ripe for a little lecture about remote repositories
>> and tracking them, so that I do not need to type the location of
>> your repo each time... :-)
>
> Can't you just do 
>
>   git remote add bernt git://git.norang.ca/org-mode
>
> and then 
>
> git fetch bernt
>
> At least that's my take if I read the section `Fetching' of
> http://www.gnome.org/~federico/news-2008-11.html#pushing-and-pulling-with-git-1.
>  
>
Yes.  (sorry I sent a reply to this off-list originally)

NOTE: The branches in my repository are temporary and rewritten for
  future work after they have been included or rejected by Carsten
  so you may not always find a 'for-carsten' branch in that repo.
  This also means you can't track the 'for-carsten' branch locally
  in your repository since it gets rewritten with rebase.

git remote add bernt git://git.norang.ca/org-mode will add a remote
named 'bernt' which you can fetch from.

When you fetch a branch using

git fetch bernt for-carsten

it creates the missing objects in your repository and points a temporary
reference FETCH_HEAD at that branch.

> Unfortunatelly there is no explanation on how to merge the Bernt's
> changes:
>
> "In the next part, we'll see how to merge Larry's changes into
> ours, and how to monitor his work to pull from it regularly."


You can view it compared to your master branch with

gitk master FETCH_HEAD

and you're free to cherry-pick commits from it.  If you want to change
things you can create a branch there with

git checkout -b temp FETCH_HEAD

then you can rebase that based on other things etc.

Applying changes from my repo matches the git format-patch and git am
workflow (which is normally how one deals with patches from the mailing
list) if you do this: (this assumes no conflicts and creates linear
history)

  git fetch bernt for-carsten
  git checkout -b temp FETCH_HEAD
  git rebase master
  git checkout master
  git merge temp
  git branch -D temp

HTH,

Bernt



___
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


Re: [Orgmode] searchable refcard?

2008-12-02 Thread Sebastian Rose
Carsten,


thanks for the hint!

Maybe I'll try to learn a little more elisp between the years :-)


I tried it the stupid way, just to see it working:


(defun org-context-help ()
  "Context help for org-mode"
  (interactive)
  (if (org-at-table-p)
  (info "(org)tables")
(if (org-at-timestamp-p)
(info "(org)timestamps")
  (if (org-at-item-checkbox-p)
  (info "(org)Checkboxes")
(if (org-at-item-p)
(info "(org)plain lists")
  (if (org-at-heading-p)
  (info "(org)headlines")
(if (org-at-property-p)
(info "(org)Properties and Columns")
  )))


Just for the fun of it.



I tried to use a list like this:

(setq org-context-help-map
  '(('org-at-item-checkbox-p "(org)Checkboxes" "(org)plain lists")
('org-at-item-p "(org)plain lists" "(org)Checkboxes")
('org-at-property-p "(org)Properties and Columns")
('org-at-timestamp-p "(org)timestamps" "(org)deadlines and scheduling")
('org-at-table-p "(org)tables")
('org-at-heading-p "(org)headlines")))


and dolist and eval, but I couldn't get my head around those `non-local
exits' (throw and catch). It should work with a list, to offer several
sections in the manual per context. And such a list would be easy to
maintain.



Still an elisp-dyslexic,


Sebastian






Carsten Dominik <[EMAIL PROTECTED]> writes:
> On Dec 2, 2008, at 1:28 PM, Sebastian Rose wrote:
>
>>
>> Just courious:
>>
>> How would I reveal the context at point?
>> Would I use those predicates as `org-at-xxx-p'?
>
>
> C-h f org-context RET
>
> We can extend this function if needed for context help.
>
> - Carsten
>

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover

Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose emma-stil de, sebastian_rose gmx de
Http:  www.emma-stil.de


___
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 (with emacs 21)

2008-12-02 Thread Luis Finotti
Dear all,

I've been trying to install "org-6.13a" on two computers, both running
emacs 21, and having the same error when opening a new file "a.org":

"File mode specification error: (void-function org-mode)"

I followed the instructions on the manual to create a backtrace, but
it doesn't give any.

I also cannot load org-mode with M-x.

One computer is running Debian Etch and the other is running Fedora
Core 6.

Any help would be appreciated!


Luis


___
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] searchable refcard

2008-12-02 Thread Robert Goldman
I tried it the stupid way, just to see it working:


(defun org-context-help ()
  "Context help for org-mode"
  (interactive)
  (if (org-at-table-p)
  (info "(org)tables")
(if (org-at-timestamp-p)
(info "(org)timestamps")
  (if (org-at-item-checkbox-p)
  (info "(org)Checkboxes")
(if (org-at-item-p)
(info "(org)plain lists")
  (if (org-at-heading-p)
  (info "(org)headlines")
(if (org-at-property-p)
(info "(org)Properties and Columns")
  )))

For this kind of multi-way branch, cond is easier to deal with:

(cond ((org-at-table-p)
   (info "(org)tables"))
  ((org-at-timestamp-p)
   (info "(org)timestamps"))
  ((org-at-item-checkbox-p)
   (info "(org)Checkboxes"))
  ((org-at-item-p)
   (info "(org)plain lists"))
  ((org-at-heading-p)
   (info "(org)headlines"))
  ((org-at-property-p)
   (info "(org)Properties and Columns")))



Just for the fun of it.



I tried to use a list like this:

(setq org-context-help-map
  '(('org-at-item-checkbox-p "(org)Checkboxes" "(org)plain lists")
('org-at-item-p "(org)plain lists" "(org)Checkboxes")
('org-at-property-p "(org)Properties and Columns")
('org-at-timestamp-p "(org)timestamps" "(org)deadlines and
scheduling")
('org-at-table-p "(org)tables")
('org-at-heading-p "(org)headlines")))

For this you need (require 'cl), but what about

(let ((cell (find-if (lambda (lst) (eval `(,(first lst
org-context-help-map)))
  (when cell
(eval `(,(second cell)

The find avoids the need to do a non-local exit.

Note that I don't understand what you're doing with having two info
indices, so I ignored the second one...

Alternatively

(loop for (test info-entry info-entry2) in org-context-help-map
  when (eval `(,test))
return info-entry)

using the loop macro...

BTW, I don't think you want that quote inside your definition of
org-context-help-map.  You want '((org-at-item-checkbox-p ...)) not
'(('org-at-item-checkbox-p ...))  The extra quote will be a nuisance.

HTH,
R




___
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


Re: [Orgmode] publish not working in git version

2008-12-02 Thread Carsten Dominik

Hi Richard,

I cannot reproduce this problem.  Can you try to make a backtrace with  
uncompiled code so that I can at least identify the exact place where  
this bug is happening?


Also your org-publish-alist would be good, and the project where this  
happens.


Thanks.

Anyone else having trouble with publishing recently?

- Carsten


On Nov 30, 2008, at 5:53 PM, Richard Riley wrote:



Just a heads up for those that use publish - todays git version does  
not

publish (or not here anyway). Backtracking to official 13a works fine.

I got this back trace from org-publish-current-file:

,
| Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
|   file-truename(nil)
|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   byte-code("?
	Âà !)‡" [force org-publish-use-timestamps-flag org-publish-file  
buffer-file-name] 2)

|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   org-export(nil)
|   call-interactively(org-export nil nil)
|   recursive-edit()
|   byte-code("Æ  @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ!ˆ\fƒdÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ×Æ!ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command- 
char debugger-args x debugger-buffer noninteractive debugger-batch- 
max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop- 
to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"  
message "%s" buffer-string kill-emacs "" nil recursive-edit  
middlestart buffer-read-only standard-output] 4)

|   debug(error (wrong-type-argument arrayp nil))
|   file-truename(nil)
|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   byte-code("?
	Âà !)‡" [force org-publish-use-timestamps-flag org-publish-file  
buffer-file-name] 2)

|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   org-export(nil)
|   call-interactively(org-export nil nil)
`

regards

r.


___
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: [PATCH] Clean up the description of org-archive-location

2008-12-02 Thread Christian Egli
Hi

Carsten Dominik <[EMAIL PROTECTED]> writes:

> I think I am ripe for a little lecture about remote repositories
> and tracking them, so that I do not need to type the location of
> your repo each time... :-)

Can't you just do 

  git remote add bernt git://git.norang.ca/org-mode

and then 

git fetch bernt

At least that's my take if I read the section `Fetching' of
http://www.gnome.org/~federico/news-2008-11.html#pushing-and-pulling-with-git-1.
 

Unfortunatelly there is no explanation on how to merge the Bernt's
changes:

"In the next part, we'll see how to merge Larry's changes into
ours, and how to monitor his work to pull from it regularly."

HTH
Christian



___
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: publish not working in git version

2008-12-02 Thread Bernt Hansen
Carsten Dominik <[EMAIL PROTECTED]> writes:

> Anyone else having trouble with publishing recently?

Publishing seems to work for me.

-Bernt


___
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


Re: [Orgmode] map bug

2008-12-02 Thread Carsten Dominik

Fixed, thanks for the report.

Please note that aside from bigs in the mapping function,
also the example in the manual was wrong.  You should use this:

  (length (org-map-entries t "/+WAITING" 'agenda))


HTH

- Carsten

On Nov 30, 2008, at 7:37 AM, Samuel Wales wrote:


Manual says:

 The following example counts the number of entries with TODO keyword
 WAITING, in all agenda files.

  (length (org-map-entries t "/+WAITING" nil 'agenda))

Org says invalid function for the string.

Newest release.

--
Myalgic encephalomyelitis denialists are knowingly causing further
suffering and death by opposing biomedical research on this serious
infectious disease.  Do you care about the world?
http://www.meactionuk.org.uk/What_Is_ME_What_Is_CFS.htm


___
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


Re: [Orgmode] Re: publish not working in git version

2008-12-02 Thread Richard Riley

Bernt Hansen <[EMAIL PROTECTED]> writes:

> Carsten Dominik <[EMAIL PROTECTED]> writes:
>
>> Anyone else having trouble with publishing recently?
>
> Publishing seems to work for me.
>

Hi Carsten,

Still the same. I removed the elc from org code as you requested.

Latest git, following a publish file "C-c C-e f":

,
| Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
|   file-truename(nil)
|   (file-name-as-directory (file-truename (plist-get project-plist 
:base-directory)))
|   (let* ((project ...) (project-plist ...) (ftname ...) (publishing-function 
...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (setq tmp-pub-dir 
(file-name-directory ...)) (if (listp publishing-function) (mapc ... 
publishing-function) (funcall publishing-function project-plist filename 
tmp-pub-dir)))
|   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...) 
(if ... ... ...)) (org-publish-update-timestamp filename))
|   (if (org-publish-needed-p filename) (progn (let* ... ... ...) 
(org-publish-update-timestamp filename)))
|   (when (org-publish-needed-p filename) (let* (... ... ... ... ... ... 
tmp-pub-dir) (setq tmp-pub-dir ...) (if ... ... ...)) 
(org-publish-update-timestamp filename))
|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file 
(buffer-file-name)))
|   (save-window-excursion (let (...) (org-publish-file ...)))
|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) 
(set-process-sentinel p ...) (message "Background process \"%s\": started" p)) 
(call-interactively (nth 1 ass)))
|   (let* ((bg ...) (help "[t]   insert the export option template\n[v]   limit 
export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as 
HTML\n[H] export as HTML to temporary buffer\n[R] export region as HTML\n[b] 
export as HTML and browse immediately\n[x] export as XOXO\n\n[l] export as 
LaTeX\n[p] export as LaTeX and process to PDF\n[d] export as LaTeX, process to 
PDF, and open the resulting PDF document\n[L] export as LaTeX to temporary 
buffer\n\n[i] export current file as iCalendar file\n[I] export all agenda 
files as iCalendar files\n[c] export agenda files into combined iCalendar 
file\n\n[F] publish current file\n[P] publish current project\n[X] publish... 
(project will be prompted for)\n[A] publish all projects") (cmds ...) r1 r2 
ass) (save-window-excursion (delete-other-windows) (with-output-to-temp-buffer 
"*Org Export/Publishing Help*" ...) (org-fit-window-to-buffer ...) (message 
"Select command: ") (setq r1 ...)) (setq r2 (if ... ... r1)) (unless (setq ass 
...) (error "No command associated with key %c" r1)) (if (and bg ... ... ...) 
(let ... ... ...) (call-interactively ...)))
|   org-export(nil)
|   call-interactively(org-export nil nil)
|   recursive-edit()
|   byte-code("Æ   @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ
!ˆ\fƒdÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ×Æ!ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command-char 
debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 
debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 
4)
|   debug(error (wrong-type-argument arrayp nil))
|   file-truename(nil)
|   (file-name-as-directory (file-truename (plist-get project-plist 
:base-directory)))
|   (let* ((project ...) (project-plist ...) (ftname ...) (publishing-function 
...) (base-dir ...) (pub-dir ...) tmp-pub-dir) (setq tmp-pub-dir 
(file-name-directory ...)) (if (listp publishing-function) (mapc ... 
publishing-function) (funcall publishing-function project-plist filename 
tmp-pub-dir)))
|   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...) 
(if ... ... ...)) (org-publish-update-timestamp filename))
|   (if (org-publish-needed-p filename) (progn (let* ... ... ...) 
(org-publish-update-timestamp filename)))
|   (when (org-publish-needed-p filename) (let* (... ... ... ... ... ... 
tmp-pub-dir) (setq tmp-pub-dir ...) (if ... ... ...)) 
(org-publish-update-timestamp filename))
|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file 
(buffer-file-name)))
|   (save-window-excursion (let (...) (org-publish-file ...)))
|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) 
(set-process-sentinel p ...) (message "Background process \"%s\": started" p)) 
(call-interactively (nth 1 ass)))
|   (let* ((bg ...) (help "[t]   insert the export option template\n[v]   limit 
export to visible part of outline tree\n\n[a] export as ASCII\n\n[h] export as 
HTML\n[H] export as HTML to temporary buffer\n[R] export region as

Re: [Orgmode] Re: publish not working in git version

2008-12-02 Thread Carsten Dominik
Hi Richard, the new backtrace shows that your project does not define  
a base directory.


- Carsten

On Dec 2, 2008, at 5:32 PM, Richard Riley wrote:



Bernt Hansen <[EMAIL PROTECTED]> writes:


Carsten Dominik <[EMAIL PROTECTED]> writes:


Anyone else having trouble with publishing recently?


Publishing seems to work for me.



Hi Carsten,

Still the same. I removed the elc from org code as you requested.

Latest git, following a publish file "C-c C-e f":

,
| Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
|   file-truename(nil)
|   (file-name-as-directory (file-truename (plist-get project- 
plist :base-directory)))
|   (let* ((project ...) (project-plist ...) (ftname ...)  
(publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)  
(setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
function) (mapc ... publishing-function) (funcall publishing- 
function project-plist filename tmp-pub-dir)))
|   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub- 
dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
|   (if (org-publish-needed-p filename) (progn (let* ... ... ...)  
(org-publish-update-timestamp filename)))
|   (when (org-publish-needed-p filename) (let*  
(... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  
(if ... ... ...)) (org-publish-update-timestamp filename))

|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file  
(buffer-file-name)))

|   (save-window-excursion (let (...) (org-publish-file ...)))
|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set- 
process-sentinel p ...) (message "Background process \"%s\":  
started" p)) (call-interactively (nth 1 ass)))
|   (let* ((bg ...) (help "[t]   insert the export option template 
\n[v]   limit export to visible part of outline tree\n\n[a] export  
as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary  
buffer\n[R] export region as HTML\n[b] export as HTML and browse  
immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export  
as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF,  
and open the resulting PDF document\n[L] export as LaTeX to  
temporary buffer\n\n[i] export current file as iCalendar file\n[I]  
export all agenda files as iCalendar files\n[c] export agenda files  
into combined iCalendar file\n\n[F] publish current file\n[P]  
publish current project\n[X] publish... (project will be prompted  
for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window- 
excursion (delete-other-windows) (with-output-to-temp-buffer "*Org  
Export/Publishing Help*" ...) (org-fit-window-to-buffer ...)  
(message "Select command: ") (setq r1 ...)) (setq r2 (if ... ...  
r1)) (unless (setq ass ...) (error "No command associated with key  
%c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call- 
interactively ...)))

|   org-export(nil)
|   call-interactively(org-export nil nil)
|   recursive-edit()
|   byte-code("Æ  @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ!ˆ\fƒdÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ×Æ!ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command- 
char debugger-args x debugger-buffer noninteractive debugger-batch- 
max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop- 
to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"  
message "%s" buffer-string kill-emacs "" nil recursive-edit  
middlestart buffer-read-only standard-output] 4)

|   debug(error (wrong-type-argument arrayp nil))
|   file-truename(nil)
|   (file-name-as-directory (file-truename (plist-get project- 
plist :base-directory)))
|   (let* ((project ...) (project-plist ...) (ftname ...)  
(publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)  
(setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
function) (mapc ... publishing-function) (funcall publishing- 
function project-plist filename tmp-pub-dir)))
|   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub- 
dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
|   (if (org-publish-needed-p filename) (progn (let* ... ... ...)  
(org-publish-update-timestamp filename)))
|   (when (org-publish-needed-p filename) (let*  
(... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  
(if ... ... ...)) (org-publish-update-timestamp filename))

|   org-publish-file("/home/shamrock/webs/richardriley/index.org")
|   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file  
(buffer-file-name)))

|   (save-window-excursion (let (...) (org-publish-file ...)))
|   org-publish-current-file(nil)
|   call-interactively(org-publish-current-file)
|   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set- 
process-sentinel p ...) (message "Background process \"%s\":  
started" p)) (call-interactively (nth 1 ass)))
|   (let* ((bg ...) (help "[t]   i

Re: [Orgmode] Re: publish not working in git version

2008-12-02 Thread Richard Riley


Carsten Dominik <[EMAIL PROTECTED]> writes:

> Hi Richard, the new backtrace shows that your project does not define
> a base directory.

I'll take a look, but this is very strange since it works fine with the
release version. Its only the git version it falls over on.

Thanks,

r.


>
> - Carsten
>
> On Dec 2, 2008, at 5:32 PM, Richard Riley wrote:
>
>>
>> Bernt Hansen <[EMAIL PROTECTED]> writes:
>>
>>> Carsten Dominik <[EMAIL PROTECTED]> writes:
>>>
 Anyone else having trouble with publishing recently?
>>>
>>> Publishing seems to work for me.
>>>
>>
>> Hi Carsten,
>>
>> Still the same. I removed the elc from org code as you requested.
>>
>> Latest git, following a publish file "C-c C-e f":
>>
>> ,
>> | Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
>> |   file-truename(nil)
>> |   (file-name-as-directory (file-truename (plist-get project-
>> plist :base-directory)))
>> |   (let* ((project ...) (project-plist ...) (ftname ...)
>> (publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)
>> (setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
>> function) (mapc ... publishing-function) (funcall publishing-
>> function project-plist filename tmp-pub-dir)))
>> |   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq
>> tmp-pub-
>> dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
>> |   (if (org-publish-needed-p filename) (progn (let* ... ... ...)
>> (org-publish-update-timestamp filename)))
>> |   (when (org-publish-needed-p filename) (let*
>> (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  (if
>> ... ... ...)) (org-publish-update-timestamp filename))
>> |   org-publish-file("/home/shamrock/webs/richardriley/index.org")
>> |   (let ((org-publish-use-timestamps-flag ...)) (org-publish-file
>> (buffer-file-name)))
>> |   (save-window-excursion (let (...) (org-publish-file ...)))
>> |   org-publish-current-file(nil)
>> |   call-interactively(org-publish-current-file)
>> |   (if (and bg (nth 2 ass) (not ...) (not ...)) (let (...) (set-
>> process-sentinel p ...) (message "Background process \"%s\":
>> started" p)) (call-interactively (nth 1 ass)))
>> |   (let* ((bg ...) (help "[t]   insert the export option template
>> \n[v]   limit export to visible part of outline tree\n\n[a] export
>> as ASCII\n\n[h] export as HTML\n[H] export as HTML to temporary
>> buffer\n[R] export region as HTML\n[b] export as HTML and browse
>> immediately\n[x] export as XOXO\n\n[l] export as LaTeX\n[p] export
>> as LaTeX and process to PDF\n[d] export as LaTeX, process to PDF,
>> and open the resulting PDF document\n[L] export as LaTeX to
>> temporary buffer\n\n[i] export current file as iCalendar file\n[I]
>> export all agenda files as iCalendar files\n[c] export agenda files
>> into combined iCalendar file\n\n[F] publish current file\n[P]
>> publish current project\n[X] publish... (project will be prompted
>> for)\n[A] publish all projects") (cmds ...) r1 r2 ass) (save-window- 
>> excursion (delete-other-windows) (with-output-to-temp-buffer "*Org
>> Export/Publishing Help*" ...) (org-fit-window-to-buffer ...)
>> (message "Select command: ") (setq r1 ...)) (setq r2 (if ... ...
>> r1)) (unless (setq ass ...) (error "No command associated with key
>> %c" r1)) (if (and bg ... ... ...) (let ... ... ...) (call- 
>> interactively ...)))
>> |   org-export(nil)
>> |   call-interactively(org-export nil nil)
>> |   recursive-edit()
>> |   byte-code("Æ@Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ  !ˆ\fƒdÑed\"
>> VƒWebˆÒ
>> ¥yˆ`dbˆÒ
>> ¥
>> Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ×Æ!ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+Ù‡"
>> [unread-command-
>> char debugger-args x debugger-buffer noninteractive debugger-batch-
>> max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-
>> to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n"
>> message "%s" buffer-string kill-emacs "" nil recursive-edit
>> middlestart buffer-read-only standard-output] 4)
>> |   debug(error (wrong-type-argument arrayp nil))
>> |   file-truename(nil)
>> |   (file-name-as-directory (file-truename (plist-get project-
>> plist :base-directory)))
>> |   (let* ((project ...) (project-plist ...) (ftname ...)
>> (publishing-function ...) (base-dir ...) (pub-dir ...) tmp-pub-dir)
>> (setq tmp-pub-dir (file-name-directory ...)) (if (listp publishing- 
>> function) (mapc ... publishing-function) (funcall publishing-
>> function project-plist filename tmp-pub-dir)))
>> |   (progn (let* (... ... ... ... ... ... tmp-pub-dir) (setq
>> tmp-pub-
>> dir ...) (if ... ... ...)) (org-publish-update-timestamp filename))
>> |   (if (org-publish-needed-p filename) (progn (let* ... ... ...)
>> (org-publish-update-timestamp filename)))
>> |   (when (org-publish-needed-p filename) (let*
>> (... ... ... ... ... ... tmp-pub-dir) (setq tmp-pub-dir ...)  (if
>> ... ... ...)) (org-publish-update-timestamp filename))
>> |   org-publish-file("/home/shamrock/webs/richardriley/index.org")
>> |   (let ((org-publish-use-timestamps-flag .

[Orgmode] BUG - Archiving to the archive sibling duplicates tasks

2008-12-02 Thread Bernt Hansen
Hi Carsten,

I've found a bug with the archive process.

,[ test.org ]
| * One
| ** One One
| ** One Two
| ** One Three
| ** One Four
`

If you put the point on line 2 (The ** One One task) and then hit 

   C-c C-x A

4 times in a row to archive the four subtasks to the archive sibling I
get the following as a result:

,[ test.org ]
| * One
| ** Archive   :ARCHIVE:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 13:57
| :END:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 13:57
| :END:
| *** One Two
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 13:57
| :END:
| *** One Two
| *** One Three
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 13:57
| :END:
| *** One Two
| *** One Three
| *** One Four
`

with lots of duplicated entries.

If I use the following sequence it works:

   C-c C-x A
   down arrow
   up arrow

repeated 4 times and I end up with what I was expecting

,[ test.org ]
| * One
| ** Archive   :ARCHIVE:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:00
| :END:
| *** One Two
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:00
| :END:
| *** One Three
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:00
| :END:
| *** One Four
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:00
| :END:
`

After the first C-c C-x A it looks like this (which is correct)

,[ test.org ]
| * One
| ** One Two
| ** One Three
| ** One Four
| ** Archive   :ARCHIVE:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:02
| :END:
`

and after the second it looks like this (which is wrong)

,[ test.org ]
| * One
| ** One Three
| ** One Four
| ** Archive   :ARCHIVE:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:03
| :END:
| *** One One
| :PROPERTIES:
| :ARCHIVE_TIME: 2008-12-02 Tue 14:03
| :END:
| *** One Two
`

I'm running this from a minimal emacs session.  I can provide the setup
if you need it.

$ git describe
release_6.13a-23-g269c5a8

Thanks,
Bernt


___
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


Re: [Orgmode] publish not working in git version

2008-12-02 Thread Sebastian Rose
Carsten Dominik <[EMAIL PROTECTED]> writes:
> Anyone else having trouble with publishing recently?

Publishing is great - and works here.


Regards,

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover

Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose emma-stil de, sebastian_rose gmx de
Http:  www.emma-stil.de


___
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


Re: [Orgmode] searchable refcard

2008-12-02 Thread Sebastian Rose
Hi Robert,


those functions you mentioned are on my list for long winter nights :-)


Robert Goldman <[EMAIL PROTECTED]> writes:
> (let ((cell (find-if (lambda (lst) (eval `(,(first lst
> org-context-help-map)))
>   (when cell
> (eval `(,(second cell)
>
> The find avoids the need to do a non-local exit.
>
> Note that I don't understand what you're doing with having two info
> indices, so I ignored the second one...


Sometimes more than just one section of the manual match the context. I
would like to choose in those situations. While on a checkbox item, the
sections `checkboxes' and 'plain lists' both match. RET RET should just
open the default (which would be the first of those two).



> Alternatively
>
> (loop for (test info-entry info-entry2) in org-context-help-map
>   when (eval `(,test))
>   return info-entry)

> using the loop macro...
>
> BTW, I don't think you want that quote inside your definition of
> org-context-help-map.  You want '((org-at-item-checkbox-p ...)) not
> '(('org-at-item-checkbox-p ...))  The extra quote will be a nuisance.





Regards,

   Sebastian

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover

Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose emma-stil de, sebastian_rose gmx de
Http:  www.emma-stil.de


___
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


Re: [Orgmode] publish not working in git version

2008-12-02 Thread Richard Riley


Sebastian Rose <[EMAIL PROTECTED]> writes:

> Carsten Dominik <[EMAIL PROTECTED]> writes:
>> Anyone else having trouble with publishing recently?
>
> Publishing is great - and works here.

Hi Sebastion,

Do you have latest git head and publish to an ssh destination via tramp?

>
>
> Regards,

-- 
 important and urgent problems of the technology of today are no longer the 
satisfactions of the primary needs or of archetypal wishes, but the reparation 
of the evils and damages by the technology of yesterday.  ~Dennis Gabor, 
Innovations:  Scientific, Technological and Social, 1970


___
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: publish not working in git version

2008-12-02 Thread Bernt Hansen
Richard Riley <[EMAIL PROTECTED]> writes:

> Hi Sebastion,
>
> Do you have latest git head and publish to an ssh destination via tramp?

I do ... and it works for me.

-Bernt


___
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