emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: C-u M-x org-footnote-action sort deletes footnotes used in #+in


From: Arne Babenhauserheide
Subject: [O] Bug: C-u M-x org-footnote-action sort deletes footnotes used in #+include:’d files [8.2.10 (release_8.2.10 @ /usr/share/emacs/25.3/lisp/org/)]
Date: Thu, 27 Dec 2018 19:09:34 +0100
User-agent: mu4e 1.0; emacs 25.3.1


Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

When a file uses #+include: X.org to structure an org-file and the
included files use footnotes defined in the master file, export works
without problems, but sorting the footnotes by reference with
: C-u M-x org-footnote-action s
removes the footnotes used in the included files.

Tested with org-footnote-section set to nil to move footnotes to the end
of the section where they are used.

Expected: Either
- leave the footnotes only referenced in included files untouched, or
- move them into the included files, or
- move them to the end of the section where the referencing file is included.

My current workaround is to manually use M-x insert-file to temporarily
inline the files and then to call =C-u M-x org-footnote-action s= , but
that is not really satisfying.

Best wishes,
Arne


Emacs  : GNU Emacs 25.3.1 (x86_64-pc-linux-gnu, GTK+ Version 3.22.16)
 of 2018-04-28
Package: Org-mode version 8.2.10 (release_8.2.10 @ 
/usr/share/emacs/25.3/lisp/org/)

current state:
==============
(setq
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand)
 outline-minor-mode-hook '(#[nil "\300\301!\207" [require outline-magic] 2]
                           #[nil "\301\302!\210\303\304\305#\207"
                             [outline-minor-mode-map require outline-magic 
define-key [(f10)] outline-cycle] 4]
                           )
 org-latex-classes '(("copernicus_discussions"
                      "\\documentclass{copernicus_discussions}\n                
 [NO-DEFAULT-PACKAGES]\n                 [PACKAGES]\n                 [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("copernicus"
                      "\\documentclass{copernicus}\n             
[NO-DEFAULT-PACKAGES]\n             [PACKAGES]\n             [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
"\\newpage" "\\subsection*{%s}" "\\newpage")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("copernicus_discussions"
                      "\\documentclass{copernicus_discussions}\n             
[NO-DEFAULT-PACKAGES]\n             [PACKAGES]\n             [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
"\\newpage" "\\subsection*{%s}" "\\newpage")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("brief"
                      
"\\documentclass{scrlttr2}\n\\usepackage[ngerman]{babel}\n\\setlength{\\parindent}{0cm}\n\\KOMAoptions{paper=a4}"
                      
("\n\\vspace{3mm}\\hspace*{10mm}\\textbf{%s}\n\\vspace{3mm}" .
                       
"\n\\vspace{3mm}\\hspace*{10mm}\\textbf{%s}\n\\vspace{3mm}")
                      
("\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}" .
                       
"\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}")
                      
("\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}" .
                       
"\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}")
                      
("\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}" .
                       
"\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}")
                      
("\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}" .
                       
"\n\\vspace{3mm}\\hspace*{5mm}\\textit{%s}\n\\vspace{3mm}")
                      )
                     ("leaflet" 
"\\documentclass{leaflet}\n\\setlength{\\parindent}{0cm}" ("\\section{%s}" . 
"\\section*{%s}")
                      ("\\subsection{%s}" "\\newpage" "\\subsection*{%s}" 
"\\newpage")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("protokoll" 
"\\documentclass{scrartcl}\n\\setlength{\\parindent}{0cm}"
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
"\\newpage" "\\subsection*{%s}" "\\newpage")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("beamer" "\\documentclass[presentation]{beamer}\n     
[DEFAULT-PACKAGES]\n     [PACKAGES]\n     [EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{scrartcl}" 
("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}") 
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{scrreprt}" ("\\part{%s}" 
. "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . 
"\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . 
"\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     )
 org-footnote-section nil
 org-latex-default-packages-alist '(("AUTO" "inputenc" t) ("T1" "fontenc" t) 
("" "fixltx2e" nil) ("" "graphicx" t)
                                    ("" "longtable" nil) ("" "float" nil) ("" 
"wrapfig" nil) ("" "rotating" nil)
                                    ("normalem" "ulem" t) ("" "amsmath" t) 
("force,almostfull" "textcomp" t) ("" "marvosym" t)
                                    ("" "wasysym" t) ("" "amssymb" t) ("" 
"hyperref" nil) "\\tolerance=1000")
 org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2 :properties 
("Effort"))
 org-texinfo-format-drawer-function '(lambda (name contents) contents)
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-checkbox-hierarchical-statistics nil
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-latex-format-inlinetask-function 'ignore
 org-confirm-shell-link-function 'yes-or-no-p
 org-finalize-agenda-hook '(#[nil "\300\301!\207" [org-agenda-to-appt t] 2])
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-time-stamp-custom-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
 org-latex-pdf-process '("pdflatex -interaction nonstopmode -shell-escape 
-output-directory %o %f" "bibtex $(basename %b)"
                         "pdflatex -interaction nonstopmode -shell-escape 
-output-directory %o %f"
                         "pdflatex -interaction nonstopmode -shell-escape 
-output-directory %o %f")
 org-export-default-language "de"
 org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . 
system) ("\\.pdf\\'" . "okular %s"))
 org-agenda-skip-scheduled-if-done t
 org-agenda-custom-commands '(("o" "Agenda and TODOs"
                               ((agenda nil
                                 ((org-agenda-compact-blocks nil) 
(org-agenda-block-separator 45)
                                  (org-agenda-overriding-header ""))
                                 )
                                (tags-todo "-Aarlaub-notodo" 
((org-agenda-block-separator 45)))
                                (tags "KANBAN"
                                 ((org-agenda-block-separator 45) 
(org-agenda-compact-blocks nil)
                                  (org-agenda-overriding-header ""))
                                 )
                                )
                               )
                              ("A" "Aarlaubstag"
                               ((agenda nil
                                 ((org-agenda-span 1) 
(org-agenda-compact-blocks nil) (org-agenda-block-separator 45)
                                  (org-agenda-overriding-header ""))
                                 )
                                (tags-todo "+Aarlaub" 
((org-agenda-block-separator 45))))
                               )
                              )
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-default-notes-file "~/.emacs.d/private/org/emacs-remember-mode.org"
 org-agenda-include-diary t
 org-after-todo-state-change-hook '(org-clock-out-if-current 
