Commit 2d7e07ba authored by Frédéric Santos's avatar Frédéric Santos

Add instructions in Org folder

parent 8ac9ec05
An Org source file to reproduce the whole manuscript
The files provided in this folder should allow to reproduce the whole manuscript, in its exact form at the moment of the submission to the *Journal of Archaeological Science: Reports*.
The following instructions should work on a Linux system, and have not been tested on other OS.
## Prerequisites
1. Please make sure that R and all the required packages are installed. See [here]( for a complete list and detailed instructions.
2. A complete distribution of LaTeX must be available on your computer.
3. The last version of [Emacs]( is required.
## Steps to follow
1. Unzip the whole folder in your computer.
2. Open a terminal and set this folder as the working directory. Then enter the following command into the shell:
emacs -q -l init_Santos2019.el
3. Emacs should open, eventually install the missing Lisp packages, and finally execute a minimal init file. The org source file should show up.
4. Finally, execute the following keybind (with the Emacs window on the foreground): `C-c C-e l p` (i.e., `Ctrl-c Ctrl-e l p`).
5. A pdf file should be created as a result in the working directory.
## Disclaimer
1. Some files in this repository (e.g., `ox-extra.el` and `model5-names.bst`) are the property of their respective authors. They have made freely available by their authors, and are simply provided here for a greater ease of use.
2. If the previous steps do not work on your computer, feel free to contact me.
This diff is collapsed.
;;; ox-extra.el --- Convenience functions for org export
;; Copyright (C) 2014 Aaron Ecay
;; Author: Aaron Ecay <[email protected]>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <>.
;;; Commentary:
;; This file contains some convenience functions for org export, which
;; are not part of org's core. Call `ox-extras-activate' passing a
;; list of symbols naming extras, which will be installed globally in
;; your org session.
;; For example, you could include the following in your .emacs file:
;; (require 'ox-extra)
;; (ox-extras-activate '(latex-header-blocks ignore-headlines))
;; Currently available extras:
;; - `latex-header-blocks' -- allow the use of latex blocks, the
;; contents of which which will be interpreted as #+latex_header lines
;; for export. These blocks should be tagged with #+header: :header
;; yes. For example:
;; #+header: :header yes
;; #+begin_export latex
;; ...
;; #+end_export
;; - `ignore-headlines' -- allow a headline (but not its children) to
;; be ignored. Any headline tagged with the 'ignore' tag will be
;; ignored (i.e. will not be included in the export), but any child
;; headlines will not be ignored (unless explicitly tagged to be
;; ignored), and will instead have their levels promoted by one.
;; TODO:
;; - add a function to org-mode-hook that looks for a ox-extras local
;; variable and activates the specified extras buffer-locally
;; - allow specification of desired extras to be activated via
;; customize
;;; Code:
(require 'ox)
(eval-when-compile (require 'cl))
(defun org-latex-header-blocks-filter (backend)
(when (org-export-derived-backend-p backend 'latex)
(let ((positions
(org-element-map (org-element-parse-buffer 'greater-element nil) 'export-block
(lambda (block)
(when (and (string= (org-element-property :type block) "LATEX")
(string= (org-export-read-attribute
:header block :header)
(list (org-element-property :begin block)
(org-element-property :end block)
(org-element-property :post-affiliated block)))))))
(mapc (lambda (pos)
(goto-char (nth 2 pos))
(beg end &rest ignore)
(let ((contents-lines (split-string
(buffer-substring-no-properties beg end)
(delete-region (nth 0 pos) (nth 1 pos))
(dolist (line contents-lines)
(insert (concat "#+latex_header: "
(replace-regexp-in-string "\\` *" "" line)
;; go in reverse, to avoid wrecking the numeric positions
;; earlier in the file
(reverse positions)))))
;; During export headlines which have the "ignore" tag are removed
;; from the parse tree. Their contents are retained (leading to a
;; possibly invalid parse tree, which nevertheless appears to function
;; correctly with most export backends) all children headlines are
;; retained and are promoted to the level of the ignored parent
;; headline.
;; This makes it possible to add structure to the original Org-mode
;; document which does not effect the exported version, such as in the
;; following examples.
;; Wrapping an abstract in a headline
;; * Abstract :ignore:
;; #+LaTeX: \begin{abstract}
;; #+HTML: <div id="abstract">
;; ...
;; #+HTML: </div>
;; #+LaTeX: \end{abstract}
;; Placing References under a headline (using ox-bibtex in contrib)
;; * References :ignore:
;; #+BIBLIOGRAPHY: dissertation plain
;; Inserting an appendix for LaTeX using the appendix package.
;; * Appendix :ignore:
;; #+LaTeX: \begin{appendices}
;; ** Reproduction
;; ...
;; ** Definitions
;; #+LaTeX: \end{appendices}
(defun org-export-ignore-headlines (data backend info)
"Remove headlines tagged \"ignore\" retaining contents and promoting children.
Each headline tagged \"ignore\" will be removed retaining its
contents and promoting any children headlines to the level of the
(org-element-map data 'headline
(lambda (object)
(when (member "ignore" (org-element-property :tags object))
(let ((level-top (org-element-property :level object))
(mapc (lambda (el)
;; recursively promote all nested headlines
(org-element-map el 'headline
(lambda (el)
(when (equal 'headline (org-element-type el))
(unless level-diff
(setq level-diff (- (org-element-property :level el)
(org-element-put-property el
:level (- (org-element-property :level el)
;; insert back into parse tree
(org-element-insert-before el object))
(org-element-contents object)))
(org-element-extract-element object)))
info nil)
(defconst ox-extras
'((latex-header-blocks org-latex-header-blocks-filter org-export-before-parsing-hook)
(ignore-headlines org-export-ignore-headlines org-export-filter-parse-tree-functions))
"A list of org export extras that can be enabled.
Should be a list of items of the form (NAME FN HOOK). NAME is a
symbol, which can be passed to `ox-extras-activate'. FN is a
function which will be added to HOOK.")
(defun ox-extras-activate (extras)
"Activate certain org export extras.
EXTRAS should be a list of extras (defined in `ox-extras') which
should be activated."
(dolist (extra extras)
(let* ((lst (assq extra ox-extras))
(fn (nth 1 lst))
(hook (nth 2 lst)))
(when (and fn hook)
(add-hook hook fn)))))
(defun ox-extras-deactivate (extras)
"Deactivate certain org export extras.
This function is the opposite of `ox-extras-activate'. EXTRAS
should be a list of extras (defined in `ox-extras') which should
be activated."
(dolist (extra extras)
(let* ((lst (assq extra ox-extras))
(fn (nth 1 lst))
(hook (nth 2 lst)))
(when (and fn hook)
(remove-hook hook fn)))))
(provide 'ox-extra)
;;; ox-extra.el ends here
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment