mirror of
https://github.com/vale981/literate-programming-tutorials
synced 2025-03-04 17:31:39 -05:00
Added journal-template.org File
This commit is contained in:
melioratus
parent
0534965af7
commit
37c44d69e4
2 changed files with 213 additions and 0 deletions
|
|
@ -2262,6 +2262,7 @@ These template specific =SRC= blocks will be kept under a dedicated section name
|
|||
|
||||
After completing the instructions in this section, the contents of journal-template.org should be similar to [[file:self-check-example-03.org][self-check-example-03.org]].
|
||||
|
||||
#+NAME: journal-template
|
||||
#+BEGIN_SRC org :tangle self-check-example-03.org :noweb yes :exports none
|
||||
«mode-line»
|
||||
«latex-class-epj-svjour»
|
||||
|
|
@ -2273,6 +2274,11 @@ After completing the instructions in this section, the contents of journal-templ
|
|||
«file-variables()»
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC org :tangle journal-template.org :noweb yes :exports none
|
||||
«journal-template»
|
||||
#+END_SRC
|
||||
|
||||
|
||||
* Add Content to =org-mode= File
|
||||
|
||||
In this section, several new placeholder sections will added. The content of each section will be =Lorem Ipsum=
|
||||
|
|
|
|||
|
|
@ -0,0 +1,207 @@
|
|||
# -*- mode: org; org-confirm-babel-evaluate: nil; org-babel-noweb-wrap-start: "«"; org-babel-noweb-wrap-end: "»"; -*-
|
||||
|
||||
#+LATEX_CLASS: epj-svjour
|
||||
|
||||
#+TITLE: Title Goes Here
|
||||
|
||||
#+SUBTITLE: Subtitle Goes Here
|
||||
|
||||
#+CALL: export-epj-latex-block()
|
||||
|
||||
* Authors :nolatex:
|
||||
|
||||
#+NAME: authors-table
|
||||
| Author | Email | Institution-ID |
|
||||
|-----------------+----------------------+----------------|
|
||||
| Mai Deah | mai.deah@example.edu | 1 |
|
||||
| Arthur Secondus | | 1 |
|
||||
| E. Tal | | 2 |
|
||||
|
||||
* Institutions :nolatex:
|
||||
|
||||
#+NAME: institutions-table
|
||||
| Institution-ID | Institution |
|
||||
|----------------+------------------------------------------------------------------------------------------------------------------|
|
||||
| 1 | New Discoveries Lab, Department of Something-or-Ruther, University of Some-Sort, Some-Sort, Some-Sort-of-Country |
|
||||
| 2 | Golden Opportunities Lab, Department of Obscure Studies, Ancient College, Olde-Locale, Stodgy-Land |
|
||||
|
||||
* PACS :nolatex:
|
||||
|
||||
#+NAME: pacs-codes-table
|
||||
| PACS-KEY | PACS-KEY-Description-Text |
|
||||
|------------+----------------------------|
|
||||
| PACS-key01 | Text Describing PACS-key01 |
|
||||
| PACS-key02 | Text Describing PACS-key02 |
|
||||
|
||||
* Abstract :nolatex:
|
||||
|
||||
# The abstract goes here.
|
||||
|
||||
|
||||
* Template Utility Code :noexport:
|
||||
|
||||
** export-epj-latex-block
|
||||
|
||||
#+NAME: export-epj-latex-block
|
||||
#+BEGIN_SRC latex :noweb yes
|
||||
%
|
||||
\title{«get-title-text()»}
|
||||
\subtitle{«get-subtitle-text()»}
|
||||
\author{«epj-authors-latex()»% etc
|
||||
% \thanks is optional - remove next line if not needed
|
||||
\thanks{\emph{Present address:} Insert the address here if needed}%
|
||||
} % Do not remove
|
||||
%
|
||||
\offprints{} % Insert a name or remove this line
|
||||
%
|
||||
\institute{«epj-institutions-latex()»}
|
||||
%
|
||||
\date{Received: date / Revised version: date}
|
||||
% The correct dates will be entered by Springer
|
||||
%
|
||||
\abstract{
|
||||
«get-abstract-text()»
|
||||
%
|
||||
\PACS{
|
||||
«epj-pacs-codes-latex()»
|
||||
} % end of PACS codes
|
||||
} %end of abstract
|
||||
%
|
||||
\maketitle
|
||||
#+END_SRC
|
||||
|
||||
*** get-title-text
|
||||
|
||||
#+NAME: get-title-text
|
||||
#+BEGIN_SRC elisp
|
||||
(format "%s" (car (plist-get (org-export-get-environment) ':title)))
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: get-title-text
|
||||
: Title Goes Here
|
||||
|
||||
*** get-subtitle-text
|
||||
|
||||
#+NAME: get-subtitle-text
|
||||
#+BEGIN_SRC elisp :results replace :var keyword="subtitle" :var delimiter=" "
|
||||
(mapconcat 'car (org-element-map
|
||||
(org-element-parse-buffer)
|
||||
'(keyword)
|
||||
(lambda (x) (if (string= (upcase keyword) (org-element-property :key x))
|
||||
(list (org-element-property :value x)) )
|
||||
)
|
||||
) delimiter)
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: get-subtitle-text
|
||||
: Subtitle Goes Here
|
||||
|
||||
*** get-abstract-text
|
||||
|
||||
#+NAME: get-abstract-text
|
||||
#+BEGIN_SRC elisp :results replace :var keyword="abstract"
|
||||
(org-element-map (org-element-map
|
||||
(org-element-parse-buffer)
|
||||
'(headline)
|
||||
(lambda (hl) (if (string= (upcase keyword) (upcase (org-element-property :raw-value hl)))
|
||||
hl)
|
||||
)
|
||||
nil t)
|
||||
'(paragraph)
|
||||
(lambda (p)
|
||||
(format "%s" (replace-regexp-in-string (rx (or (: bos (* (any " \t\n")))
|
||||
(: (* (any " \t\n")) eos)))
|
||||
""
|
||||
(buffer-substring-no-properties (org-element-property :contents-begin p) (org-element-property :contents-end p))))
|
||||
)
|
||||
nil t)
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: get-abstract-text
|
||||
: The abstract goes here.
|
||||
|
||||
*** epj-pacs-codes-latex
|
||||
|
||||
#+NAME: epj-pacs-codes-latex
|
||||
#+BEGIN_SRC elisp :var pacs_codes=pacs-codes-table :results latex replace :var join_delim=" \\and\n"
|
||||
(mapconcat 'identity (mapcar (lambda (x) (format " {%s}{%s}" (car x) (nth 1 x))) pacs_codes) join_delim)
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: epj-pacs-codes-latex
|
||||
#+BEGIN_EXPORT latex
|
||||
{PACS-key01}{Text Describing PACS-key01} \and
|
||||
{PACS-key02}{Text Describing PACS-key02}
|
||||
#+END_EXPORT
|
||||
|
||||
*** epj-authors-latex
|
||||
|
||||
#+NAME: epj-authors-latex
|
||||
#+BEGIN_SRC elisp :var authors=authors-table :results latex replace :var join_delim=" \\and "
|
||||
(mapconcat 'identity (mapcar (lambda (x) (format "%s\\inst{%s}" (car x) (nth 2 x))) authors) join_delim)
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: epj-authors-latex
|
||||
#+BEGIN_EXPORT latex
|
||||
Mai Deah\inst{1} \and Arthur Secondus\inst{1} \and E. Tal\inst{2}
|
||||
#+END_EXPORT
|
||||
|
||||
*** epj-institutions-latex
|
||||
|
||||
#+NAME: epj-institutions-latex
|
||||
#+BEGIN_SRC elisp :var institutions=institutions-table :results latex replace :var join_delim=" \\and "
|
||||
(mapconcat 'identity (mapcar (lambda (x) (format "%s" (nth 1 x))) institutions) join_delim)
|
||||
#+END_SRC
|
||||
|
||||
#+RESULTS: epj-institutions-latex
|
||||
#+BEGIN_EXPORT latex
|
||||
New Discoveries Lab, Department of Something-or-Ruther, University of Some-Sort, Some-Sort, Some-Sort-of-Country \and Golden Opportunities Lab, Department of Obscure Studies, Ancient College, Olde-Locale, Stodgy-Land
|
||||
#+END_EXPORT
|
||||
|
||||
* Common Export Settings :noexport:
|
||||
|
||||
#+OPTIONS: ':nil *:t -:t ::t <:nil H:4 \n:nil ^:{} arch:headline
|
||||
#+OPTIONS: author:nil broken-links:nil c:nil creator:nil
|
||||
#+OPTIONS: d:(not "LOGBOOK") date:nil e:t email:nil f:t inline:t num:nil
|
||||
#+OPTIONS: p:nil pri:nil prop:t stat:nil tags:t tasks:nil tex:t
|
||||
#+OPTIONS: timestamp:nil title:nil toc:nil todo:nil |:t
|
||||
#+SELECT_TAGS: export
|
||||
#+EXCLUDE_TAGS: noexport nolatex
|
||||
|
||||
# For Display when file is exported with org-ruby
|
||||
|
||||
#+EXPORT_SELECT_TAGS: export
|
||||
#+EXPORT_EXCLUDE_TAGS: noexport
|
||||
|
||||
|
||||
# Local Variables:
|
||||
# eval: (require (quote cl-lib))
|
||||
# eval: (require (quote ox))
|
||||
# eval: (require (quote ox-publish))
|
||||
# org-latex-with-hyperref: nil
|
||||
# eval: (add-to-list (quote org-latex-classes) (quote ("epj-svjour" "%%%%%%%%%%%%%%%%%%%%%%%% epj-svjour %%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
# %
|
||||
# \\begin{filecontents}{leer.eps}
|
||||
# %!PS-Adobe-2.0 EPSF-2.0
|
||||
# %%CreationDate: Mon Jul 13 16:51:17 1992
|
||||
# %%DocumentFonts: (atend)
|
||||
# %%Pages: 0 1
|
||||
# %%BoundingBox: 72 31 601 342
|
||||
# %%EndComments
|
||||
#
|
||||
# gsave
|
||||
# 72 31 moveto
|
||||
# 72 342 lineto
|
||||
# 601 342 lineto
|
||||
# 601 31 lineto
|
||||
# 72 31 lineto
|
||||
# showpage
|
||||
# grestore
|
||||
# %%Trailer
|
||||
# %%DocumentFonts: Helvetica
|
||||
# \\end{filecontents}
|
||||
# %
|
||||
# \\documentclass[epj]{svjour}
|
||||
# [NO-DEFAULT-PACKAGES]
|
||||
# [PACKAGES]
|
||||
# [EXTRA]" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))
|
||||
# End:
|
||||
Loading…
Add table
Reference in a new issue