kiwon/org-agenda-redo-in-other-window)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-agenda-clock-consistency-checks '(:max-duration "10:00" :min-duration 0 
:max-gap "0:05" :gap-ok-around ("4:00" "12:30")
                                       :default-face ((:background "DarkRed") 
(:foreground "white")) :overlap-face nil
                                       :gap-face nil :no-end-time-face nil 
:long-face nil :short-face nil)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook 
change-major-mode-hook org-show-block-all append local] 5]
                 org-mode-reftex-setup
                 #[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes
                 #[nil
                   "\303\304!\210\305\306!\210\307     :\203#  
@address@hidden"\210    A\211\202*\307\207"
                   [org-structure-template-alist --cl-var-- template require 
org make-local-variable ac-stop-words nil
                    add-to-list "<"]
                   5]
                 fic-mode)
 org-extend-today-until 4
 org-texinfo-format-headline-function 'ignore
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-directory "~/.emacs.d/private/org"
 org-enforce-todo-dependencies t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-hide-inline-tasks
                  org-cycle-show-empty-lines 
org-optimize-window-after-visibility-change)
 org-plantuml-jar-path "/usr/share/plantuml/lib/plantuml.jar"
 org-agenda-start-with-clockreport-mode t
 org-agenda-finalize-hook '(#[nil "\300\301!\207" [org-agenda-to-appt t] 2])
 org-link-abbrev-alist '(("bib" . "~/aufschriebe/ref.bib::%s") ("notes" . 
"~/aufschriebe/papers.org::#%s")
                         ("papers" . "~/aufschriebe/papers/%s.pdf"))
 org-latex-packages-alist '(("" "color") ("" "minted") ("" "color" t) ("" 
"minted" t) ("" "parskip" t))
 org-babel-tangle-lang-exts '(("python" . "py") ("C++" . "cpp") ("emacs-lisp" . 
"el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 outline-mode-hook '(#[nil "\300\301!\207" [require outline-magic] 2])
 org-babel-after-execute-hook '(#[nil "\205\301 \207" 
