Re: [O] [Contest] Redesign orgmode.org by the end of august

2012-08-11 Thread Bastien
Hi Rémi Letot,

hob...@poukram.net (Rémi Letot) writes:

 Bastien b...@gnu.org writes:

 Hi all,

 Yes, we can improve the website.

 I suggest we organize a contest and vote for the design we want.

 good idea, but maybe postpone the dates by one month so that people can
 get back from hollidays ?

I prefer not to.

Vacations are either a bad time or a good time for coding -- depends on
everyone's vacations and day work, I guess.

But running a contest for the next design does not mean that this design
will last forever.  If a better one comes up after the contest, we can
always switch to it.

-- 
 Bastien



Re: [O] [OT] Current website not very attractive

2012-08-11 Thread Bastien
Hi Marcelo,

Marcelo de Moraes Serpa celose...@gmail.com writes:

 @Nick: I'm not a designer, more of a hybrid coder with some design
 foundations, but I'm definitely willing to help. I don't like the
 current layout because of it's overuse of shadows and its
 web1-style layout. Also, typography could use some improvement, and
 we could also use a better screenshot, to give a better first
 impression. 

If you have good ideas but no HTML/css skills, maybe you can find a
HTML/css who has no good ideas and work with him for the contest.

Best,

-- 
 Bastien



Re: [O] [OT] Current website not very attractive

2012-08-11 Thread Bastien
Nick Dokos nicholas.do...@hp.com writes:

 Another goal should be ease of maintenance of the website: I'm sure
 neither Bastien nor Jason have infinite time to tweak things.

I confirm I don't have infinite time, but I do have ~infinite patience
for this kind of stuff.

-- 
 Bastien



Re: [O] Using org-mode as day planner

2012-08-11 Thread Bastien
Hi John,

John Hendy jw.he...@gmail.com writes:

 Date trees are the obvious way to be able to do this, but they don't
 have any of the neat search functionality that I know of.

Can you describe the search functionality you would like for date-trees?
I'm not sure I groked it.

Thanks,

-- 
 Bastien



Re: [O] [OT] Current website not very attractive

2012-08-11 Thread Bastien
brian powell briangpowel...@gmail.com writes:

 --I just hope that whoever wins the contest creates web pages that
 are 501 compliant and everyone can read on any computer using any
 operating system and browser and those webpages are as printable as a
 Texinfo document.

Even better: as the website is based on .org files, and as a new TeXinfo
exporter will soon be in contrib/lisp/, you will be able to export each
page of the website into a TeXinfo document.

-- 
 Bastien



Re: [O] [Contest] Redesign orgmode.org by the end of august

2012-08-11 Thread Bastien
Hi Tom,

t...@tsdye.com (Thomas S. Dye) writes:

 Could the losers end up on Worg, too?  I've often felt the
 need for a good CSS tailored to Org mode and it would be sweet to have
 more choices.

Quoting the rules:

- The new design refers both to http://orgmode.org/ and to
  http://orgmode.org/worg/.

So the plan is to refresh both the main website and Worg.

Of course, if there are several very good designs beside the 
one we pick up, we can use them as alternative css, either on
orgmode.org or on orgmode.org/worg/

Best,

-- 
 Bastien



[O] [ANN] Letter modes in the Groff exporter

2012-08-11 Thread Luis Anaya
Hi:

This is probably the last major feature to be implemented in the Groff
exporter. 

This is to announce that support for the letter building
macros (WA/WE/IA/IE/LO and LT) are now available in the Groff
exporter. This feature allows you to write business communications in
standard format which are provided by the means of new document classes,
namely: block, semiblock, full block, and simplified. It also
allows the use of cover sheets to build custom letter heads. 

Org will present a consistent mechanism for letter writing regardless of
the underlying macro calls. The objective during development was to hide 
as much as possible much of the implementation nuances in Groff. 

Samples are available at: 

https://www.box.com/s/578d9a22c890ddcea8bd

(I am using box instead of the pogoplug share because it was more convenient
to upload the files... call me lazy. :P )

Luis


-- 
Luis Anaya
papo anaya aroba hot mail punto com
Do not use 100 words if you can say it in 10 - Yamamoto Tsunetomo



Re: [O] [ANN] Letter modes in the Groff exporter

