#+Title: Org Export as LaTeX
#+Author: Sam Flint
#+PROPERTY: noweb tangle

* Copyright Statement
#+Name: CopyrightStatement
#+CAPTION: use-name-as-caption
#+BEGIN_SRC text
  Copyright FlintFam Systems Management, 2013.
  
  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
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  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 <http://www.gnu.org/licenses/>.
#+END_SRC
#+CAPTION: use-name-as-caption
* Setup Vars
#+Name: VarSetup
#+CAPTION: use-name-as-caption
#+BEGIN_SRC sh
  DIR=`pwd`
  FILES=""
  
  for i in $@; do
      FILES="$FILES \"$i\""
  done
  
  ORGBASEDIR=''
  ORGLDIR="${ORGBASEDIR}/lisp/"
  ORGCONTRIB="${ORGBASEDIR}/contrib/"
#+END_SRC
#+CAPTION: use-name-as-caption
* Process
#+Name: Process
#+CAPTION: use-name-as-caption
#+BEGIN_SRC sh
  emacs -Q --batch \
      --eval "(progn
       (add-to-list 'load-path (expand-file-name \"$ORGLDIR\"))
       (add-to-list 'load-path (expand-file-name \"$ORGCONTRIB\" t))
       (require 'org)(require 'org-exp)(require 'ob)(require 'ob-tangle)
       (load-file \"org-usename-caption.el\")
       (mapc (lambda (file)
              (find-file (expand-file-name file \"$DIR\"))
              (org-export-as-latex-batch)
              (kill-buffer)) '($FILES)))" 2>&1 |grep tangled
#+END_SRC
#+CAPTION: use-name-as-caption
* A little elisp
#+Name: OrgExportNameCaption
#+CAPTION: use-name-as-caption
#+BEGIN_SRC elisp :tangle "org-usename-caption.el"
  (defun org-export-use-name-as-caption 
    (text &optional back-end info)
    "Use the block name as the caption."
    (replace-regexp-in-string 
     "label{\\([^}]*\\)}\\(use-name-as-caption\\)"
     "label{\\1}\\1"
     text))
  
  (add-to-list 'org-export-filter-src-block-functions
               'org-export-use-name-as-caption)
#+END_SRC
#+CAPTION: use-name-as-caption
* Code
#+Name: FinalCode
#+CAPTION: use-name-as-caption
#+BEGIN_SRC sh :tangle "org-exportlatex.sh" :shebang "#!/usr/bin/zsh"

#+END_SRC
#+CAPTION: use-name-as-caption