[org-inline-image-overlays org-display-inline-images] 1])
 org-latex-listings 'minted
 org-ditaa-jar-path "~/.emacs.d/private/org/ditaa0_9/ditaa0_9.jar"
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-skip-deadline-if-done t
 org-html-format-headline-function 'ignore
 org-structure-template-alist '(("k" "#+begin_kasten\n?\n#+end_kasten" "<div 
class=\"kasten\">?</div>")
                                ("s" "#+BEGIN_SRC ?\n\n#+END_SRC" "<src 
lang=\"?\">\n\n</src>")
                                ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE" 
"<example>\n?\n</example>")
                                ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE" 
"<quote>\n?\n</quote>")
                                ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE" 
"<verse>\n?\n</verse>")
                                ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM" 
"<verbatim>\n?\n</verbatim>")
                                ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER" 
"<center>\n?\n</center>")
                                ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX" "<literal 
style=\"latex\">\n?\n</literal>")
                                ("L" "#+LaTeX: " "<literal 
style=\"latex\">?</literal>")
                                ("h" "#+BEGIN_HTML\n?\n#+END_HTML" "<literal 
style=\"html\">\n?\n</literal>")
                                ("H" "#+HTML: " "<literal 
style=\"html\">?</literal>")
                                ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII" "") ("A" 
"#+ASCII: " "") ("i" "#+INDEX: ?" "#+INDEX: ?")
                                ("I" "#+INCLUDE: %file ?" "<include file=%file 
markup=\"?\">")
                                ("b" "#+BEGIN_ABSTRACT\n?\n#+END_ABSTRACT" 
"<div class=\"abstract\">\n?\n</div>")
                                ("d"
                                 "#+HTML: <div style=\"float: right; 
text-align: right; border: solid thin gray; padding-left: 1em; padding-right: 
1em; padding-top: 0.5em; margin-left: 1em\">\n#+HTML: <p><strong><a 
href=\"\">PDF-version</a> (for printing)</strong></p>\n#+HTML: <p><a 
href=\"\">Package</a> (to install)</p>\n#+HTML: <p><a 
href=\"\">orgmode-version</a> (for editing)</p>\n#+HTML: <p><a 
href=\"\">repository</a> (for forking)</p>\n#+HTML: </div>" "<div 
style=\"float: right; text-align: right; border: solid thin gray; padding-left: 
1em; padding-right: 1em; padding-top: 0.5em; margin-left: 1em\">\n<p><strong><a 
href=\"\">PDF-version</a> (for printing)</strong></p>\n<p><a 
href=\"\">Package</a> (to install)</p>\n<p><a href=\"\">orgmode-version</a> 
(for editing)</p>\n<p><a href=\"\">repository</a> (for forking)</p>\n</div>")
                                )
 org-babel-load-languages '((restclient . t) (C . t) (R . t) (asymptote) (awk) 
(calc) (clojure) (comint) (css) (ditaa . t)
                            (dot . t) (emacs-lisp . t) (fortran) (gnuplot . t) 
(haskell) (io) (java) (js) (latex) (ledger)
                            (lilypond) (lisp) (matlab) (maxima) (mscgen) 
(ocaml) (octave) (org . t) (perl) (picolisp)
                            (plantuml . t) (python . t) (ref) (ruby) (sass) 
(scala) (scheme . t) (screen) (sh . t) (shen)
                            (sql) (sqlite))
 org-clock-in-hook '(kiwon/org-agenda-redo-in-other-window)
 org-html-format-inlinetask-function 'ignore
 org-agenda-files '("~/.emacs.d/private/org/emacs-plan.org")
 org-texinfo-format-inlinetask-function 'ignore
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer 
kiwon/org-agenda-redo-in-other-window)
 org-confirm-babel-evaluate 'my/org-confirm-babel-evaluate
 org-src-fontify-natively t
 org-publish-project-alist '(("guile-basics" :base-directory 