2012-08-11 Thread Suvayu Ali
Hi Luis,

On Sat, Aug 11, 2012 at 06:46:05AM -0400, Luis Anaya wrote:
 Hi:
 
 This is probably the last major feature to be implemented in the Groff
 exporter. 
 
 This is to announce that support for the letter building
 macros (WA/WE/IA/IE/LO and LT) are now available in the Groff
 exporter. This feature allows you to write business communications in
 standard format which are provided by the means of new document classes,
 namely: block, semiblock, full block, and simplified. It also
 allows the use of cover sheets to build custom letter heads. 
 
 Org will present a consistent mechanism for letter writing regardless of
 the underlying macro calls. The objective during development was to hide 
 as much as possible much of the implementation nuances in Groff. 
 
 Samples are available at: 
 
 https://www.box.com/s/578d9a22c890ddcea8bd
 

This looks absolutely fantastic!  I had a quick look through the Worg
documentation, but I could not find any of the beautiful examples you
have posted on the list over the last few months.  It might be a nice
idea to include the those example files and the output pdfs on Worg as a
showcase (this could be a headline in the doc page).

I believe the policy is, binary files go in Worg/images and the source
files can be anywhere in the directory tree where it is contextually
relevant; in this case it could be a org-e-groff-examples subdirectory
in Worg/org-tutorials.

Thanks for the great work; I'm pretty sure I'll be using the letter
export a lot.  :)

 
 Luis
 

-- 
Suvayu

Open source is the future. It sets us free.



Re: [O] [babel, ess] How can I make S-RET to be multi-session friendly?

2012-08-11 Thread Andrew Young
Hello All,

Well, despite being relatively new to elisp, I've decided to take a
crack at one of your problems. I'm not too sure what is causing the
strange behaviour of the session property, but I have some thoughts on
getting that one function working.

Bear with me :-)

It seems that for me, the inferior ess process is not being properly
associated with the src edit buffer.  It is being set correctly by
org-babel-R-associate-session, and then being set a second time
incorrectly by org-babel-edit-prep:R.  Commenting out line 5 in
org-babel-edit-prep:R seems to fix this issue, although I'm honestly
not sure if or what it breaks.  Everything seems ok for me, but ymmv.

