From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Worg publishing issue Date: Wed, 06 Feb 2013 10:26:24 -0500 Message-ID: <13593.1360164384@alphaville> References: <20130206131903.GA8184@kuru.dyndns-at-home.com> Reply-To: nicholas.dokos@hp.com Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:48544) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U36tU-0007wu-Lc for emacs-orgmode@gnu.org; Wed, 06 Feb 2013 10:26:45 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U36tP-0006OZ-9a for emacs-orgmode@gnu.org; Wed, 06 Feb 2013 10:26:40 -0500 Received: from g4t0017.houston.hp.com ([15.201.24.20]:18675) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U36tO-0006NB-JV for emacs-orgmode@gnu.org; Wed, 06 Feb 2013 10:26:35 -0500 In-Reply-To: Message from Suvayu Ali of "Wed\, 06 Feb 2013 14\:19\:03 +0100." <20130206131903.GA8184@kuru.dyndns-at-home.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Suvayu Ali Cc: Emacs Org mode --=-=-= Content-Type: text/plain Suvayu Ali wrote: > Hello Worgers, > > Amidsts all the commotion about documentation for the new exporter, I > committed a very early incomplete draft article documenting the new > beamer exporter. > > > > But I see that it is not being published. I got the following > publishing error after pushing my commit. > > remote: Publishing file > /home/emacs/git/worg/org-tutorials/org-beamer/org-e-beamer.org using > `org-publish-org-to-html' > remote: Exporting... > remote: Wrong type argument: stringp, nil > remote: worg publish process 16964 exited at 02/05/13@07:01:27 > > Any ideas? > Just to add another data point (or perhaps more confusion): I checked out worg after your submission and tried my local batch build. I get the same error but from org-hacks.org. I cleaned out the timestamps and remade: org-hacks.org was again the first culprit. When I try publishing it interactively, it succeeds. I added a (setq debug-on-error t) to my batch init file and I get the attached backtrace - no idea what's causing it. NB: it didn't republish org-hacks since it is done already, so the backtrace happened on org-annotation-helper.org. I expect that if I try publishing it interactively, it will succeed and I'll get a backtrace on some other file, further down in the publishing sequence. AFAICT, the backtrace on org-hacks.org and the backtrace on org-annotation-helper.org are the same. Nick --=-=-= Content-Type: text/x-lisp Content-Disposition: inline; filename=backtrace.txt Content-Transfer-Encoding: quoted-printable Content-Description: Local batch work publish - backtrace Publishing file /home/nick/src/emacs/org/Worg/org-contrib/org-annotation-he= lper.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 ((in= hibit-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 sourc= e-buffer "^\\(org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote o= rg-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) (or= g-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-ex= port-remove-tasks (plist-get parameters :tasks)) (if (plist-get parameters = :footnotes) (progn (org-footnote-normalize nil parameters))) (org-export-ma= rk-list-end) (org-export-preprocess-apply-macros) (run-hooks (quote org-exp= ort-preprocess-after-macros-hook)) (org-export-blocks-preprocess) (org-expo= rt-mark-list-properties) (org-export-replace-src-segments-and-examples) (or= g-export-protect-colon-examples) (org-export-convert-protected-spaces) (set= q target-alist (org-export-define-heading-targets target-alist)) (run-hooks= (quote org-export-preprocess-after-headline-targets-hook)) (org-export-rem= ember-html-container-classes) (org-export-remove-or-extract-drawers drawers= (plist-get parameters :drawers)) (if (plist-get parameters :skip-before-1s= t-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-t= ext) (progn (goto-char (point-min)) (insert (plist-get parameters :add-text= ) "\n"))) (org-export-remove-headline-metadata parameters) (setq target-ali= st (org-export-handle-invisible-targets target-alist)) (run-hooks (quote or= g-export-preprocess-before-selecting-backend-code-hook)) (org-export-select= -backend-specific-text) (org-export-protect-quoted-subtrees) (org-export-re= move-clock-lines) (org-export-protect-verbatim) (org-export-mark-blockquote= -verse-center) (run-hooks (quote org-export-preprocess-after-blockquote-hoo= k)) (if (plist-get parameters :timestamps) nil (org-export-remove-timestamp= s)) (setq target-alist (org-export-attach-captions-and-attributes target-al= ist)) (org-export-mark-radio-links) (run-hooks (quote org-export-preprocess= -after-radio-targets-hook)) (org-export-concatenate-multiline-links) (run-h= ooks (quote org-export-preprocess-before-normalizing-links-hook)) (org-expo= rt-normalize-links) ...) (unwind-protect (progn (erase-buffer) (insert string) (setq case-fold-sea= rch t) (let ((inhibit-read-only t)) (remove-text-properties (point-min) (po= int-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) (ru= n-hooks (quote org-export-preprocess-hook)) (untabify (point-min) (point-ma= x)) (org-export-handle-include-files-recurse) (run-hooks (quote org-export-= preprocess-after-include-files-hook)) (org-export-remove-archived-trees arc= hived-trees) (org-export-remove-comment-blocks-and-subtrees) (org-export-ha= ndle-export-tags (plist-get parameters :select-tags) (plist-get parameters = :exclude-tags)) (run-hooks (quote org-export-preprocess-after-tree-selectio= n-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-hook= s (quote org-export-preprocess-after-macros-hook)) (org-export-blocks-prepr= ocess) (org-export-mark-list-properties) (org-export-replace-src-segments-a= nd-examples) (org-export-protect-colon-examples) (org-export-convert-protec= ted-spaces) (setq target-alist (org-export-define-heading-targets target-al= ist)) (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-fo= rward "^\\(#.*\n\\)?\\*+[ ]" nil t) (progn (delete-region (point-min) (mat= ch-beginning 0)) (goto-char (point-min)) (insert "\n"))))) (if (plist-get p= arameters :add-text) (progn (goto-char (point-min)) (insert (plist-get para= meters :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)) (o= rg-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-afte= r-blockquote-hook)) (if (plist-get parameters :timestamps) nil (org-export-= remove-timestamps)) (setq target-alist (org-export-attach-captions-and-attr= ibutes target-alist)) (org-export-mark-radio-links) (run-hooks (quote org-e= xport-preprocess-after-radio-targets-hook)) (org-export-concatenate-multili= ne-links) (run-hooks (quote org-export-preprocess-before-normalizing-links-= hook)) (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (ki= ll-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (era= se-buffer) (insert string) (setq case-fold-search t) (let ((inhibit-read-on= ly t)) (remove-text-properties (point-min) (point-max) (quote (read-only t)= ))) (org-export-kill-licensed-text) (let ((org-inhibit-startup t)) (org-mod= e)) (setq case-fold-search t) (org-clone-local-variables source-buffer "^\\= (org-\\|orgtbl-\\)") (org-install-letbind) (run-hooks (quote org-export-pre= process-hook)) (untabify (point-min) (point-max)) (org-export-handle-includ= e-files-recurse) (run-hooks (quote org-export-preprocess-after-include-file= s-hook)) (org-export-remove-archived-trees archived-trees) (org-export-remo= ve-comment-blocks-and-subtrees) (org-export-handle-export-tags (plist-get p= arameters :select-tags) (plist-get parameters :exclude-tags)) (run-hooks (q= uote org-export-preprocess-after-tree-selection-hook)) (org-export-remove-t= asks (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-preproces= s-after-macros-hook)) (org-export-blocks-preprocess) (org-export-mark-list-= properties) (org-export-replace-src-segments-and-examples) (org-export-prot= ect-colon-examples) (org-export-convert-protected-spaces) (setq target-alis= t (org-export-define-heading-targets target-alist)) (run-hooks (quote org-e= xport-preprocess-after-headline-targets-hook)) (org-export-remember-html-co= ntainer-classes) (org-export-remove-or-extract-drawers drawers (plist-get p= arameters :drawers)) (if (plist-get parameters :skip-before-1st-heading) (p= rogn (goto-char (point-min)) (if (re-search-forward "^\\(#.*\n\\)?\\*+[ ]"= nil t) (progn (delete-region ... ...) (goto-char ...) (insert "\n"))))) (i= f (plist-get parameters :add-text) (progn (goto-char (point-min)) (insert (= plist-get parameters :add-text) "\n"))) (org-export-remove-headline-metadat= a parameters) (setq target-alist (org-export-handle-invisible-targets targe= t-alist)) (run-hooks (quote org-export-preprocess-before-selecting-backend-= code-hook)) (org-export-select-backend-specific-text) (org-export-protect-q= uoted-subtrees) (org-export-remove-clock-lines) (org-export-protect-verbati= m) (org-export-mark-blockquote-verse-center) (run-hooks (quote org-export-p= reprocess-after-blockquote-hook)) (if (plist-get parameters :timestamps) ni= l (org-export-remove-timestamps)) (setq target-alist (org-export-attach-cap= tions-and-attributes target-alist)) (org-export-mark-radio-links) (run-hook= s (quote org-export-preprocess-after-radio-targets-hook)) (org-export-conca= tenate-multiline-links) (run-hooks (quote org-export-preprocess-before-norm= alizing-links-hook)) (org-export-normalize-links) ...) (and (buffer-name te= mp-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 str= ing) (setq case-fold-search t) (let ((inhibit-read-only t)) (remove-text-pr= operties (point-min) (point-max) (quote (read-only t)))) (org-export-kill-l= icensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-se= arch t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") (= org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untabi= fy (point-min) (point-max)) (org-export-handle-include-files-recurse) (run-= hooks (quote org-export-preprocess-after-include-files-hook)) (org-export-r= emove-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-prepro= cess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get parame= ters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-no= rmalize 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-expor= t-replace-src-segments-and-examples) (org-export-protect-colon-examples) (o= rg-export-convert-protected-spaces) (setq target-alist (org-export-define-h= eading-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-headl= ine-metadata parameters) (setq target-alist (org-export-handle-invisible-ta= rgets target-alist)) (run-hooks (quote org-export-preprocess-before-selecti= ng-backend-code-hook)) (org-export-select-backend-specific-text) (org-expor= t-protect-quoted-subtrees) (org-export-remove-clock-lines) (org-export-prot= ect-verbatim) (org-export-mark-blockquote-verse-center) (run-hooks (quote o= rg-export-preprocess-after-blockquote-hook)) (if (plist-get parameters :tim= estamps) 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-e= xport-concatenate-multiline-links) (run-hooks (quote org-export-preprocess-= before-normalizing-links-hook)) (org-export-normalize-links) ...) (and (buf= fer-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 :archi= ved-trees)) (inhibit-read-only t) (drawers org-drawers) (source-buffer (cur= rent-buffer)) target-alist rtn) (setq org-export-target-aliases nil org-exp= ort-preferred-target-alist nil org-export-id-target-alist nil org-export-co= de-refs nil) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-cur= rent-buffer (set-buffer temp-buffer) (unwind-protect (progn (erase-buffer) = (insert string) (setq case-fold-search t) (let ((inhibit-read-only t)) (rem= ove-text-properties (point-min) (point-max) (quote ...))) (org-export-kill-= licensed-text) (let ((org-inhibit-startup t)) (org-mode)) (setq case-fold-s= earch t) (org-clone-local-variables source-buffer "^\\(org-\\|orgtbl-\\)") = (org-install-letbind) (run-hooks (quote org-export-preprocess-hook)) (untab= ify (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-tag= s) (plist-get parameters :exclude-tags)) (run-hooks (quote org-export-prepr= ocess-after-tree-selection-hook)) (org-export-remove-tasks (plist-get param= eters :tasks)) (if (plist-get parameters :footnotes) (progn (org-footnote-n= ormalize nil parameters))) (org-export-mark-list-end) (org-export-preproces= s-apply-macros) (run-hooks (quote org-export-preprocess-after-macros-hook))= (org-export-blocks-preprocess) (org-export-mark-list-properties) (org-expo= rt-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-afte= r-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-exp= ort-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-bloc= kquote-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-lin= ks) (run-hooks (quote org-export-preprocess-before-normalizing-links-hook))= (org-export-normalize-links) ...) (and (buffer-name temp-buffer) (kill-buf= fer temp-buffer))))) rtn) org-export-preprocess-string("#+TITLE: org-annotation-helper.el -- us= ing org-mode as a bookmark manager, a knowledge base, a research tool and m= ore!\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 br= owser to a running instance of Emacs.\n\n* Oveview\n You select a region o= n 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 informa= tion to\na running Emacs process (using =3Demacsclient=3D or =3Dgnuclient= =3D). We use\nbookmarklets to create the =3Dremember://=3D 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 t= he following form:\n\n =3Dremember://::remember::::remember::=3D\n\nThe title will be url-hex-encoded.\n\n***= The bookmarklets\n\n#+begin_src java\njavascript:location.href=3D'remember= ://' + location.href + \\\n '::remember::' + escape(document.title) + '::r= emember::' + escape(window.getSelection())\n#+end_src\n\n#+begin_src java\n= javascript:location.href=3D'annotation://' + location.href + '::remember::'= +\\\n escape(document.title) ;;\n#+end_src\n\n*** The handler\n\n#+begi= n_src shell-script\n\n#!/bin/sh\n# org-annotation-helper -- pass a remember= -url to emacs\n#\n# Author: Geert Kloosterman \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 fo= llowing 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 r= equire it in your .emacs (or wherever you\n want to do it)\n\n#+begin_sr= c emacs-lisp\n(require 'org-annotation-helper)\n#+end_src\n\n*** Install th= e 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 runni= ng 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 li= ne:\n\n#+begin_src shell-script\n$ remember 'remember://http%3A//orgmode.or= g/::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 n= ow a url that starts with \"remember://\"\n and your browser will not k= now 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 Fi= refox, 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 mor= e details.\n\n***** Opera\n\n In Opera add the protocol in the Prefere= nces->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 :CREATE= D: %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 -= =3D%c=3D :: will be replaced with the hyperlink to the page, displaying th= e title of the page\n - =3D%:link=3D :: will be replaced with the address= of the page\n - =3D%i=3D :: will be replaced with the selected text from= the browser\n - =3D%:region=3D :: will be replaced by the selected text = from the web\n page (special characters will be in hex-co= de.)\n - =3D%U=3D :: will be replaced by the current date\n - =3D%?=3D = :: the cursor will be placed here (you may also replace this\n = escape with =3D%&=3D to make it completely non-interactive.)\n\n By defau= lt the new remember notes are placed in the bookmarks.org\n file under th= e \"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-b= efore-1st-heading nil :drawers nil :todo-keywords t :tasks t :tags not-in-t= oc :priority nil :footnotes t :timestamps nil :archived-trees nil :select-t= ags ("export") :exclude-tags ("noexport") :add-text nil :LaTeX-fragments t) \n]") \n ]*

" nil t) (replace-match "")) (goto-char (point-min)) (goto-char (p= oint-min)) (let (beg end n) (while (setq beg (next-single-property-change (= point) (quote org-whitespace))) (setq n (get-text-property beg (quote org-w= hitespace)) end (next-single-property-change beg (quote org-whitespace))) (= goto-char beg) (delete-region beg end) (insert (format "%s" (make-string n 120))))) (goto-char (point-min)= ) (if (looking-at "\\s-+\n") (progn (replace-match ""))) (remove-text-prope= rties (point-min) (point-max) (quote (display t))) (run-hooks (quote org-ex= port-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) (poin= t-max)) (kill-buffer (current-buffer))) (current-buffer)))) org-export-as-html(nil (:buffer-will-be-killed t :base-directory "~/src/e= macs/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 (or= g-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-n= umbers nil :table-of-contents nil :style "\n\n\n\n= \n" :recursive t :auto-preamble t :postamble "
=

Documentation from the http://orgmode.org/worg/ website (either in its H= TML format or in its Org format) is licensed under the GNU Free Documentation License version 1.3 or later. The code examples are licensed under the GNU General Public License v3 or later.<= /p>

" :auto-postamble nil) nil nil "/var/www/orgmode.org/worg/org-cont= rib/") funcall(org-export-as-html nil (:buffer-will-be-killed t :base-directory = "~/src/emacs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-samp= le.org" :makeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension= "html" :publishing-directory "/var/www/orgmode.org/worg/" :publishing-func= tion (org-publish-org-to-html org-publish-org-to-org) :htmlized-source t :s= ection-numbers nil :table-of-contents nil :style "\n\n\n\n= \n" :recursive t :auto-preamble t :postamble "

Documentation from the http://orgmode.org/worg/ website (either i= n its HTML format or in its Org format) is licensed under the GNU Free Documentation License versio= n 1.3 or later. The code examples are licensed under the GNU General Public License v3 or = later.

" :auto-postamble nil) nil nil "/var/www/orgmode.org/worg/o= rg-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 (cu= rrent-buffer)) (init-point (point)) (init-buf-string (buffer-string)) expor= t-buf-or-file) (run-hooks (quote org-publish-before-export-hook)) (setq exp= ort-buf-or-file (funcall (intern (concat "org-export-as-" format)) (plist-g= et 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 e= xport-buf-or-file))) (set-buffer init-buf) (if (buffer-modified-p init-buf)= (progn (erase-buffer) (insert init-buf-string) (save-buffer) (goto-char in= it-point))) (if visiting nil (kill-buffer init-buf))) (save-excursion (org-pop-to-buffer-same-window (or visiting (find-file fi= lename))) (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) p= ub-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 i= nit-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-po= p-to-buffer-same-window (or visiting (find-file filename))) (let* ((plist (= cons :buffer-will-be-killed (cons t plist))) (init-buf (current-buffer)) (i= nit-point (point)) (init-buf-string (buffer-string)) export-buf-or-file) (r= un-hooks (quote org-publish-before-export-hook)) (setq export-buf-or-file (= funcall (intern (concat "org-export-as-" format)) (plist-get plist :headlin= e-levels) plist nil (plist-get plist :body-only) pub-dir)) (if (and (buffer= p export-buf-or-file) (buffer-live-p export-buf-or-file)) (progn (set-buffe= r export-buf-or-file) (progn (run-hooks (quote org-publish-after-export-hoo= k)) (if (buffer-modified-p) (save-buffer))) (kill-buffer export-buf-or-file= ))) (set-buffer init-buf) (if (buffer-modified-p init-buf) (progn (erase-bu= ffer) (insert init-buf-string) (save-buffer) (goto-char init-point))) (if v= isiting 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-sit= emap 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-c= ontents nil :style "\n\n\n\n\n" :recursive t= :auto-preamble t :postamble "

Documentation from t= he http://orgmode.org/worg/ website (either in its HTML format or in its Or= g format) is licensed under the GNU Free Documentation License version 1.3 or later. The code = examples are licensed under the GNU General Public License v3 or later.

" :auto-postam= ble nil) "/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.o= rg" "/var/www/orgmode.org/worg/org-contrib/") (let ((org-export-preprocess-after-headline-targets-hook (if (plist-get p= roject-plist :makeindex) (cons (quote org-publish-aux-preprocess) org-expor= t-preprocess-after-headline-targets-hook) org-export-preprocess-after-headl= ine-targets-hook))) (org-publish-org-to "html" plist filename pub-dir)) org-publish-org-to-html((:base-directory "~/src/emacs/org/Worg/" :base-ex= tension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-sitem= ap t :sitemap-ignore-case t :html-extension "html" :publishing-directory "/= var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html or= g-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-con= tents nil :style "\n\n\n\n\n" :recursive t= :auto-preamble t :postamble "

Documentation from t= he http://orgmode.org/worg/ website (either in its HTML format or in its Or= g format) is licensed under the GNU Free Documentation License version 1.3 or later. The code = examples are licensed under the GNU General Public License v3 or later.

" :auto-postam= ble nil) "/home/nick/src/emacs/org/Worg/org-contrib/org-annotation-helper.o= rg" "/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 :au= to-sitemap t :sitemap-ignore-case t :html-extension "html" :publishing-dire= ctory "/var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to= -html org-publish-org-to-org) :htmlized-source t :section-numbers nil :tabl= e-of-contents nil :style "\n\n\n\n\n" :rec= ursive t :auto-preamble t :postamble "

Documentatio= n from the http://orgmode.org/worg/ website (either in its HTML format or i= n its Org format) is licensed under the GNU Free Documentation License version 1.3 or later. T= he code examples are licensed under the GNU General Public License v3 or later.

" :aut= o-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-timesta= mp 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-up= date-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-publi= sh-update-timestamp filename pub-dir f base-dir)))) (org-publish-org-to-htm= l org-publish-org-to-org)) (if (listp publishing-function) (mapc (function (lambda (f) (if (org-publ= ish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f pro= ject-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub= -dir f base-dir))))) publishing-function) (if (org-publish-needed-p filenam= e pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publish= ing-function project-plist filename tmp-pub-dir) (org-publish-update-timest= amp filename pub-dir publishing-function base-dir)))) (let* ((project (or project (or (org-publish-get-project-from-filename fi= lename) (error "File %s not part of any known project" (abbreviate-file-nam= e filename))))) (project-plist (cdr project)) (ftname (expand-file-name fil= ename)) (publishing-function (or (plist-get project-plist :publishing-funct= ion) (quote org-publish-org-to-html))) (base-dir (file-name-as-directory (e= xpand-file-name (or (plist-get project-plist :base-directory) (error "Proje= ct %s does not have :base-directory defined" (car project)))))) (pub-dir (f= ile-name-as-directory (file-truename (or (eval (plist-get project-plist :pu= blishing-directory)) (error "Project %s does not have :publishing-directory= defined" (car project)))))) tmp-pub-dir) (if no-cache nil (org-publish-ini= tialize-cache (car project))) (setq tmp-pub-dir (file-name-directory (conca= t pub-dir (and (string-match (regexp-quote base-dir) ftname) (substring ftn= ame (match-end 0)))))) (if (listp publishing-function) (mapc (function (lam= bda (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-t= imestamp filename pub-dir f base-dir))))) publishing-function) (if (org-pub= lish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (p= rogn (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-annotatio= n-helper.org" ("worg-pages" :base-directory "~/src/emacs/org/Worg/" :base-e= xtension "org" :exclude "FIXME\\|revtex-sample.org" :makeindex t :auto-site= map t :sitemap-ignore-case t :html-extension "html" :publishing-directory "= /var/www/orgmode.org/worg/" :publishing-function (org-publish-org-to-html o= rg-publish-org-to-org) :htmlized-source t :section-numbers nil :table-of-co= ntents nil :style "\n\n\n\n\n" :recursive t= :auto-preamble t :postamble "

Documentation from t= he http://orgmode.org/worg/ website (either in its HTML format or in its Or= g format) is licensed under the GNU Free Documentation License version 1.3 or later. The code = examples are licensed under the GNU General Public License v3 or later.

" :auto-postam= ble nil) t) (while (setq file (car (prog1 files (setq files (cdr files))))) (org-publ= ish-file file project t)) (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-p= list :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitema= p-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) = (sitemap-function (or (plist-get project-plist :sitemap-function) (quote or= g-publish-org-sitemap))) (org-sitemap-date-format (or (plist-get project-pl= ist :sitemap-date-format) org-publish-sitemap-date-format)) (org-sitemap-fi= le-entry-format (or (plist-get project-plist :sitemap-file-entry-format) or= g-publish-sitemap-file-entry-format)) (preparation-function (plist-get proj= ect-plist :preparation-function)) (completion-function (plist-get project-p= list :completion-function)) (files (org-publish-get-base-files project excl= ude-regexp)) file) (if preparation-function (progn (run-hooks (quote prepar= ation-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* ((pr= oject-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclud= e)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (= or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-fun= ction (or (plist-get project-plist :sitemap-function) (quote org-publish-or= g-sitemap))) (org-sitemap-date-format (or (plist-get project-plist :sitemap= -date-format) org-publish-sitemap-date-format)) (org-sitemap-file-entry-for= mat (or (plist-get project-plist :sitemap-file-entry-format) org-publish-si= temap-file-entry-format)) (preparation-function (plist-get project-plist :p= reparation-function)) (completion-function (plist-get project-plist :comple= tion-function)) (files (org-publish-get-base-files project exclude-regexp))= file) (if preparation-function (progn (run-hooks (quote preparation-functi= on)))) (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-plis= t :base-directory)) project t))) (if completion-function (progn (run-hooks = (quote completion-function)))) (org-publish-write-cache-file)))(("worg-page= s" :base-directory "~/src/emacs/org/Worg/" :base-extension "org" :exclude "= FIXME\\|revtex-sample.org" :makeindex t :auto-sitemap t :sitemap-ignore-cas= e t :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg= /" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :h= tmlized-source t :section-numbers nil :table-of-contents nil :style "\n\n\n\n\n" :recursive t :auto-preamble t :postam= ble "

Documentation from the http://orgmode.org/wor= g/ website (either in its HTML format or in its Org format) is licensed und= er the GNU Free Document= ation License version 1.3 or later. The code examples are licensed und= er the GNU General Publi= c License v3 or later.

" :auto-postamble nil)) mapc((lambda (project) (org-publish-initialize-cache (car project)) (let*= ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :e= xclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filen= ame (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitema= p-function (or (plist-get project-plist :sitemap-function) (quote org-publi= sh-org-sitemap))) (org-sitemap-date-format (or (plist-get project-plist :si= temap-date-format) org-publish-sitemap-date-format)) (org-sitemap-file-entr= y-format (or (plist-get project-plist :sitemap-file-entry-format) org-publi= sh-sitemap-file-entry-format)) (preparation-function (plist-get project-pli= st :preparation-function)) (completion-function (plist-get project-plist :c= ompletion-function)) (files (org-publish-get-base-files project exclude-reg= exp)) file) (if preparation-function (progn (run-hooks (quote preparation-f= unction)))) (if sitemap-p (funcall sitemap-function project sitemap-filenam= e)) (while (setq file (car (prog1 files (setq files (cdr files))))) (org-pu= blish-file file project t)) (if (plist-get project-plist :makeindex) (progn= (org-publish-index-generate-theindex (plist-get project-plist :base-direct= ory)) (org-publish-file (expand-file-name "theindex.org" (plist-get project= -plist :base-directory)) project t))) (if completion-function (progn (run-h= ooks (quote completion-function)))) (org-publish-write-cache-file))) (("wor= g-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 :secti= on-numbers nil :table-of-contents nil :style "\n= \n\n\n\n" :recursive t :auto-preamble t :postamble "

Documentation from the http://orgmode.org/worg/ website (either in it= s HTML format or in its Org format) is licensed under the GNU Free Documentation License version 1.= 3 or later. The code examples are licensed under the GNU General Public License v3 or late= r.

" :auto-postamble nil) ("worg-pages" :base-directory "~/src/ema= cs/org/Worg/" :base-extension "org" :exclude "FIXME\\|revtex-sample.org" :m= akeindex t :auto-sitemap t :sitemap-ignore-case t :html-extension "html" :p= ublishing-directory "/var/www/orgmode.org/worg/" :publishing-function (org-= publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-num= bers nil :table-of-contents nil :style "\n\n\n\n\n<= link rel=3D\"icon\" href=3D\"/org-mode-unicorn.ico\" type=3D\"image/ico\"><= /link>" :recursive t :auto-preamble t :postamble "

= Documentation from the http://orgmode.org/worg/ website (either in its HTML= format or in its Org format) is licensed under the GNU Free Documentation License version 1.3 = or later. The code examples are licensed under the GNU General Public License v3 or later.

=
" :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/cod= e/" :recursive t :publishing-function org-publish-attachment) ("worg-color-= themes" :base-directory "~/src/emacs/org/Worg/color-themes/" :base-extensio= n "el" :html-extension "html" :publishing-directory "/var/www/orgmode.org/w= org/color-themes/" :recursive t :publishing-function org-publish-attachment= ) ("worg-images-dir" :base-directory "~/src/emacs/org/Worg/images/" :base-e= xtension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css" :publishing-directory "/var/ww= w/orgmode.org/worg/images/" :recursive t :publishing-function org-publish-a= ttachment) ("worg-images" :base-directory "~/src/emacs/org/Worg/" :base-ext= ension "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-director= y "~/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" "w= org-code" "worg-color-themes" "worg-images-dir" "worg-images" "worg-sources= " "worg-extra")) ("orgweb" :components ("orgwebpages" "orgweb-extra")) ("wo= rg-org-faq" :base-directory "~/src/emacs/org/Worg/" :base-extension "dummy"= :include ("org-faq.org") :html-extension "html" :publishing-directory "/va= r/www/orgmode.org/worg/" :publishing-function org-publish-org-to-html :sect= ion-numbers nil :table-of-contents nil :style "\= n\n\n\n<= /link>\n" :recursive t :auto-preamble t :postamble "

Documentation from the http://orgmode.org/worg/ website (either in= its HTML format or in its Org format) is licensed under the GNU Free Documentation License version= 1.3 or later. The code examples are licensed under the GNU General Public License v3 or l= ater.

" :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 (o= rg-publish-org-to-html org-publish-org-to-org) :htmlized-source t :section-= numbers nil :table-of-contents nil :style "\n\n\n\n= \n" :recursive t :auto-preamble t :postamble "
=

Documentation from the http://orgmode.org/worg/ website (either in its H= TML format or in its Org format) is licensed under the GNU Free Documentation License version 1.3 or later. The code examples are licensed under the GNU General Public License v3 or later.<= /p>

" :auto-postamble nil) ("worg-code" :base-directory "~/src/emacs/o= rg/Worg/code/" :base-extension "html\\|css\\|png\\|js\\|bz2\\|el\\|sty\\|aw= k" :html-extension "html" :publishing-directory "/var/www/orgmode.org/worg/= code/" :recursive t :publishing-function org-publish-attachment) ("worg-col= or-themes" :base-directory "~/src/emacs/org/Worg/color-themes/" :base-exten= sion "el" :html-extension "html" :publishing-directory "/var/www/orgmode.or= g/worg/color-themes/" :recursive t :publishing-function org-publish-attachm= ent) ("worg-images-dir" :base-directory "~/src/emacs/org/Worg/images/" :bas= e-extension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css" :publishing-directory "/var= /www/orgmode.org/worg/images/" :recursive t :publishing-function org-publis= h-attachment) ("worg-images" :base-directory "~/src/emacs/org/Worg/" :base-= extension "png\\|jpg\\|gif\\|pdf\\|csv\\|css" :publishing-directory "/var/w= ww/orgmode.org/worg/" :recursive t :publishing-function org-publish-attachm= ent) ("worg-sources" :base-directory "~/src/emacs/org/Worg/" :base-extensio= n "org" :publishing-directory "/var/www/orgmode.org/worg/sources/" :recursi= ve t :publishing-function org-publish-attachment) ("worg-extra" :base-direc= tory "~/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-time= stamps-flag))) (org-publish-projects org-publish-project-alist)) (progn (let ((org-publish-use-timestamps-flag (if force nil org-publish-u= se-timestamps-flag))) (org-publish-projects org-publish-project-alist))) (unwind-protect (progn (let ((org-publish-use-timestamps-flag (if force n= il org-publish-use-timestamps-flag))) (org-publish-projects org-publish-pro= ject-alist))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (l= et ((org-publish-use-timestamps-flag (if force nil org-publish-use-timestam= ps-flag))) (org-publish-projects org-publish-project-alist))) (set-window-c= onfiguration 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() --=-=-=--