"~/Dokumente/eigenes/py2guile" :publishing-directory
                              (concat private-publish-ftp-proj "guile-basics/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "guile-basics/")
                                "guile-basics.html")
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["guile-basics.org"])
                             ("guix-js-wisp" :base-directory 
"~/.emacs.d/private/journal" :publishing-directory
                              (concat private-publish-ftp-proj "guix-js-wisp/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "guix-js-wisp/")
                                "2014-04-01-Di-guix-wisp.html")
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include
                              ["2014-04-01-Di-guix-wisp.org"])
                             ("py2guile" :base-directory 
"~/Quell/eigenes/py2guile" :publishing-directory
                              (concat private-publish-ftp-proj "py2guile/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "py2guile/") "py2guile.html")
                               (copy-file
                                (concat (expand-file-name 
"~/.emacs.d/private/journal/")
                                 "2014-01-12-So-python-to-guile-scheme.org")
                                (concat private-publish-ftp-proj "py2guile/" 
"py2guile.org") t)
                               (copy-file
                                (concat (expand-file-name 
"~/.emacs.d/private/journal/")
                                 "2014-01-12-So-python-to-guile-scheme.pdf")
                                (concat private-publish-ftp-proj "py2guile/" 
"py2guile-latest.pdf") t)
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["py2guile.org"])
                             ("project-py2guile" :base-directory 
"~/Projekte/py2guile" :publishing-directory
                              (concat private-publish-ftp-proj "py2guile/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "py2guile/") "py2guile.html"))
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["py2guile.org"])
                             ("with-guise-and-guile" :components 
("with-guise-and-guile-org" "with-guise-and-guile-static"))
                             ("with-guise-and-guile-org" :base-directory 
"~/Dokumente/eigenes/with-guise-and-guile"
                              :publishing-directory 
"~/Dokumente/eigenes/with-guise-and-guile/export/" :base-extension "org"
                              :publishing-function org-html-publish-to-html 
:preparation-function
                              (lambda nil (org-save-all-org-buffers)
                               (shell-command "touch 
~/Projekte/with-guise-and-guile/index.org"))
                              :section-numbers nil :with-toc t 
:html-html5-fancy t :html-viewport t :recursive t :auto-sitemap
                              t :sitemap-sort-files anti-chronologically 
:sitemap-sort-folders last :html-preamble t :exclude
                              "org-templates/*")
                             ("with-guise-and-guile-static" :base-directory 
"~/Dokumente/eigenes/with-guise-and-guile"
                              :publishing-directory 
"~/Dokumente/eigenes/with-guise-and-guile/export/" :base-extension
                              
"css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf" :publishing-function 
org-publish-attachment)
                             ("project-with-guise-and-guile" :components
                              ("with-guise-and-guile-org" 
"with-guise-and-guile-static"))
                             ("project-with-guise-and-guile-org" 
:base-directory "~/Projekte/with-guise-and-guile"
                              :publishing-directory 
"~/Dokumente/eigenes/with-guise-and-guile/export/" :base-extension "org"
                              :publishing-function org-html-publish-to-html 
:preparation-function
                              (lambda nil (org-save-all-org-buffers)
                               (shell-command "touch 
~/Projekte/with-guise-and-guile/index.org"))
                              :section-numbers nil :with-toc t 
:html-html5-fancy t :html-viewport t :recursive t :auto-sitemap
                              t :sitemap-sort-files anti-chronologically 
:sitemap-sort-folders last :html-preamble t :exclude
                              "org-templates/*")
                             ("project-with-guise-and-guile-static" 
:base-directory "~/Projekte/with-guise-and-guile"
                              :publishing-directory 
"~/Dokumente/eigenes/with-guise-and-guile/export/" :base-extension
                              
"css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf" :publishing-function 
org-publish-attachment)
                             ("freecom-kav-freesite" :base-directory 
"~/freecomm" :publishing-directory
                              (concat "/home/arne/" "freecomm/" "freesite/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
"/home/arne/" "freecomm/" "freesite/") "freecom.html")
                               (copy-file (concat "/home/arne/" "freecomm/" 
"freesite/" "index.html")
                                (concat private-publish-ftp-proj "freecom/" 
"index.html") t)
                               (copy-file (concat "/home/arne/" "freecomm/" 
"freesite/" "worg.css")
                                (concat private-publish-ftp-proj "freecom/" 
"worg.css") t)
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["freecom.org"])
                             ("freecom" :base-directory 
"~/Quell/Programme/freecom" :publishing-directory
                              (concat private-publish-ftp-proj "freecom/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "freecom/") "freecom.html"))
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include
                              ["freecom.org" "babcom.js"])
                             ("wisp-srfi" :base-directory 
"~/Quell/Programme/wisp/docs" :publishing-directory
                              (concat private-publish-ftp-proj "wisp/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :section-numbers nil 
:with-toc t :html-preamble t :exclude ".*"
                              :include ["srfi.org"])
                             ("freecom-journal" :base-directory 
"~/.emacs.d/private/journal" :publishing-directory
                              (concat private-publish-ftp-proj "freecom/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (rename-file (concat private-publish-ftp-proj 
"freecom/2014-02-21-Fr-freecom.html")
                                (concat private-publish-ftp-proj 
"freecom/index.html") t)
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include
                              ["2014-02-21-Fr-freecom.org" 
"2014-02-21-Fr-freecom-screenshot.png"])
                             ("freenet-funding" :base-directory 
"~/.emacs.d/private/journal" :publishing-directory
                              (concat private-publish-ftp-proj 
"freenet-funding/") :base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (rename-file
                                (concat private-publish-ftp-proj 
"freenet-funding/2014-06-11-Mi-freenet-funding.html")
                                (concat private-publish-ftp-proj 
"freenet-funding/index.html") t)
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include
                              ["2014-06-11-Mi-freenet-funding.org"])
                             ("freenet-funding-kaverne" :base-directory 
"~/freenet-funding/" :publishing-directory
                              (concat "freenet-funding/" "site/") 
:base-extension "org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil
                               (copy-file (concat "site/" "index.html")
                                (concat private-publish-ftp-proj 
"freenet-funding/index.html") t)
                               (copy-file (concat "site/" "logo.png")
                                (concat private-publish-ftp-proj 
"freenet-funding/logo.png") t)
                               (copy-file (concat "site/" "slides.pdf")
                                (concat private-publish-ftp-proj 
"freenet-funding/slides.pdf") t)
                               (copy-file (concat "site/" "worg.css")
                                (concat private-publish-ftp-proj 
"freenet-funding/worg.css") t)
                               (async-shell-command "source /home/arne/.bashrc; 
freesitemgr update freenet-funding"))
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["index.org"])
                             ("freenet-plugin-bare-kaverne" :base-directory 
"~/freenet-plugin-bare/" :publishing-directory
                              "site/" :base-extension "org" 
:publishing-function org-html-publish-to-html :completion-function
                              (lambda nil
                               (copy-file (concat "site/" "index.html")
                                (concat private-publish-ftp-proj 
"freenet-plugin-bare/index.html") t)
                               (async-shell-command "source /home/arne/.bashrc; 
freesitemgr update freenet-plugin-bare")
                               (async-shell-command "source ~/.bashrc; 
freesitemr update freenet-funding"))
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["index.org"])
                             ("freenet-release-management" :base-directory 
"~/Quell/Programme/freenet-release-management/"
                              :publishing-directory "site/" :base-extension 
"org" :publishing-function
                              org-html-publish-to-html :completion-function
                              (lambda nil (copy-file (concat "site/" 
"notes.html") (concat "site/" "index.html") t)
                               (copy-file (concat "site/" "index.html")
                                (concat private-publish-ftp-proj 
"freenet-release-management/index.html") t)
                               (async-shell-command "source ~/.bashrc; 
freesitemgr update freenet-release-management"))
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include ["notes.org"])
                             ("orgmode-single-file" :base-directory 
"~/.emacs.d/private/journal" :publishing-directory
                              (concat private-publish-ftp-proj 
"orgmode-single-file/") :base-extension "org"
                              :publishing-function org-html-publish-to-html 
:completion-function
                              (lambda nil
                               (private-publish-rename-to-index (concat 
private-publish-ftp-proj "orgmode-single-file/")
                                
"2013-11-25-Mo-publish-single-file-org-mode.html")
                               )
                              :section-numbers nil :with-toc t :html-preamble t 
:exclude ".*" :include
                              
["2013-11-25-Mo-publish-single-file-org-mode.org"])
                             )
 )
--
Unpolitisch sein
heißt politisch sein
ohne es zu merken

Attachment: signature.asc
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]