From: Sebastian Rose <sebastian_rose@gmx.de>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Export ascii-images using ditaa when targeting HTML?
Date: Wed, 12 Nov 2008 20:13:31 +0100 [thread overview]
Message-ID: <87vdus4v1g.fsf@kassiopeya.MSHEIMNETZ> (raw)
In-Reply-To: <87zlk4hj2a.fsf@gmail.com> (Eric Schulte's message of "Wed, 12 Nov 2008 10:53:49 -0800")
Hi Eric,
I used no options at all for testing. Now it works here (see my previous
mail).
The only problem left is now the copy problem if I change
something. Seems that this happens somewhere else. I.e., not in
org-exp-blocks.el, but rather in one of those:
sh$ grep -Fr copy-file emacs/lisp/ext/org-mode/lisp/
emacs/lisp/ext/org-mode/lisp/org.el: (copy-file pngfile tofile 'replace)
emacs/lisp/ext/org-mode/lisp/org-attach.el: ((eq method 'cp) (copy-file file fname))
emacs/lisp/ext/org-mode/lisp/org-publish.el: (copy-file filename pub-dir))
Debugger entered--Lisp error: (file-already-exists "File already exists" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png")
copy-file("/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png" nil nil nil)
apply(copy-file ("/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png" nil nil nil))
image-file-call-underlying(copy-file copy-file "/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png" nil nil nil)
apply(image-file-call-underlying copy-file copy-file ("/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png" nil nil nil))
image-file-handler(copy-file "/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/ditaa-all-examples.png" nil nil nil)
copy-file("/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/")
org-publish-attachment((:base-directory "~/emacs/org/notes/" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|txt\\|htm\\|html\\|dtd\\|php" :publishing-directory "~/develop/htdocs/org-notes/" :publishing-function org-publish-attachment) "/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/")
funcall(org-publish-attachment (:base-directory "~/emacs/org/notes/" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|txt\\|htm\\|html\\|dtd\\|php" :publishing-directory "~/develop/htdocs/org-notes/" :publishing-function org-publish-attachment) "/home/sebastian/emacs/org/notes/ditaa-all-examples.png" "/home/sebastian/develop/htdocs/org-notes/")
(if (listp publishing-function) (mapc (lambda ... ...) publishing-function) (funcall publishing-function project-plist filename tmp-pub-dir))
(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/sebastian/emacs/org/notes/ditaa-all-examples.png" ("org-notes-static" :base-directory "~/emacs/org/notes/" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|txt\\|htm\\|html\\|dtd\\|php" :publishing-directory "~/develop/htdocs/org-notes/" :publishing-function org-publish-attachment))
(while (setq file (pop files)) (org-publish-file file project))
(let* ((project-plist ...) (exclude-regexp ...) (index-p ...) (index-filename ...) (index-function ...) (preparation-function ...) (completion-function ...) (files ...) file) (when preparation-function (funcall preparation-function)) (if index-p (funcall index-function project index-filename)) (while (setq file ...) (org-publish-file file project)) (when completion-function (funcall completion-function)))
(lambda (project) (let* (... ... ... ... ... ... ... ... file) (when preparation-function ...) (if index-p ...) (while ... ...) (when completion-function ...)))(("org-notes-static" :base-directory "~/emacs/org/notes/" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|txt\\|htm\\|html\\|dtd\\|php" :publishing-directory "~/develop/htdocs/org-notes/" :publishing-function org-publish-attachment))
mapc((lambda (project) (let* (... ... ... ... ... ... ... ... file) (when preparation-function ...) (if index-p ...) (while ... ...) (when completion-function ...))) (("org-notes" :base-directory "~/emacs/org/notes/" :auto-index t :index-filename "sitemap.org" :index-title "Sitemap" :recursive t :base-extension "org" :publishing-directory "~/develop/htdocs/org-notes/" :publishing-function org-publish-org-to-html :headline-levels 4 :auto-preamble t :style "<link rel=\"stylesheet\" href=\"stylesheet.css\" type=\"text/css\" />\n <script type=\"text/javascript\" src=\"org-info.js\"></script>") ("org-notes-static" :base-directory "~/emacs/org/notes/" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|txt\\|htm\\|html\\|dtd\\|php" :publishing-directory "~/dev
elop/htdocs/org-notes/" :publishing-function org-publish-attachment)))
org-publish-projects((("org" :components ("org-notes" "org-notes-static"))))
(let* ((force current-prefix-arg) (org-publish-use-timestamps-flag ...)) (org-publish-projects (list ...)))
(save-window-excursion (let* (... ...) (org-publish-projects ...)))
org-publish(nil)
call-interactively(org-publish t nil)
execute-extended-command(nil)
call-interactively(execute-extended-command nil nil)
Don't know if this is new - I never ever changed an image file so far.
Regards,
Sebastian
"Eric Schulte" <schulte.eric@gmail.com> writes:
> Sebastian Rose <sebastian_rose@gmx.de> writes:
>
>> Carsten Dominik <dominik@science.uva.nl> writes:
>>>> ditaa has no option to adjust the background color, but if I use ditaa
>>>> from the commandline, the background color is white.
>>>
>>> For what it is worth, I have no problems with the background, it is white all
>>> right. Maybe it is transparent?
>>
>>
>> No, it is black indeed. But I found out, what it is.
>>
>>
>> This line
>>
>> (shell-command (concat "java -jar " ditaa-jar-path " " args " " data-file " " out-file))
>>
>> calls another java than this command line:
>>
>> java -jar ~/bin/ditaar.jar /tmp/org-ditaa5607fgk
>>
>>
>
> Just to make sure, did you notice the command line option -S which
> controls the background color?
>
> ,----[java -jar ditaa0_6b.jar -h]
> |
> | DiTAA version 0.6b, Copyright (C) 2004 Efstathios Sideris
> |
> | Using options:
> | html: true
> | Error: Please provide the input file filename
> | Usage:
> | java -jar text2image.jar
> |
> | [{-o,--overwrite}]
> | [{-d,--debug}]
> | [{-t,--tabs}]
> |
> | [{-S,--no-shadows}]
> | [{-A,--no-antialias}]
> | [{-s,--scale} scale]
> | [{-r,--round-corners}]
> | [{-E,--no-separation}]
> |
> | [{-h,--html}]
> |
> | <inpfile> [outfile]
> |
> | Note: do not group options like -rES. This is going to be fixed.
> `----
>
> -- Eric
>
>> >
>> Yes, that seems to be the reason:
>>
>> /usr/bin/java is that free GNU java stuff that comes with Debian
>> (some packages depend on it). It's deadslow and makes the black
>> background.
>>
>>
>> The commandline calls:
>>
>> sh$ which java
>> /usr/lib/jvm/java-6-sun/bin/java
>>
>> It's fast and makes the background white :-)
>>
>>
>>
>> `shell-command' seems to call /usr/bin/java instead of regarding my $PATH
>>
>> $sh echo $PATH
>> /home/sebastian/bin/ext/maven/bin:/usr/lib/jvm/java-6-sun/bin:/home/sebastian/bin:/usr/local/bin:/usr/bin:/bin
>>
>>
>> Funny enough, the problem remains, if I start emacs from the bash
>> prompt. Seems that `shell-command' searches the standard directories
>> without regarding the environment?
>>
>>
>>
>> Don't know yet, if this is related to the problem:
>>
>> Debian/Java - it's a stupid combination really. I installed the SUN java
>> stuff using apt-get - it's odd:
>>
>> sh$ ls -l /etc/alternatives/java
>> lrwxrwxrwx 1 root root 34 28. Okt 20:35 /etc/alternatives/java -> /usr/lib/jvm/java-gcj/jre/bin/java
>>
>> Don't believe adjusting this helps, but I'd have to adjust all the
>> other /etc/alternatives/java* stuff by hand anyway. Maybe I should
>> file a bug report to Debian.
>>
>>
>>
>>
>> Adjusting the java path in org-exp-blocks directly fixes it.
>>
>>
>>
>> Thanks,
>
--
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
next prev parent reply other threads:[~2008-11-12 19:11 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-11-06 16:12 Export ascii-images using ditaa when targeting HTML? Mac
2008-11-12 1:57 ` Eric Schulte
2008-11-12 8:14 ` Mac
2008-11-12 9:44 ` Mac
2008-11-12 10:00 ` Carsten Dominik
2008-11-12 10:17 ` Mac
2008-11-14 14:54 ` Bernt Hansen
2008-11-14 15:51 ` Carsten Dominik
2008-11-14 16:02 ` Bernt Hansen
2008-11-12 1:59 ` Eric Schulte
2008-11-12 6:45 ` Carsten Dominik
2008-11-12 9:53 ` Mac
2008-11-12 13:54 ` Sebastian Rose
2008-11-12 15:59 ` Carsten Dominik
2008-11-12 18:33 ` Sebastian Rose
2008-11-12 18:42 ` Sebastian Rose
2008-11-12 19:18 ` Bernt Hansen
2008-11-12 19:41 ` Sebastian Rose
2008-11-12 19:47 ` Bernt Hansen
2008-11-12 20:33 ` Sebastian Rose
2008-11-12 18:53 ` Eric Schulte
2008-11-12 19:13 ` Sebastian Rose [this message]
2008-11-12 19:30 ` Eric Schulte
2008-11-12 20:31 ` Sebastian Rose
2008-11-12 20:47 ` Eric Schulte
2008-11-12 21:54 ` Sebastian Rose
2008-11-12 23:01 ` Carsten Dominik
2008-11-12 22:42 ` Eric Schulte
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87vdus4v1g.fsf@kassiopeya.MSHEIMNETZ \
--to=sebastian_rose@gmx.de \
--cc=emacs-orgmode@gnu.org \
--cc=schulte.eric@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).