* HTML/images zipped?
@ 2015-06-26 13:10 Peter Davis
2015-06-26 13:15 ` Rasmus
` (3 more replies)
0 siblings, 4 replies; 18+ messages in thread
From: Peter Davis @ 2015-06-26 13:10 UTC (permalink / raw)
To: emacs-orgmode
Is there any way to export HTML with all references images,
etc. packaged in a ZIP file?
Thank you.
-pd
^ permalink raw reply [flat|nested] 18+ messages in thread* Re: HTML/images zipped? 2015-06-26 13:10 HTML/images zipped? Peter Davis @ 2015-06-26 13:15 ` Rasmus 2015-06-26 14:05 ` Peter Davis 2015-06-26 14:24 ` John Kitchin 2015-06-26 13:44 ` Phillip Lord ` (2 subsequent siblings) 3 siblings, 2 replies; 18+ messages in thread From: Rasmus @ 2015-06-26 13:15 UTC (permalink / raw) To: emacs-orgmode Peter Davis <pfd@pfdstudio.com> writes: > Is there any way to export HTML with all references images, > etc. packaged in a ZIP file? My guess is that at the moment your best bet is hacking some together with ox-publish. See org-publish-project-alist. Hope it helps, Rasmus PS: On the list, we have talked about a .borg format that might serve for similar situation but it's at an idea stage at the moment. -- This message is brought to you by the department of redundant departments ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:15 ` Rasmus @ 2015-06-26 14:05 ` Peter Davis 2015-06-26 14:24 ` John Kitchin 1 sibling, 0 replies; 18+ messages in thread From: Peter Davis @ 2015-06-26 14:05 UTC (permalink / raw) To: Rasmus; +Cc: emacs-orgmode Rasmus <rasmus@gmx.us> writes: > Peter Davis <pfd@pfdstudio.com> writes: > >> Is there any way to export HTML with all references images, >> etc. packaged in a ZIP file? > > My guess is that at the moment your best bet is hacking some together with > ox-publish. See org-publish-project-alist. Thanks, Rasmus. I'll take a look when I have a chance, but for now, I'll have to zip the files by hand. Thanks! -pd ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:15 ` Rasmus 2015-06-26 14:05 ` Peter Davis @ 2015-06-26 14:24 ` John Kitchin 2015-06-26 14:35 ` Peter Davis ` (2 more replies) 1 sibling, 3 replies; 18+ messages in thread From: John Kitchin @ 2015-06-26 14:24 UTC (permalink / raw) To: Rasmus; +Cc: emacs-orgmode I did something like this for org-files: https://github.com/jkitchin/jmax/blob/master/ox-archive.el You might use that as a starting point for html. Also, my blogofile code (https://github.com/jkitchin/jmax/blob/master/user/blogofile.el) does something like this to publish org to blogofile. Rasmus writes: > Peter Davis <pfd@pfdstudio.com> writes: > >> Is there any way to export HTML with all references images, >> etc. packaged in a ZIP file? > > My guess is that at the moment your best bet is hacking some together with > ox-publish. See org-publish-project-alist. > > Hope it helps, > Rasmus > > PS: On the list, we have talked about a .borg format that might serve for > similar situation but it's at an idea stage at the moment. -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 14:24 ` John Kitchin @ 2015-06-26 14:35 ` Peter Davis 2015-06-26 17:22 ` Peter Davis 2015-06-26 21:51 ` Nick Dokos 2 siblings, 0 replies; 18+ messages in thread From: Peter Davis @ 2015-06-26 14:35 UTC (permalink / raw) To: emacs-orgmode Thanks, John. I will take a closer look at both of these. Cheers, -pd On 6/26/15 10:24 AM, John Kitchin wrote: > I did something like this for org-files: > https://github.com/jkitchin/jmax/blob/master/ox-archive.el > > You might use that as a starting point for html. > > Also, my blogofile code > (https://github.com/jkitchin/jmax/blob/master/user/blogofile.el) does > something like this to publish org to blogofile. > > > > Rasmus writes: > >> Peter Davis <pfd@pfdstudio.com> writes: >> >>> Is there any way to export HTML with all references images, >>> etc. packaged in a ZIP file? >> My guess is that at the moment your best bet is hacking some together with >> ox-publish. See org-publish-project-alist. >> >> Hope it helps, >> Rasmus >> >> PS: On the list, we have talked about a .borg format that might serve for >> similar situation but it's at an idea stage at the moment. > -- > Professor John Kitchin > Doherty Hall A207F > Department of Chemical Engineering > Carnegie Mellon University > Pittsburgh, PA 15213 > 412-268-7803 > @johnkitchin > http://kitchingroup.cheme.cmu.edu > ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 14:24 ` John Kitchin 2015-06-26 14:35 ` Peter Davis @ 2015-06-26 17:22 ` Peter Davis 2015-06-26 18:09 ` John Kitchin 2015-06-26 21:51 ` Nick Dokos 2 siblings, 1 reply; 18+ messages in thread From: Peter Davis @ 2015-06-26 17:22 UTC (permalink / raw) To: John Kitchin; +Cc: emacs-orgmode John Kitchin <jkitchin@andrew.cmu.edu> writes: > I did something like this for org-files: > https://github.com/jkitchin/jmax/blob/master/ox-archive.el > > You might use that as a starting point for html. I'm not lisp-savvy, but I've been experimenting with this. I get an error: Unknown "nil" backend: Aborting export It seems to be coming from these lines: (let ((org-export-filter-link-functions '(ox-mrkup-filter-link))) (org-org-export-as-org))) I'm not sure how or where backend is supposed to be defined. Also, I guess it would take some tweaking to export to HTML and save that in the ZIP, instead of the original org file. Any hints welcome. Thanks! -pd ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 17:22 ` Peter Davis @ 2015-06-26 18:09 ` John Kitchin 2015-06-26 19:28 ` Peter Davis 0 siblings, 1 reply; 18+ messages in thread From: John Kitchin @ 2015-06-26 18:09 UTC (permalink / raw) To: Peter Davis; +Cc: emacs-orgmode I am not sure. I have this in my init file: (require 'ox-org) maybe that is required for you too? Peter Davis writes: > John Kitchin <jkitchin@andrew.cmu.edu> writes: > >> I did something like this for org-files: >> https://github.com/jkitchin/jmax/blob/master/ox-archive.el >> >> You might use that as a starting point for html. > > I'm not lisp-savvy, but I've been experimenting with this. I get an > error: > > Unknown "nil" backend: Aborting export > > It seems to be coming from these lines: > > (let ((org-export-filter-link-functions '(ox-mrkup-filter-link))) > (org-org-export-as-org))) > > I'm not sure how or where backend is supposed to be defined. > > Also, I guess it would take some tweaking to export to HTML and save > that in the ZIP, instead of the original org file. > > Any hints welcome. > > Thanks! > -pd -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 18:09 ` John Kitchin @ 2015-06-26 19:28 ` Peter Davis 0 siblings, 0 replies; 18+ messages in thread From: Peter Davis @ 2015-06-26 19:28 UTC (permalink / raw) To: John Kitchin; +Cc: emacs-orgmode Thanks, John. That didn't solve it for me. I'll keep digging when I get a chance. Thank you. -pd John Kitchin <jkitchin@andrew.cmu.edu> writes: > I am not sure. I have this in my init file: > > (require 'ox-org) > > maybe that is required for you too? > > Peter Davis writes: > >> John Kitchin <jkitchin@andrew.cmu.edu> writes: >> >>> I did something like this for org-files: >>> https://github.com/jkitchin/jmax/blob/master/ox-archive.el >>> >>> You might use that as a starting point for html. >> >> I'm not lisp-savvy, but I've been experimenting with this. I get an >> error: >> >> Unknown "nil" backend: Aborting export >> >> It seems to be coming from these lines: >> >> (let ((org-export-filter-link-functions '(ox-mrkup-filter-link))) >> (org-org-export-as-org))) >> >> I'm not sure how or where backend is supposed to be defined. >> >> Also, I guess it would take some tweaking to export to HTML and save >> that in the ZIP, instead of the original org file. >> >> Any hints welcome. >> >> Thanks! >> -pd > > -- > Professor John Kitchin > Doherty Hall A207F > Department of Chemical Engineering > Carnegie Mellon University > Pittsburgh, PA 15213 > 412-268-7803 > @johnkitchin > http://kitchingroup.cheme.cmu.edu ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 14:24 ` John Kitchin 2015-06-26 14:35 ` Peter Davis 2015-06-26 17:22 ` Peter Davis @ 2015-06-26 21:51 ` Nick Dokos 2015-06-26 23:34 ` John Kitchin 2 siblings, 1 reply; 18+ messages in thread From: Nick Dokos @ 2015-06-26 21:51 UTC (permalink / raw) To: emacs-orgmode John Kitchin <jkitchin@andrew.cmu.edu> writes: > I did something like this for org-files: > https://github.com/jkitchin/jmax/blob/master/ox-archive.el > I tried this on some arbitrary org file (not containing any references) and I got an error: Debugger entered--Lisp error: (wrong-type-argument stringp nil) file-name-directory(nil) (let* ((temporary-file-directory (file-name-directory (buffer-file-name))) (tempname (make-temp-file "extract-bib")) (contents (buffer-string)) (cb (current-buffer)) basename texfile bibfile results) (find-file tempname) (insert contents) (setq basename (file-name-sans-extension (file-name-nondirectory buffer-file-name)) texfile (concat tempname ".tex") bibfile (concat tempname ".bib")) (save-excursion (goto-char (point-min)) (if (re-search-forward "^bibliography:" (point-max) (quote end)) nil (insert (format "\nbibliography:%s" (mapconcat (quote identity) reftex-default-bibliography ","))))) (save-buffer) (org-latex-export-to-latex) (find-file texfile) (reftex-parse-all) (reftex-create-bibtex-file bibfile) (save-buffer) (setq results (buffer-string)) (kill-buffer (concat basename ".bib")) (kill-buffer (concat basename ".tex")) (kill-buffer basename) (delete-file bibfile) (delete-file texfile) (delete-file tempname) (switch-to-buffer cb) (if (not (string= "" results)) (progn (save-excursion (goto-char (point-max)) (insert "\n\n") (org-insert-heading) (insert (format " Bibtex entries\n\n#+BEGIN_SRC text :tangle %s\n%s\n#+END_SRC" (concat (file-name-sans-extension ...) ".bib") results)))))) org-ref-extract-bibtex-entries() (let* ((org-file (buffer-name)) (org-file-abs-path (buffer-file-name)) (base-name (file-name-sans-extension org-file)) (org-archive (if (string= zip-base-name "") (concat base-name "-" (format-time-string "%Y-%m-%d" (current-time))) zip-base-name)) (org-archive-zip (concat org-archive ".zip")) link-list) (if (file-exists-p org-archive-zip) (progn (delete-file org-archive-zip))) (if (file-exists-p org-archive) (progn (delete-directory org-archive t))) (make-directory org-archive t) (setq link-list (let ((parsetree (org-element-parse-buffer)) (counter 0)) (org-element-map parsetree (quote link) (function (lambda (link) (let* (... ... ... ... ... ... ... ...) (message ...) (cond ... ... ...))))))) (message (format "\n\nlink-list: %s\n\n" link-list)) (let ((counter 0)) (defalias (quote ox-mrkup-filter-link) (function (lambda (text back-end info) (message "handing link %s: %s\n" counter text) (let ((link ...)) (message " %s replacement is %s\n" counter link) (if (not ...) (progn ... ...) (setq output ...)) (setq counter (+ counter 1)) output)))) (let ((org-export-filter-link-functions (quote (ox-mrkup-filter-link)))) (org-org-export-as-org))) (switch-to-buffer "*Org ORG Export*") (insert (format "# archived from %s on %s\n" org-file-abs-path (format-time-string "%Y-%m-%d" (current-time)))) (org-ref-extract-bibtex-entries) (write-file (expand-file-name org-file org-archive)) (shell-command (concat "zip -v -r " org-archive-zip " *")) (rename-file org-archive-zip (concat "../" org-archive ".zip")) (switch-to-buffer org-file) (delete-directory org-archive t) org-archive-zip) ox-archive-create-zip("foo") ... I think there is a bug in ox-archive-create-zip: --8<---------------cut here---------------start------------->8--- ... (switch-to-buffer "*Org ORG Export*") (insert (format "# archived from %s on %s\n" org-file-abs-path (format-time-string "%Y-%m-%d" (current-time)))) ;; add bibliography references if they exist. (org-ref-extract-bibtex-entries) ... --8<---------------cut here---------------end--------------->8--- because the first thing that org-ref-extract-bibtex-entries does is --8<---------------cut here---------------start------------->8--- (let* ((temporary-file-directory (file-name-directory (buffer-file-name))) --8<---------------cut here---------------end--------------->8--- and (buffer-file-name) returns nil on the *Org ORG Export* buffer. But since you obviously use this code successfully, I wonder why you don't hit this. Thanks for any help, Nick ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 21:51 ` Nick Dokos @ 2015-06-26 23:34 ` John Kitchin 2015-06-27 4:52 ` Nick Dokos 0 siblings, 1 reply; 18+ messages in thread From: John Kitchin @ 2015-06-26 23:34 UTC (permalink / raw) To: Nick Dokos; +Cc: emacs-orgmode hm... maybe it has been a while since I ran that ;) I pushed some changes that seem to have it working on a small test file. This code is somewhat on the border of a filter/custom export. There are probably links that will now work with it, I have not tested it super thoroughly. Notably, it does not preserve relative paths, but rather renames files and images and replaces the links in the org-file with the new names. It was too hard to figure out how to preserve the paths when I wrote this originally. Nick Dokos writes: > John Kitchin <jkitchin@andrew.cmu.edu> writes: > >> I did something like this for org-files: >> https://github.com/jkitchin/jmax/blob/master/ox-archive.el >> > > I tried this on some arbitrary org file (not containing any references) and I got an error: > > Debugger entered--Lisp error: (wrong-type-argument stringp nil) > file-name-directory(nil) > (let* ((temporary-file-directory (file-name-directory (buffer-file-name))) (tempname (make-temp-file "extract-bib")) (contents (buffer-string)) (cb (current-buffer)) basename texfile bibfile results) (find-file tempname) (insert contents) (setq basename (file-name-sans-extension (file-name-nondirectory buffer-file-name)) texfile (concat tempname ".tex") bibfile (concat tempname ".bib")) (save-excursion (goto-char (point-min)) (if (re-search-forward "^bibliography:" (point-max) (quote end)) nil (insert (format "\nbibliography:%s" (mapconcat (quote identity) reftex-default-bibliography ","))))) (save-buffer) (org-latex-export-to-latex) (find-file texfile) (reftex-parse-all) (reftex-create-bibtex-file bibfile) (save-buffer) (setq results (buffer-string)) (kill-buffer (concat basename ".bib")) (kill-buffer (concat basename ".tex")) (kill-buffer basename) (delete-file bibfile) (delete-file texfile) (delete-file tempname) (switch-to-buffer cb) (if (not (string= "" results)) (progn (save-excursion (goto-char (point-max)) (insert "\n\n") (org-insert-heading) (insert (format " Bibtex entries\n\n#+BEGIN_SRC text :tangle %s\n%s\n#+END_SRC" (concat (file-name-sans-extension ...) ".bib") results)))))) > org-ref-extract-bibtex-entries() > (let* ((org-file (buffer-name)) (org-file-abs-path (buffer-file-name)) (base-name (file-name-sans-extension org-file)) (org-archive (if (string= zip-base-name "") (concat base-name "-" (format-time-string "%Y-%m-%d" (current-time))) zip-base-name)) (org-archive-zip (concat org-archive ".zip")) link-list) (if (file-exists-p org-archive-zip) (progn (delete-file org-archive-zip))) (if (file-exists-p org-archive) (progn (delete-directory org-archive t))) (make-directory org-archive t) (setq link-list (let ((parsetree (org-element-parse-buffer)) (counter 0)) (org-element-map parsetree (quote link) (function (lambda (link) (let* (... ... ... ... ... ... ... ...) (message ...) (cond ... ... ...))))))) (message (format "\n\nlink-list: %s\n\n" link-list)) (let ((counter 0)) (defalias (quote ox-mrkup-filter-link) (function (lambda (text back-end info) (message "handing link %s: %s\n" counter text) (let ((link ...)) (message " %s replacement is %s\n" counter link) (if (not ...) (progn ... ...) (setq output ...)) (setq counter (+ counter 1)) output)))) (let ((org-export-filter-link-functions (quote (ox-mrkup-filter-link)))) (org-org-export-as-org))) (switch-to-buffer "*Org ORG Export*") (insert (format "# archived from %s on %s\n" org-file-abs-path (format-time-string "%Y-%m-%d" (current-time)))) (org-ref-extract-bibtex-entries) (write-file (expand-file-name org-file org-archive)) (shell-command (concat "zip -v -r " org-archive-zip " *")) (rename-file org-archive-zip (concat "../" org-archive ".zip")) (switch-to-buffer org-file) (delete-directory org-archive t) org-archive-zip) > ox-archive-create-zip("foo") > ... > > I think there is a bug in ox-archive-create-zip: > > --8<---------------cut here---------------start------------->8--- > ... > (switch-to-buffer "*Org ORG Export*") > (insert (format "# archived from %s on %s\n" > org-file-abs-path > (format-time-string "%Y-%m-%d" (current-time)))) > > ;; add bibliography references if they exist. > (org-ref-extract-bibtex-entries) > ... > --8<---------------cut here---------------end--------------->8--- > > because the first thing that org-ref-extract-bibtex-entries does is > > --8<---------------cut here---------------start------------->8--- > (let* ((temporary-file-directory (file-name-directory (buffer-file-name))) > --8<---------------cut here---------------end--------------->8--- > > and (buffer-file-name) returns nil on the *Org ORG Export* buffer. > But since you obviously use this code successfully, I wonder why > you don't hit this. > > Thanks for any help, > Nick -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 23:34 ` John Kitchin @ 2015-06-27 4:52 ` Nick Dokos 0 siblings, 0 replies; 18+ messages in thread From: Nick Dokos @ 2015-06-27 4:52 UTC (permalink / raw) To: emacs-orgmode John Kitchin <jkitchin@andrew.cmu.edu> writes: > hm... maybe it has been a while since I ran that ;) I pushed some > changes that seem to have it working on a small test file. > Yes, it does not fail any longer. Thanks! > This code is somewhat on the border of a filter/custom export. There are > probably links that will now work with it, I have not tested it super > thoroughly. > > Notably, it does not preserve relative paths, but rather renames files > and images and replaces the links in the org-file with the new > names. It was too hard to figure out how to preserve the paths when I > wrote this originally. > OK. I'm just kicking the tires for now. > Nick Dokos writes: > >> John Kitchin <jkitchin@andrew.cmu.edu> writes: >> >>> I did something like this for org-files: >>> https://github.com/jkitchin/jmax/blob/master/ox-archive.el >>> >> >> I tried this on some arbitrary org file (not containing any references) and I got an error: >> -- Nick ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:10 HTML/images zipped? Peter Davis 2015-06-26 13:15 ` Rasmus @ 2015-06-26 13:44 ` Phillip Lord 2015-06-26 14:08 ` Peter Davis 2015-06-29 8:47 ` Robert Klein 2015-06-30 5:38 ` Vaidheeswaran C 3 siblings, 1 reply; 18+ messages in thread From: Phillip Lord @ 2015-06-26 13:44 UTC (permalink / raw) To: Peter Davis; +Cc: emacs-orgmode data-uri's is probably what you want. There is no standard format for zipping multiple HTML files together, while including images (or video's or audio) directly into the HTML works reasonably well. I found a snippet to get ox-html to do this -- it would be a good feature to add properly though! Peter Davis <pfd@pfdstudio.com> writes: > Is there any way to export HTML with all references images, > etc. packaged in a ZIP file? > > Thank you. > > -pd > > > > -- Phillip Lord, Phone: +44 (0) 191 208 7827 Lecturer in Bioinformatics, Email: phillip.lord@newcastle.ac.uk School of Computing Science, http://homepages.cs.ncl.ac.uk/phillip.lord Room 914 Claremont Tower, skype: russet_apples Newcastle University, twitter: phillord NE1 7RU ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:44 ` Phillip Lord @ 2015-06-26 14:08 ` Peter Davis 2015-06-26 14:30 ` John Kitchin 0 siblings, 1 reply; 18+ messages in thread From: Peter Davis @ 2015-06-26 14:08 UTC (permalink / raw) To: Phillip Lord; +Cc: emacs-orgmode phillip.lord@newcastle.ac.uk (Phillip Lord) writes: > data-uri's is probably what you want. There is no standard format for > zipping multiple HTML files together, while including images (or video's > or audio) directly into the HTML works reasonably well. > > I found a snippet to get ox-html to do this -- it would be a good > feature to add properly though! Thanks, Phillip. That sounds like an interesting possibility. I've never worked with data-uri's. Can you post or send that snippet? I don't seem to be finding it on my initial searches. Thanks, -pd ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 14:08 ` Peter Davis @ 2015-06-26 14:30 ` John Kitchin 0 siblings, 0 replies; 18+ messages in thread From: John Kitchin @ 2015-06-26 14:30 UTC (permalink / raw) To: Peter Davis; +Cc: Phillip Lord, emacs-orgmode That is a cool idea. Here is some code for data uris that worked on with org-mode earlier this summer. You could definitely hack a filter that embedded the image uri directly into the exported html. http://kitchingroup.cheme.cmu.edu/blog/2015/05/09/Another-approach-to-embedding-org-source-in-html/ Peter Davis writes: > phillip.lord@newcastle.ac.uk (Phillip Lord) writes: > >> data-uri's is probably what you want. There is no standard format for >> zipping multiple HTML files together, while including images (or video's >> or audio) directly into the HTML works reasonably well. >> >> I found a snippet to get ox-html to do this -- it would be a good >> feature to add properly though! > > Thanks, Phillip. That sounds like an interesting possibility. I've never > worked with data-uri's. Can you post or send that snippet? I don't seem > to be finding it on my initial searches. > > Thanks, > -pd -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:10 HTML/images zipped? Peter Davis 2015-06-26 13:15 ` Rasmus 2015-06-26 13:44 ` Phillip Lord @ 2015-06-29 8:47 ` Robert Klein 2015-06-29 11:13 ` Rasmus 2015-06-30 5:38 ` Vaidheeswaran C 3 siblings, 1 reply; 18+ messages in thread From: Robert Klein @ 2015-06-29 8:47 UTC (permalink / raw) To: Peter Davis; +Cc: emacs-orgmode [-- Attachment #1: Type: text/plain, Size: 993 bytes --] Hello, please find an experimental htmlzip exporter attached. Publishing doesn't work, yet (and would, as I began to write it, export to individual zip files -- one per published org file -- instead of a single zip file). It is a derived HTML exporter. I took a lot of stuff from the corresponding functions in the HTML and LaTeX exporter. I'm putting an advice on org-html--format-image during "zip" export to get a list of inline images, so I can put them together with the html in the zip file. (Another possibility would be to `rewrite' the functions org-html-latex-environment, org-html-latex-fragment, and org-html-link as translate functions for the new exporter (with the only purpose to run a org-htmlzip--image-list instead of org-html--image-list). Best regards Robert On Fri, 26 Jun 2015 09:10:25 -0400 Peter Davis <pfd@pfdstudio.com> wrote: > > Is there any way to export HTML with all references images, > etc. packaged in a ZIP file? > > Thank you. > > -pd > > [-- Attachment #2: ox-htmlzip.el --] [-- Type: text/x-emacs-lisp, Size: 5432 bytes --] ;;; ox-htmlzip.el --- Zipped HTML Back-End for Org Export Engine ;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Robert Klein <roklein at roklein dot de> ;; Keywords: HTML, zip ;; This file is not part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; This library implements an zip-addon for the HTML back-end for the ;; Org generic exporter. ;;; Code: ;;; Dependencies (require 'ox) (require 'ox-html) ;; in turn requires ox-publish and ox. ;;; Define Derived Back-End (org-export-define-derived-backend 'htmlzip 'html :menu-entry '(?h "Export to HTML" ((?z "To zipped file" org-htmlzip-export-to-htmlzip) )) :options-alist '() :translate-alist '()) ;;; Internal variables (defvar org-htmlzip--image-list nil "Images to upload/change URL in buffer.") \f ;;; Internal Functions (defun org-htmlzip--add-image (source attributes info) "Add image file name org-htmlzip--image-list. Used as an advice for org-html--image-format during htmlzip export." (add-to-list 'org-htmlzip--image-list source)) ;;; helper functions for export ;;; End-user functions ;;;###autoload (defun org-htmlzip-export-to-htmlzip (&optional async subtreep visible-only body-only ext-plist) "Export current buffer to a HTML file. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting file should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between \"<body>\" and \"</body>\" tags. EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. Return output file's name." (interactive) (advice-add 'org-html--format-image :before #'org-htmlzip--add-image) (setq org-htmlzip--image-list nil) (let* ((extension (concat "." (or (plist-get ext-plist :html-extension) org-html-extension "html"))) (file (org-export-output-file-name extension subtreep)) (org-export-coding-system org-html-coding-system) (zipfile (org-export-to-file 'html file async subtreep visible-only body-only ext-plist (lambda (file) (org-htmlzip--zip file))))) (setq org-htmlzip--image-list nil) (advice-remove 'org-html--format-image #'org-htmlzip--add-image) zipfile)) (defun org-htmlzip--zip (htmlfile) " Zip a HTML file. HTMLFILE is the name of the exported HTML file being zipped. Inline image file names are taken from the global variable or-html--image-list. Return ZIP file name." (let* ((base-name (file-name-sans-extension (file-name-nondirectory htmlfile))) (full-name (file-truename htmlfile)) (out-dir (file-name-directory htmlfile)) (zip-file (concat base-name ".zip")) ;; Properly set working directory for compilation. (default-directory (if (file-name-absolute-p htmlfile) (file-name-directory full-name) default-directory))) ;; delete zip file if it exists (when (file-exists-p zip-file) (delete-file zip-file)) ;; zip newly exported files (shell-command (concat "zip " (shell-quote-argument zip-file) " " (shell-quote-argument htmlfile) " " (mapconcat 'shell-quote-argument org-htmlzip--image-list " "))) zip-file)) ;;;###autoload (defun org-htmlzip-publish-to-htmlzip (plist filename pub-dir) "Publish an org file to ZIP (via HTML). FILENAME is the filename of the Org file to be published. PLIST is the property list for the given project. PUB-DIR is the publishing directory. Return output file name." ;; Unlike to `org-html-publish-to-html', PDF file is generated ;; in working directory and then moved to publishing directory. (advice-add 'org-html--format-image :before #'org-htmlzip--add-image) (setq org-htmlzip--image-list nil) (let ((outfile (org-publish-attachment plist (org-htmlzip--zip (org-publish-org-to 'htmlzip filename ".html" plist (file-name-directory filename))) pub-dir))) (setq org-htmlzip--image-list nil) (advice-remove 'org-html--format-image #'org-htmlzip--add-image) outfile)) (provide 'ox-htmlzip) ;; Local variables: ;; generated-autoload-file: "org-loaddefs.el" ;; End: ;;; ox-htmlzip.el ends here ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-29 8:47 ` Robert Klein @ 2015-06-29 11:13 ` Rasmus 2015-06-30 20:05 ` Robert Klein 0 siblings, 1 reply; 18+ messages in thread From: Rasmus @ 2015-06-29 11:13 UTC (permalink / raw) To: emacs-orgmode Hi Robert, Robert Klein <roklein@roklein.de> writes: > please find an experimental htmlzip exporter attached. Cool! I don't know if you indent to make this an extension to org or for this to be a quick hack to solve a particular issue. If the former: Shouldn't this rather be something that is configurable from via a keyword in ox-html or more logically via ox-publish (which can consist of several files)? If so, you could store the list of files in the info communication channel rather than org-htmlzip--image-list. The command used for compression should be configurable. Also, if the point is to produce an offline version, you should also include scripts and css files. Thanks, Rasmus -- A clever person solves a problem. A wise person avoids it ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-29 11:13 ` Rasmus @ 2015-06-30 20:05 ` Robert Klein 0 siblings, 0 replies; 18+ messages in thread From: Robert Klein @ 2015-06-30 20:05 UTC (permalink / raw) To: Rasmus; +Cc: emacs-orgmode On Mon, 29 Jun 2015 13:13:19 +0200 Rasmus <rasmus@gmx.us> wrote: Hi Rasmus, > Hi Robert, > > Robert Klein <roklein@roklein.de> writes: > > > please find an experimental htmlzip exporter attached. > > Cool! > > I don't know if you indent to make this an extension to org or for > this to be a quick hack to solve a particular issue. > I thought about aiming for contrib, but if it turns out not to be too invasive I'll probably ask for inclusion in ox-html. > If the former: Shouldn't this rather be something that is configurable > from via a keyword in ox-html or more logically via ox-publish (which > can consist of several files)? If so, you could store the list of > files in the info communication channel rather than > org-htmlzip--image-list. Hmm, I think for individual files C-c C-e h a(rchive) and an option for publishing (e.g. in org-publish-project-alist) > The command used for compression should be configurable. Yes, per org-publish-project-alist and global at least, I think. Could be I'd need to `register' (e.g. org-export-archivers-alist) compressions commands in .emacs, so a #+OPTION doesn't get too complicated (I'd think something like `z:tgz' is acceptable, but e.g. `z:'("tar" "-jcvf") is not... > > Also, if the point is to produce an offline version, you should also > include scripts and css files. Agreed. I'll see how far I get in the next couple of days. Thank you very much for your suggestions! Best regards Robert ^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: HTML/images zipped? 2015-06-26 13:10 HTML/images zipped? Peter Davis ` (2 preceding siblings ...) 2015-06-29 8:47 ` Robert Klein @ 2015-06-30 5:38 ` Vaidheeswaran C 3 siblings, 0 replies; 18+ messages in thread From: Vaidheeswaran C @ 2015-06-30 5:38 UTC (permalink / raw) To: emacs-orgmode On Friday 26 June 2015 06:40 PM, Peter Davis wrote: > Is there any way to export HTML with all references images, > etc. packaged in a ZIP file? This is EPUB format (more or less). ^ permalink raw reply [flat|nested] 18+ messages in thread
end of thread, other threads:[~2015-06-30 20:05 UTC | newest] Thread overview: 18+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2015-06-26 13:10 HTML/images zipped? Peter Davis 2015-06-26 13:15 ` Rasmus 2015-06-26 14:05 ` Peter Davis 2015-06-26 14:24 ` John Kitchin 2015-06-26 14:35 ` Peter Davis 2015-06-26 17:22 ` Peter Davis 2015-06-26 18:09 ` John Kitchin 2015-06-26 19:28 ` Peter Davis 2015-06-26 21:51 ` Nick Dokos 2015-06-26 23:34 ` John Kitchin 2015-06-27 4:52 ` Nick Dokos 2015-06-26 13:44 ` Phillip Lord 2015-06-26 14:08 ` Peter Davis 2015-06-26 14:30 ` John Kitchin 2015-06-29 8:47 ` Robert Klein 2015-06-29 11:13 ` Rasmus 2015-06-30 20:05 ` Robert Klein 2015-06-30 5:38 ` Vaidheeswaran C
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).