#!/bin/sh
# -*- mode: shell-script -*-
# org --- Calls Org-mode from the command line:
#
# Author: Eric Schulte
#
# Usage:
#
#   1. update ORGINSTALL and ORGCONFIG to point to your local
#      org-install.el and your local org-mode configuration
#      (for things like org-agenda-files)
#
#   2. make this file executable
#
#   3. run one of the following commands
#
#      org agenda fmt   ## where fmt is one of txt, html, ps or ics
#      no other commands yet...
#
ORGINSTALL="~/emacs/src/org/lisp/org-install.el"
ORGCONFIG="~/emacs/eschulte-org.el"

## wrappers for the eval command sent to Emacs
ORGSTARTUPOPEN=$(cat <<EOF )
(progn
  (add-to-list 'load-path (expand-file-name "~/emacs/src/org/lisp/"))
  (add-to-list 'load-path (expand-file-name "~/emacs/src/org/contrib/lisp/"))
  (require 'org)(require 'org-exp)
EOF
ORGSTARTUPCLOSE=")"

## dispatch on the first command -- currently only "agenda" is supported
case $1 in
    agenda) # write the agenda to stdout in format of $2
    FILLER=$(cat <<EOF )
;; function definitions -- could be placed in org-mode/contrib
(defun org-agenda-to-string (fmt)
  (let ((tmp-file (make-temp-file "org-tmp" nil (concat "." fmt)))
        output)
    (save-window-excursion
      (org-batch-agenda "a")
      (org-write-agenda tmp-file))
    (with-temp-buffer
      (insert-file-contents-literally tmp-file)
      (setq output (buffer-string)))
    (delete-file tmp-file)
    output))
(org-agenda-to-string "$2")
EOF
        ;;
    *)
        echo "unknown";;
esac

# Notice the use of `princ' to write to STDOUT and use of
# `with-output-to-temp-buffer' command to ensure nothing else is
# written to STDOUT.
EL=$(cat <<EOF )
$ORGSTARTUPOPEN
(princ (with-output-to-temp-buffer "*trash*" $FILLER))
$ORGSTARTUPCLOSE
EOF

# echo "$EL" ## testing
emacs -Q --batch -l $ORGINSTALL -l $ORGCONFIG --eval "$EL" 2> /dev/null