Publishing file /home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.org using `org-publish-org-to-html'
Exporting...
Loading cc-langs...
...
  org-export-replace-src-segments-and-examples()
  (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (progn (goto-char (point-min)) (if (re-search-forward "^\\(#.*\n\\)?\\*+[ 	]" nil t) (progn (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))))) (if (plist-get parameters :add-text) (progn (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n"))) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...)
  (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (progn (goto-char (point-min)) (if (re-search-forward "^\\(#.*\n\\)?\\*+[ 	]" nil t) (progn (delete-region (point-min) (match-beginning 0)) (goto-char (point-min)) (insert "\n"))))) (if (plist-get parameters :add-text) (progn (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n"))) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (progn (goto-char (point-min)) (if (re-search-forward "^\\(#.*\n\\)?\\*+[ 	]" nil t) (progn (delete-region ... ...) (goto-char ...) (insert "\n"))))) (if (plist-get parameters :add-text) (progn (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n"))) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (progn (goto-char (point-min)) (if (re-search-forward "^\\(#.*\n\\)?\\*+[ 	]" nil t) (progn ... ... ...)))) (if (plist-get parameters :add-text) (progn (goto-char (point-min)) (insert (plist-get parameters :add-text) "\n"))) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (let* ((org-export-current-backend (or (plist-get parameters :for-backend) org-export-current-backend)) (archived-trees (plist-get parameters :archived-trees)) (inhibit-read-only t) (drawers org-drawers) (source-buffer (current-buffer)) target-alist rtn) (setq org-export-target-aliases nil org-export-preferred-target-alist nil org-export-id-target-alist nil org-export-code-refs nil) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (point-max) (quote ...))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get parameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-mark-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-export-replace-src-segments-and-examples) (org-export-protect-colon-examples) (org-export-convert-protected-spaces) (setq target-alist (org-export-define-heading-targets target-alist)) (run-hooks (quote org-export-preprocess-after-headline-targets-hook)) (org-export-remember-html-container-classes) (org-export-remove-or-extract-drawers drawers (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (progn (goto-char ...) (if ... ...))) (if (plist-get parameters :add-text) (progn (goto-char ...) (insert ... "\n"))) (org-export-remove-headline-metadata parameters) (setq target-alist (org-export-handle-invisible-targets target-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-code-hook)) (org-export-select-backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess-after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) rtn)
  org-export-preprocess-string("#+TITLE:     org-annotation-helper.el -- using org-mode as a bookmark manager, a knowledge base, a research tool and more!\n#+OPTIONS:   ^:{} author:nil\n#+STARTUP: odd\n\nWe want to be able to pass a URL, a document title and a selected\nregion directly from a web browser to a running instance of Emacs.\n\n* Oveview\n  You select a region on a web page, click a bookmarklet and a link to\n  the web page, page title and selected region is saved in a\n  designated Org file.\n\n* Components\n*** New protocols\nWe define a remember:// url handler in the browser and use a shell\nscript to handle the protocol.  This script passes the information to\na running Emacs process (using =emacsclient= or =gnuclient=).  We use\nbookmarklets to create the =remember://= urls dynamicly.\n\nThe protocol types currently recognized are:\n\n- remember:// :: start `remember' with the url and title filled in\n- annotation:// :: similar to `planner-annotation-as-kill' (org?)\n\nThe urls used internally will have the following form:\n\n  =remember://<the web page url>::remember::<the title>::remember::<selection>=\n\nThe title will be url-hex-encoded.\n\n*** The bookmarklets\n\n#+begin_src java\njavascript:location.href='remember://' + location.href + \\\n  '::remember::' + escape(document.title) + '::remember::' + escape(window.getSelection())\n#+end_src\n\n#+begin_src java\njavascript:location.href='annotation://' + location.href + '::remember::' +\\\n    escape(document.title) ;;\n#+end_src\n\n*** The handler\n\n#+begin_src shell-script\n\n#!/bin/sh\n# org-annotation-helper -- pass a remember-url to emacs\n#\n# Author: Geert Kloosterman <g.j.kloosterman@gmail.com>\n# Date: Sat Nov 19 22:33:18 2005\n\nif [ -z \"$1\" ]; then\n    echo \"$0: Error: no arguments given!\" 1>&2\n    exit 1\nfi\n\n# To test uncomment following line\n#echo $1 >> /tmp/remember.out\n\nemacsclient --eval \"(progn (bzg/org-annotation-helper \\\"$1\\\" ) nil)\"\n#+end_src\n\n* Installation\n*** Install org-annotation-helper.el\n    \n    Install this script and require it in your .emacs (or wherever you\n    want to do it)\n\n#+begin_src emacs-lisp\n(require 'org-annotation-helper)\n#+end_src\n\n*** Install the remember script\n***** Save the handler as a script, and make sure it is executable, i.e. remember\n***** Try it:\n      1. Make sure emacs is running and you have started its server\n         mode using (server-start) in .emacs or M-x server-start.\n\n      2. Run this command from the command line:\n\n#+begin_src shell-script\n$ remember 'remember://http%3A//orgmode.org/::remember::Org-Mode%20Homepage::remember::Notes'\n#+end_src\n      \n      3. Emacs should now show a remember window with a URL to remember.org\n\n*** Add two bookmarklets\n\n    For firefox:\n\n    1. Right click on the bookmarks area of Firefox.\n    2. Select new bookmark.\n    3. In location fill the javascript code above (the bookmarklet)\n    4. Make sure \"Load this bookmark in the sidebar is deselected\n\n    Try it. You should have now a url that starts with \"remember://\"\n     and your browser will not know what do to with it.\n\n*** Add the handler for the \"remember://\" URI\n\n***** Firefox\n\n      To add a protocol handler (eg: remember://) in Firefox, take the\n      following steps:\n\n      1. type in \"about:config\" in the location bar\n      2. right click, select New --> String\n         - the name should be \"network.protocol-handler.app.remember\"\n         - the value should be the executable, eg. \"org-annotation-helper\".\n\n     At least under Linux this does not need to be the full path to\n     the executable.\n\n     See http://kb.mozillazine.org/Register_protocol for more details.\n\n***** Opera\n\n      In Opera add the protocol in the Preferences->Advanced->Programs\n      dialog.\n\n*** Configure a template\n\n    I personally use the following template for this mode (all as one\n    line):\n\n#+begin_example \n(\"Weblink\" ?w \"* %c\\n  :PROPERTIES:\\n  :CREATED: %U\\n  :END:\\n  - link: %:link\\n  - Quote:\\n\\n    %?%:region\\n\\n  - End Quote\\n\\n\" \"bookmarks.org\" \"WebLinks\" )\n#+end_example\n\n   - =%c= :: will be replaced with the hyperlink to the page, displaying the title of the page\n   - =%:link= :: will be replaced with the address of the page\n   - =%i= :: will be replaced with the selected text from the browser\n   - =%:region= :: will be replaced by the selected text from the web\n                   page (special characters will be in hex-code.)\n   - =%U= :: will be replaced by the current date\n   - =%?= :: the cursor will be placed here (you may also replace this\n             escape with =%&= to make it completely non-interactive.)\n\n   By default the new remember notes are placed in the bookmarks.org\n   file under the \"Web links\" section, but it can be easily overriden\n   with C-u C-c C-c\n\n*** Step 5:\n     Enjoy\n" :emph-multiline t :for-backend html :skip-before-1st-heading nil :drawers nil :todo-keywords t :tasks t :tags not-in-toc :priority nil :footnotes t :timestamps nil :archived-trees nil :select-tags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t)
\n]")
\n	]*</p>" nil t) (replace-match "")) (goto-char (point-min)) (goto-char (point-min)) (let (beg end n) (while (setq beg (next-single-property-change (point) (quote org-whitespace))) (setq n (get-text-property beg (quote org-whitespace)) end (next-single-property-change beg (quote org-whitespace))) (goto-char beg) (delete-region beg end) (insert (format "<span style=\"visibility:hidden;\">%s</span>" (make-string n 120))))) (goto-char (point-min)) (if (looking-at "\\s-+\n") (progn (replace-match ""))) (remove-text-properties (point-min) (point-max) (quote (display t))) (run-hooks (quote org-export-html-final-hook)) (or to-buffer (save-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring "HTML") (message "Exporting... done")) (if (eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer))) (current-buffer))))
  org-export-as-html(nil (:buffer-will-be-killed t :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) nil nil "/var/www/orgmode.org/worg/org-contrib/")
  funcall(org-export-as-html nil (:buffer-will-be-killed t :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) nil nil "/var/www/orgmode.org/worg/org-contrib/")
  (setq export-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-get plist :headline-levels) plist nil (plist-get plist :body-only) pub-dir))
  (let* ((plist (cons :buffer-will-be-killed (cons t plist))) (init-buf (current-buffer)) (init-point (point)) (init-buf-string (buffer-string)) export-buf-or-file) (run-hooks (quote org-publish-before-export-hook)) (setq export-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-get plist :headline-levels) plist nil (plist-get plist :body-only) pub-dir)) (if (and (bufferp export-buf-or-file) (buffer-live-p export-buf-or-file)) (progn (set-buffer export-buf-or-file) (progn (run-hooks (quote org-publish-after-export-hook)) (if (buffer-modified-p) (save-buffer))) (kill-buffer export-buf-or-file))) (set-buffer init-buf) (if (buffer-modified-p init-buf) (progn (erase-buffer) (insert init-buf-string) (save-buffer) (goto-char init-point))) (if visiting nil (kill-buffer init-buf)))
  (save-excursion (org-pop-to-buffer-same-window (or visiting (find-file filename))) (let* ((plist (cons :buffer-will-be-killed (cons t plist))) (init-buf (current-buffer)) (init-point (point)) (init-buf-string (buffer-string)) export-buf-or-file) (run-hooks (quote org-publish-before-export-hook)) (setq export-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-get plist :headline-levels) plist nil (plist-get plist :body-only) pub-dir)) (if (and (bufferp export-buf-or-file) (buffer-live-p export-buf-or-file)) (progn (set-buffer export-buf-or-file) (progn (run-hooks (quote org-publish-after-export-hook)) (if (buffer-modified-p) (save-buffer))) (kill-buffer export-buf-or-file))) (set-buffer init-buf) (if (buffer-modified-p init-buf) (progn (erase-buffer) (insert init-buf-string) (save-buffer) (goto-char init-point))) (if visiting nil (kill-buffer init-buf))))
  (let ((visiting (find-buffer-visiting filename))) (save-excursion (org-pop-to-buffer-same-window (or visiting (find-file filename))) (let* ((plist (cons :buffer-will-be-killed (cons t plist))) (init-buf (current-buffer)) (init-point (point)) (init-buf-string (buffer-string)) export-buf-or-file) (run-hooks (quote org-publish-before-export-hook)) (setq export-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-get plist :headline-levels) plist nil (plist-get plist :body-only) pub-dir)) (if (and (bufferp export-buf-or-file) (buffer-live-p export-buf-or-file)) (progn (set-buffer export-buf-or-file) (progn (run-hooks (quote org-publish-after-export-hook)) (if (buffer-modified-p) (save-buffer))) (kill-buffer export-buf-or-file))) (set-buffer init-buf) (if (buffer-modified-p init-buf) (progn (erase-buffer) (insert init-buf-string) (save-buffer) (goto-char init-point))) (if visiting nil (kill-buffer init-buf)))))
  org-publish-org-to("html" (:base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) "/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.org" "/var/www/orgmode.org/worg/org-contrib/")
  (let ((org-export-preprocess-after-headline-targets-hook (if (plist-get project-plist :makeindex) (cons (quote org-publish-aux-preprocess) org-export-preprocess-after-headline-targets-hook) org-export-preprocess-after-headline-targets-hook))) (org-publish-org-to "html" plist filename pub-dir))
  org-publish-org-to-html((:base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) "/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.org" "/var/www/orgmode.org/worg/org-contrib/")
  funcall(org-publish-org-to-html (:base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) "/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.org" "/var/www/orgmode.org/worg/org-contrib/")
  (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))
  (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir)))
  (lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))))(org-publish-org-to-html)
  mapc((lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir)))) (org-publish-org-to-html org-publish-org-to-org))
  (if (listp publishing-function) (mapc (function (lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))))) publishing-function) (if (org-publish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir))))
  (let* ((project (or project (or (org-publish-get-project-from-filename filename) (error "File %s not part of any known project" (abbreviate-file-name filename))))) (project-plist (cdr project)) (ftname (expand-file-name filename)) (publishing-function (or (plist-get project-plist :publishing-function) (quote org-publish-org-to-html))) (base-dir (file-name-as-directory (expand-file-name (or (plist-get project-plist :base-directory) (error "Project %s does not have :base-directory defined" (car project)))))) (pub-dir (file-name-as-directory (file-truename (or (eval (plist-get project-plist :publishing-directory)) (error "Project %s does not have :publishing-directory defined" (car project)))))) tmp-pub-dir) (if no-cache nil (org-publish-initialize-cache (car project))) (setq tmp-pub-dir (file-name-directory (concat pub-dir (and (string-match (regexp-quote base-dir) ftname) (substring ftname (match-end 0)))))) (if (listp publishing-function) (mapc (function (lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))))) publishing-function) (if (org-publish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir)))) (if no-cache nil (org-publish-write-cache-file)))
  org-publish-file("/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.org" ("worg-pages" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) t)
  (while (setq file (car (prog1 files (setq files (cdr files))))) (org-publish-file file project t))
  (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) file) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (while (setq file (car (prog1 files (setq files (cdr files))))) (org-publish-file file project t)) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex (plist-get project-plist :base-directory)) (org-publish-file (expand-file-name "theindex.org" (plist-get project-plist :base-directory)) project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file))
  (lambda (project) (org-publish-initialize-cache (car project)) (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) file) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (while (setq file (car (prog1 files (setq files (cdr files))))) (org-publish-file file project t)) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex (plist-get project-plist :base-directory)) (org-publish-file (expand-file-name "theindex.org" (plist-get project-plist :base-directory)) project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file)))(("worg-pages" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil))
  mapc((lambda (project) (org-publish-initialize-cache (car project)) (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) file) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (while (setq file (car (prog1 files (setq files (cdr files))))) (org-publish-file file project t)) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex (plist-get project-plist :base-directory)) (org-publish-file (expand-file-name "theindex.org" (plist-get project-plist :base-directory)) project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file))) (("worg-org-faq" :base-directory "~/src/emacs/org/Worg/" :base-extension "dummy" :include ("org-faq.org") :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) ("worg-pages" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) ("worg-code" :base-directory "~/src/emacs/org/Worg/code/" :base-extension "html\\|css\\|png\\|js\\|bz2\\|el\\|sty\\|awk" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/code/" :recursive t :publishing-function org-publish-attachment) ("worg-color-themes" :base-directory "~/src/emacs/org/Worg/color-themes/" :base-extension "el" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/color-themes/" :recursive t :publishing-function org-publish-attachment) ("worg-images-dir" :base-directory "~/src/emacs/org/Worg/images/" :base-extension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css" :publishing-directory "/var/www/orgmode.org/worg/images/" :recursive t :publishing-function org-publish-attachment) ("worg-images" :base-directory "~/src/emacs/org/Worg/" :base-extension "png\\|jpg\\|gif\\|pdf\\|csv\\|css" :publishing-directory "/var/www/orgmode.org/worg/" :recursive t :publishing-function org-publish-attachment) ("worg-sources" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :publishing-directory "/var/www/orgmode.org/worg/sources/" :recursive t :publishing-function org-publish-attachment) ("worg-extra" :base-directory "~/src/emacs/org/Worg/" :base-extension "css" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function org-publish-attachment)))
  org-publish-projects((("worg" :components ("worg-org-faq" "worg-pages" "worg-code" "worg-color-themes" "worg-images-dir" "worg-images" "worg-sources" "worg-extra")) ("orgweb" :components ("orgwebpages" "orgweb-extra")) ("worg-org-faq" :base-directory "~/src/emacs/org/Worg/" :base-extension "dummy" :include ("org-faq.org") :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) ("worg-pages" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-contents nil :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />\n<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />\n<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />\n<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\"></link>\n<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\"></link>" :recursive t :auto-preamble t :postamble "<div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>" :auto-postamble nil) ("worg-code" :base-directory "~/src/emacs/org/Worg/code/" :base-extension "html\\|css\\|png\\|js\\|bz2\\|el\\|sty\\|awk" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/code/" :recursive t :publishing-function org-publish-attachment) ("worg-color-themes" :base-directory "~/src/emacs/org/Worg/color-themes/" :base-extension "el" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/color-themes/" :recursive t :publishing-function org-publish-attachment) ("worg-images-dir" :base-directory "~/src/emacs/org/Worg/images/" :base-extension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css" :publishing-directory "/var/www/orgmode.org/worg/images/" :recursive t :publishing-function org-publish-attachment) ("worg-images" :base-directory "~/src/emacs/org/Worg/" :base-extension "png\\|jpg\\|gif\\|pdf\\|csv\\|css" :publishing-directory "/var/www/orgmode.org/worg/" :recursive t :publishing-function org-publish-attachment) ("worg-sources" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :publishing-directory "/var/www/orgmode.org/worg/sources/" :recursive t :publishing-function org-publish-attachment) ("worg-extra" :base-directory "~/src/emacs/org/Worg/" :base-extension "css" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-function org-publish-attachment)))
  (let ((org-publish-use-timestamps-flag (if force nil org-publish-use-timestamps-flag))) (org-publish-projects org-publish-project-alist))
  (progn (let ((org-publish-use-timestamps-flag (if force nil org-publish-use-timestamps-flag))) (org-publish-projects org-publish-project-alist)))
  (unwind-protect (progn (let ((org-publish-use-timestamps-flag (if force nil org-publish-use-timestamps-flag))) (org-publish-projects org-publish-project-alist))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((org-publish-use-timestamps-flag (if force nil org-publish-use-timestamps-flag))) (org-publish-projects org-publish-project-alist))) (set-window-configuration wconfig)))
  org-publish-all()
  eval((org-publish-all))
  command-line-1(("-l" "/home/nick/.emacs.worg" "--eval" "(org-publish-all)"))
  command-line()
  normal-top-level()