Heres the change:
#+begin_src emacs-lisp
  (defun org-babel-edit-prep:R (info)
(let ((session (cdr (assoc :session (nth 2 info)
  (when (and session (string-match ^\\*\\(.+?\\)\\*$ session))
(save-match-data (org-babel-R-initiate-session session nil))
;;(setq ess-local-process-name (match-string 1 session)
)))
#+end_src

Is there any one having such issues, or who can weigh in on what
exactly is happening here?

Without making the above change, it is possible to manually attach an
ess process to the current src buffer by using the command:

C-c C-s (ess-switch-process)

You'll have to specify the process name, rather than the buffer name,
and the session must have already been started. From here all ESS
functions should work. For example, calling:

C-c C-z (ess-switch-to-end-of-ESS)

will open the session buffer.

I've implemented a variation of the function you mentioned, which uses
the inferior process discussed above.  It should do something at least
remotely like the function you were asking for, and will work with
babel sessions, as long as the ess process is associated
properly. I've made one change worth mentioning: the function now
prompts for a buffer name to set up on if no ess process is associated,
instead of only and always using *R*.

Try it out, and let me know what you think.  Of course feel free to
tweak  share!  This is my real first dive into lisp, so if anyone has
anything to share please do.

#+begin_src emacs-lisp
  (defun my-ess-eval ()
(interactive)
(update-ess-process-name-list)
(if (not (ess-make-buffer-current))
;; Obtain the target ess session
(let ((session
   (read-string Use session: 
(let ((proc (get-process ess-current-process-name)))
  (if (processp proc)
  (buffer-name (process-buffer proc)))
  ;; Obtain buffer matching session
  (if (not (get-buffer session))
  ;; If there is no buffer, create a new one
  (save-excursion
(inferior-ess)
(rename-buffer session)))
  (setq ess-local-process-name
(process-name (get-buffer-process session)
(ess-make-buffer-current)
(if (and transient-mark-mode mark-active)
(call-interactively 'ess-eval-region)
  (call-interactively 'ess-eval-line-and-step)))

(add-hook 'ess-mode-hook
  '(lambda ()
 (local-set-key [(shift return)] 'my-ess-eval)))

(add-hook 'inferior-ess-mode-hook
  '(lambda ()
 (local-set-key [C-up] 'comint-previous-input)
 (local-set-key [C-down] 'comint-next-input)))

(add-hook 'Rnw-mode-hook
  '(lambda ()
 (local-set-key [(shift return)] 'my-ess-eval)))

  (require 'ess-site)

#+end_src

Sincerely,
Andrew Young



Re: [O] Add the capture feature %(sexp) to org-feed

2012-08-11 Thread Michael Brand
Hi Bastien

On Fri, Aug 10, 2012 at 10:53 AM, Bastien b...@gnu.org wrote:
 Please try the attached patch and let me know if it works.

Thank you for making `org-capture-inside-embedded-elisp-p' much
clearer. I was not sure if you really wanted to omit switching to
Emacs Lisp Mode although it is useful for example for “%(length ))”.
So I attach a new patch where I restored this part, now cleaner too.
Also a small change against your latest patch to not stop at “%”
without following “(” and possibly miss a “%(” before.

I temporarily emptied “:FEEDSTATUS:” in all my feeds and updated them
and also tried some odd artificial examples. All works the same as
with my first patch. Can you please review this new patch compared
against your latest and apply when appropriate?

Michael
From 142625bad45ca07a185d95caa0d810225e389b95 Mon Sep 17 00:00:00 2001
From: Michael Brand michael.ch.br...@gmail.com
Date: Sat, 11 Aug 2012 17:26:57 +0200
Subject: [PATCH] Add the capture feature sexp to org feed

* org-feed.el (org-feed-format-entry): Require `org-capture'.
Expand Elisp %(...) templates.
(org-feed-default-template): Update docstring.

* org-capture.el (org-capture-expand-embedded-elisp): New
function.
(org-capture-fill-template): Use it.
(org-capture-inside-embedded-elisp-p): New function to tell if
we are within an Elisp %(...) template.
---
 lisp/org-capture.el |   40 
 lisp/org-feed.el|   56 +-
 2 files changed, 68 insertions(+), 28 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 84e5ff6..4a11462 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1388,15 +1388,7 @@ The template may still contain \%?\ for cursor 
positioning.
  (error (insert (format %%![Couldn't insert %s: %s]
 filename error)))
   ;; %() embedded elisp
-  (goto-char (point-min))
-  (while (re-search-forward %\\((.+)\\) nil t)
-   (unless (org-capture-escaped-%)
- (goto-char (match-beginning 0))
- (let ((template-start (point)))
-   (forward-char 1)
-   (let ((result (org-eval (read (current-buffer)
- (delete-region template-start (point))
- (insert result)
+  (org-capture-expand-embedded-elisp)
 
   ;; The current time
   (goto-char (point-min))
@@ -1530,6 +1522,36 @@ The template may still contain \%?\ for cursor 
positioning.
t)
 nil))
 
+(defun org-capture-expand-embedded-elisp ()
+  Evaluate embedded elisp %(sexp) and replace with the result.
+  (goto-char (point-min))
+  (while (re-search-forward %( nil t)
+(unless (org-capture-escaped-%)
+  (goto-char (match-beginning 0))
+  (let ((template-start (point)))
+   (forward-char 1)
+   (let ((result (org-eval (read (current-buffer)
+ (delete-region template-start (point))
+ (insert result))
+
+(defun org-capture-inside-embedded-elisp-p ()
+  Return non-nil if point is inside of embedded elisp %(sexp).
+  (let ((buf (buffer-string)) (p (point)) beg end)
+(with-temp-buffer   ; to keep major mode and font-lock in original buffer
+  (emacs-lisp-mode) ; to deal with for example %(length ))
+  (insert buf)
+  (goto-char p)
+  ;; `looking-at' and `search-backward' below do not match the %( if
+  ;; point is in its middle
+  (when (equal (char-before) ?%)
+(backward-char))
+  (save-match-data
+   (when (or (looking-at %() (search-backward %( nil t))
+ (setq beg (point))
+ (setq end (progn (forward-char) (forward-sexp) (1- (point)))
+(when (and beg end)
+  (and (= p end) (= p beg)
+
 ;;;###autoload
 (defun org-capture-import-remember-templates ()
   Set org-capture-templates to be similar to `org-remember-templates'.
diff --git a/lisp/org-feed.el b/lisp/org-feed.el
index 6901ffa..8b3414b 100644
--- a/lisp/org-feed.el
+++ b/lisp/org-feed.el
@@ -225,12 +225,14 @@ Any fields from the feed item can be interpolated into 
the template with
 %name, for example %title, %description, %pubDate etc.  In addition, the
 following special escapes are valid as well:
 
-%h  the title, or the first line of the description
-%t  the date as a stamp, either from pubDate (if present), or
-the current date.
-%T  date and time
-%u,%U   like %t,%T, but inactive time stamps
-%a  A link, from guid if that is a permalink, else from link
+%h  The title, or the first line of the description
+%t  The date as a stamp, either from pubDate (if present), or
+the current date
+%T  Date and time
+%u,%U   Like %t,%T, but inactive time stamps
+%a  A link, from guid if that is a permalink, else from link
+%(sexp) Evaluate elisp `(sexp)' and replace with the result, the simple
+%-escapes above can be used as arguments, e.g. %(capitalize 
\\\%h\\\)
   :group 'org-feed
   :type '(string :tag 

Re: [O] [ANN] Letter modes in the Groff exporter

2012-08-11 Thread Luis Anaya
Suvayu Ali fatkasuvayu+li...@gmail.com writes:


 This looks absolutely fantastic!  I had a quick look through the Worg
 documentation, but I could not find any of the beautiful examples you
[chomp]

I can load them there, there are still in the Pogo Cloud thinguie. It
just did not occurred to me to do it.

 Thanks for the great work; I'm pretty sure I'll be using the letter
 export a lot.  :)

I hope that they'll be of use to you. :) I have honestly thought that I was
going to be the only person using any of this. 

Luis

-- 
Luis Anaya
papo anaya aroba hot mail punto com
Do not use 100 words if you can say it in 10 - Yamamoto Tsunetomo



Re: [O] Add the capture feature %(sexp) to org-feed

2012-08-11 Thread Bastien
Hi Michael,

Michael Brand michael.ch.br...@gmail.com writes:

 Thank you for making `org-capture-inside-embedded-elisp-p' much
 clearer. I was not sure if you really wanted to omit switching to
 Emacs Lisp Mode although it is useful for example for “%(length ))”.
 So I attach a new patch where I restored this part, now cleaner too.
 Also a small change against your latest patch to not stop at “%”
 without following “(” and possibly miss a “%(” before.

Thanks.  Actually we don't need the whole emacs-lisp-mode so that
forward-sexp do something sensible.  This is enough:

  (with-syntax-table emacs-lisp-mode-syntax-table ...)

See the commit I just pushed:

  http://orgmode.org/w/?p=org-mode.git;a=commit;h=042db3

 I temporarily emptied “:FEEDSTATUS:” in all my feeds and updated them
 and also tried some odd artificial examples. All works the same as
 with my first patch. Can you please review this new patch compared
 against your latest and apply when appropriate?

Done.  Thanks again for your patience,

-- 
 Bastien



Re: [O] possible org bug

2012-08-11 Thread Bastien
Bastien b...@gnu.org writes:

 Please test the attached patch and see if this fixes the issue.

I've now pushed this patch.

Please report any issue you might have with org-publish.

Thanks,

-- 
 Bastien



Re: [O] [ANN] Letter modes in the Groff exporter

2012-08-11 Thread Bastien
Hi Luis,

thanks for all the hard work!  I'm quite excited to test all this
thoroughly (and to see your latest commits pushed to org-mode.git).

Luis Anaya papoan...@hotmail.com writes:

 This looks absolutely fantastic!  I had a quick look through the Worg
 documentation, but I could not find any of the beautiful examples you
 [chomp]

 I can load them there, there are still in the Pogo Cloud thinguie. It
 just did not occurred to me to do it.

In general, it's better to images and pdfs stored on your own server, 
then to create a link to orgmode.org.  

 Thanks for the great work; I'm pretty sure I'll be using the letter
 export a lot.  :)

 I hope that they'll be of use to you. :) I have honestly thought that I was
 going to be the only person using any of this. 

There is a particular look'n feel in those Groff PDFs, I love it.

Best,

-- 
 Bastien



Re: [O] Birthdays, org-contacts and agenda filters - a bug?

2012-08-11 Thread Simon Thum

Thanks a lot, it works!

It is good enough for me, but it seems not to work with tag inheritance, 
and it could in general be better to allow tags to be returned from the 
sexp itself.


Anyway, jut a tought.

If you let me tinker with worg I'm happy to document this feature.

Cheers,

Simon


On 08/10/2012 12:30 PM, Bastien wrote:

Hi Simon,

Simon Thumsimon.t...@gmx.de  writes:


let me just try again.


This should be fixed now, thanks for the detailed explanations.






[O] Latest commit broke capture

2012-08-11 Thread Simon Thum

Hi,

reverting 1737d3c4ee3278ae7 fixes org-capture for me.

It simply does not work ATM. (void-variable entry)

Cheers,

Simon



Re: [O] Latest commit broke capture

2012-08-11 Thread Bastien
Simon Thum simon.t...@gmx.de writes:

 reverting 1737d3c4ee3278ae7 fixes org-capture for me.

 It simply does not work ATM. (void-variable entry)

Fixed, thanks.

-- 
 Bastien



Re: [O] Birthdays, org-contacts and agenda filters - a bug?

2012-08-11 Thread Bastien
Hi Simon,

Simon Thum simon.t...@gmx.de writes:

 It is good enough for me, but it seems not to work with tag
 inheritance,

It does now, thanks.

 and it could in general be better to allow tags to be returned from the
 sexp itself.

Well, it's more difficult, and I'm not sure it's really worth the
effort.

 If you let me tinker with worg I'm happy to document this feature.

Of course! Please send me your public key in a private email and I'll
give you write access.

Best,

-- 
 Bastien



Re: [O] Add the capture feature %(sexp) to org-feed

2012-08-11 Thread Michael Brand
Hi Bastien

On Sat, Aug 11, 2012 at 6:55 PM, Bastien b...@gnu.org wrote:
 Michael Brand michael.ch.br...@gmail.com writes:
 [...]
 Also a small change against your latest patch to not stop at “%”
 without following “(” and possibly miss a “%(” before.

This part that I changed between
http://patchwork.newartisans.com/patch/1405
and
http://patchwork.newartisans.com/patch/1408
got lost, the attached patch restores it.

 Actually we don't need the whole emacs-lisp-mode so that
 forward-sexp do something sensible.  This is enough:

   (with-syntax-table emacs-lisp-mode-syntax-table ...)

Thank you for the improvement, this is a very interesting `with-'.

Michael
From 10888cbd40e3f546b9e577ff59bfa152679f9628 Mon Sep 17 00:00:00 2001
From: Michael Brand michael.ch.br...@gmail.com
Date: Sat, 11 Aug 2012 20:08:35 +0200
Subject: [PATCH] Improve parsing of org-capture-inside-embedded-elisp-p

* org-capture.el (org-capture-inside-embedded-elisp-p): Improve parsing.
---
 lisp/org-capture.el |7 +--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 6882613..4d6e91d 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1539,9 +1539,12 @@ The template may still contain \%?\ for cursor 
positioning.
   (let (beg end)
 (with-syntax-table emacs-lisp-mode-syntax-table
   (save-excursion
+   ;; `looking-at' and `search-backward' below do not match the %( if
+   ;; point is in its middle
+   (when (equal (char-before) ?%)
+ (backward-char))
(save-match-data
- (when (or (looking-at %()
-   (and (search-backward % nil t) (looking-at %()))
+ (when (or (looking-at %() (search-backward %( nil t))
(setq beg (point))
(setq end (progn (forward-char) (forward-sexp) (1- (point)))
   (when (and beg end)
-- 
1.7.4.2



[O] fill-paragraph on lists broken

2012-08-11 Thread Samuel Wales
A recent commit on master has broken fill-paragraph, making it indent
lists in strange ways.

To attempt to reproduce, make a long line as a list header and do
fill-paragraph.  The second line should indent to column 0 or to a
column to the right of where it should be or to some other place.

I have confirmed that this only occurs when filladapt is enabled.

I highly recommend filladapt.  It has always taken care of basically
every filling use case in Emacs, including Org.

Thanks.

Samuel

-- 
The Kafka Pandemic: http://thekafkapandemic.blogspot.com



Re: [O] fill-paragraph on lists broken

2012-08-11 Thread Nicolas Goaziou
Hello,

Samuel Wales samolog...@gmail.com writes:

 A recent commit on master has broken fill-paragraph, making it indent
 lists in strange ways.

 To attempt to reproduce, make a long line as a list header and do
 fill-paragraph.  The second line should indent to column 0 or to a
 column to the right of where it should be or to some other place.

 I have confirmed that this only occurs when filladapt is enabled.

Do not use filladapt in Org buffers.  Org is shipped with its own
filling mechanism.


Regards,

-- 
Nicolas Goaziou



Re: [O] [Contest] Redesign orgmode.org by the end of august

2012-08-11 Thread Thomas S. Dye
Hi Bastien,

Bastien b...@gnu.org writes:

 Hi Tom,

 t...@tsdye.com (Thomas S. Dye) writes:

 Could the losers end up on Worg, too?  I've often felt the
 need for a good CSS tailored to Org mode and it would be sweet to have
 more choices.

 Quoting the rules:

 - The new design refers both to http://orgmode.org/ and to
   http://orgmode.org/worg/.

 So the plan is to refresh both the main website and Worg.

 Of course, if there are several very good designs beside the 
 one we pick up, we can use them as alternative css, either on
 orgmode.org or on orgmode.org/worg/

 Best,

I'm hoping for a repository of Org mode aware CSS designs, regardless of
what ends up powering orgmode.org and worg.

All the best,
Tom

-- 
Thomas S. Dye
http://www.tsdye.com



Re: [O] Add the capture feature %(sexp) to org-feed

2012-08-11 Thread Bastien
Hi Michael,

Michael Brand michael.ch.br...@gmail.com writes:

 This part that I changed between
 http://patchwork.newartisans.com/patch/1405
 and
 http://patchwork.newartisans.com/patch/1408
 got lost, the attached patch restores it.

Unless I miss something obvious, the current version returns exactly 
the same thing than the one you propose -- can you double-check or let 
me know what is wrong with the current solution?

Thanks!

-- 
 Bastien



Re: [O] fill-paragraph on lists broken

2012-08-11 Thread Bastien
Nicolas Goaziou n.goaz...@gmail.com writes:

 I have confirmed that this only occurs when filladapt is enabled.

 Do not use filladapt in Org buffers.  Org is shipped with its own
 filling mechanism.

Yes -- we need to heavily insist on this:

filladapt should *not* be used with org-mode.

Thanks,

-- 
 Bastien



Re: [O] [Contest] Redesign orgmode.org by the end of august

2012-08-11 Thread Bastien
t...@tsdye.com (Thomas S. Dye) writes:

 I'm hoping for a repository of Org mode aware CSS designs, regardless of
 what ends up powering orgmode.org and worg.

Good idea!  Hopefully there will be at least one or two new CSS via the
contest...  crossing fingers.

-- 
 Bastien



[O] Tangling is broken in git master

2012-08-11 Thread Bernt Hansen
Hi Bastien,

Tangling doesn't work for me in git master anymore.  Git bisect
identifies the following commit as introducing the problem

--8---cut here---start-8---
ba16c3c6f50738b070769040586945436439be76 is the first bad commit
commit ba16c3c6f50738b070769040586945436439be76
Author: Bastien Guerry b...@altern.org
Date:   Sat Aug 11 10:43:56 2012 +0200

Don't use `org-labels'

* org-compat.el (org-labels): Remove.

* org-bibtex.el (org-bibtex-headline): Don't use `org-labels'.

* ob.el (org-babel-sha1-hash, org-babel-noweb-p): Ditto.

:04 04 bf962e4c7c93de4f2b5f71bf4fc1520ec0723a0e 
43ecd68f89e1e856a4e65d84eff3cf6b84872494 M  lisp
--8---cut here---end---8---

--8---cut here---start-8---
Debugger entered--Lisp error: (void-function letrec)
  (letrec ((intersect ...)) (funcall intersect (case context ... ... ...) 
(split-string ...)))
  org-babel-noweb-p(((:colname-names) (:rowname-names) (:result-params 
replace) (:result-type . value) (:comments . ) (:shebang . ) (:cache . 
no) (:padline . ) (:noweb . no) (:tangle . yes) (:exports . none) 
(:results . replace) (:colnames . no) (:hlines . yes) (:padnewline . 
yes) (:session . none)) :tangle)
  (if (org-babel-noweb-p params :tangle) (org-babel-expand-noweb-references 
info) (nth 1 info))
  ((lambda (body) (if ... body ...)) (if (org-babel-noweb-p params :tangle) 
(org-babel-expand-noweb-references info) (nth 1 info)))
  ((lambda (body) (with-temp-buffer ... ... ...)) ((lambda ... ...) (if ... ... 
...)))
  (let* ((info ...) (params ...) (link ...) (source-name ...) (expand-cmd ...) 
(assignments-cmd ...) (body ...) (comment ...) by-lang) (setq by-lang (cdr 
...)) (setq blocks (delq ... blocks)) (setq blocks (cons ... blocks)))
  (if (and language (not ...)) nil (let* (... ... ... ... ... ... ... ... 
by-lang) (setq by-lang ...) (setq blocks ...) (setq blocks ...)))
  (unless (and language (not ...)) (let* (... ... ... ... ... ... ... ... 
by-lang) (setq by-lang ...) (setq blocks ...) (setq blocks ...)))
  (if (string= (cdr ...) no) nil (unless (and language ...) (let* ... ... ... 
...)))
  (unless (string= (cdr ...) no) (unless (and language ...) (let* ... ... ... 
...)))
  (let* ((start-line ...) (file ...) (info ...) (src-lang ...)) (unless 
(string= ... no) (unless ... ...)))
  (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-lang 
...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...) 
(header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) 
(beg-body ...) (end-body ...)) ((lambda ... ...) (replace-regexp-in-string [   
] - ...)) (let* (... ... ... ...) (unless ... ...)) (goto-char end-block))
  (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char 
(match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... 
... ...) (... ...) (let* ... ...) (goto-char end-block)))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed 
(current-buffer)) (goto-char (point-min)) (while (re-search-forward 
org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ... ...)))
  (let* ((file ...) (visited-p ...) (point ...) to-be-removed) 
(save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) 
(while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char 
point))
  (org-babel-map-src-blocks (buffer-file-name) ((lambda ... ...) 
(replace-regexp-in-string [   ] - ...)) (let* (... ... ... ...) (unless ... 
...)))
  (let ((block-counter 1) (current-heading ) blocks) 
(org-babel-map-src-blocks (buffer-file-name) (... ...) (let* ... ...)) (setq 
blocks (mapcar ... blocks)) blocks)
  org-babel-tangle-collect-blocks(nil)
  (mapc (lambda (by-lang) (let* ... ...)) (org-babel-tangle-collect-blocks 
lang))
  (let ((block-counter 0) (org-babel-default-header-args ...) path-collector) 
(mapc (lambda ... ...) (org-babel-tangle-collect-blocks lang)) (message 
tangled %d code block%s from %s block-counter (if ...  s) 
(file-name-nondirectory ...)) (when org-babel-post-tangle-hook (mapc ... 
path-collector)) path-collector)
  (save-excursion (let (... ... path-collector) (mapc ... ...) (message 
tangled %d code block%s from %s block-counter ... ...) (when 
org-babel-post-tangle-hook ...) path-collector))
  (save-restriction (when only-this-block (unless ... ...) (save-match-data 
...) (narrow-to-region ... ...)) (save-excursion (let ... ... ... ... 
path-collector)))
  org-babel-tangle(nil)
  call-interactively(org-babel-tangle nil nil)
--8---cut here---end---8---

Regards,
Bernt



[O] MobileOrg, webdav, correct use of org-mobile-directory?

2012-08-11 Thread James Harkins
Okay, I've just about gotten that WebDAV service set up for mobileorg sync. I 
can both GET and PUT files using cadaver. But org-mode isn't talking to it 
properly.

According to [1] ([user] is a substitute for the real http user name):

org-mobile-directory: /scpc:**user**@localhost:80/webdav/

Then org-mobile-push gets further:

Loading tramp...done
Tramp: Opening connection for [user]@localhost using scpc...
Tramp: Sending command `exec ssh -l [user]  -o 
ControlPath=/tmp/tramp.26688vS.%r@%h:%p -o ControlMaster=yes -e none localhost'

Tramp: Waiting for prompts from remote shell
Tramp: Sending password
Tramp: Sending command `exec ssh -l [user]  -o 
ControlPath=/tmp/tramp.26688vS.%r@%h:%p -o ControlMaster=yes -e none localhost'
Tramp: Found remote shell prompt on `localhost'
Tramp: Opening connection for [user]@localhost using scpc...done

... but chokes on something surprising:

org-mobile-check-setup: Variable `org-mobile-directory' must point to an 
existing directory

Huh? [1] clearly says:

  (setq org-mobile-directory /scpc:u...@remote.host:org/webdav/)

... but:

  (unless (and org-mobile-directory
   (stringp org-mobile-directory)
   (string-match \\S- org-mobile-directory)
   (file-exists-p org-mobile-directory)
   (file-directory-p org-mobile-directory))
(error
 Variable `org-mobile-directory' must point to an existing directory))

I suppose I can hack it by putting the physical location of the webdav share 
into org-mobile-directory. But, the documentation seems incompatible with the 
current behavior.

hjh

[1] http://orgmode.org/worg/org-faq.html#mobileorg_webdav


--
James Harkins /// dewdrop world
jamshar...@dewdrop-world.net
http://www.dewdrop-world.net

Come said the Muse,
Sing me a song no poet has yet chanted,
Sing me the universal.  -- Whitman

blog: http://www.dewdrop-world.net/words
audio clips: http://www.dewdrop-world.net/audio
more audio: http://soundcloud.com/dewdrop_world/tracks



Re: [O] MobileOrg, webdav, correct use of org-mobile-directory?

2012-08-11 Thread Nick Dokos
James Harkins jamshar...@gmail.com wrote:

 Okay, I've just about gotten that WebDAV service set up for mobileorg
 sync. I can both GET and PUT files using cadaver. But org-mode isn't
 talking to it properly.

But from what you show below, you are not using cadaver (or anything
webdav-related for that matter) to do the copying. You are using
scp: *that*'s what you've got to get working.

 
 According to [1] ([user] is a substitute for the real http user name):
 
 org-mobile-directory: /scpc:**user**@localhost:80/webdav/
 

This looks wrong - if you try it with scp from the command line, can
you copy a file to that destination?

 Then org-mobile-push gets further:
 
 Loading tramp...done
 Tramp: Opening connection for [user]@localhost using scpc...
 Tramp: Sending command `exec ssh -l [user]  -o 
 ControlPath=/tmp/tramp.26688vS.%r@%h:%p -o ControlMaster=yes -e none 
 localhost'
 
 Tramp: Waiting for prompts from remote shell
 Tramp: Sending password
 Tramp: Sending command `exec ssh -l [user]  -o 
 ControlPath=/tmp/tramp.26688vS.%r@%h:%p -o ControlMaster=yes -e none 
 localhost'
 Tramp: Found remote shell prompt on `localhost'
 Tramp: Opening connection for [user]@localhost using scpc...done
 
 ... but chokes on something surprising:
 
 org-mobile-check-setup: Variable `org-mobile-directory' must point to an 
 existing directory
 
 Huh? [1] clearly says:
 
   (setq org-mobile-directory /scpc:u...@remote.host:org/webdav/)
 
 ... but:
 
   (unless (and org-mobile-directory
  (stringp org-mobile-directory)
  (string-match \\S- org-mobile-directory)
  (file-exists-p org-mobile-directory)
  (file-directory-p org-mobile-directory))
 (error
  Variable `org-mobile-directory' must point to an existing directory))
 
 I suppose I can hack it by putting the physical location of the webdav share 
 into org-mobile-directory. But, the documentation seems incompatible with the 
 current behavior.
 

Where does org-mobile-directory point to if not the physical location
of the webdav share? The tramp stuff doesn't know or care about webdav
at all: it is just the mechanism that copies files from your local
machine to some other machine, so it needs to know exactly where to copy
it to.

Nick