PocketMod for org-mode

[Christian Egli <christian.egli@novell.com>]

[-- Attachment #1: Type: text/plain, Size: 1394 bytes --]


Hi all

With my increased use of org-mode I have also started using M-x
calendar and the diary. For a while I've been wanting to have a
printed version of my calendar for offline use. Also I quite like the
idea of the pocketMod. Now the calendar mode itself can generate some
quite fancy latex printouts that include your diary entries. So over
the weekend I tried to generate a calendar similar to the pocketMod
from the calendars you can create from within Emacs. The attached
script generates a pocketMod style pdf which contains the next four
weeks, the next three months and the current year on one page. It also
generates a hipsterPDA style printout which contains the same
calendars to be used in hipsterPDA style.

I guess the script is meant as a starting point. You could possibly
add an export of your most important TODOs or possibly other
stuff. 

One thing that I'm not quite happy with is that the printouts are very
small and you almost need a magnifying glass to read them. Maybe some
experiments with the fonts and font sizes are in order. Also for some
reason the batch jobs do not seem to use the settings from ~/.emacs
(despite the -l ~/.emacs option). I need this to set the preamble in
the generated latex (e.g. for stuff like  (setq cal-tex-preamble-extra
"\\usepackage[utf8]{inputenc}")).

So enjoy your printouts and send me feedback and enhancements :-)

Christian


[-- Attachment #2: Makefile to generate a pocketMod --]
[-- Type: application/octet-stream, Size: 1659 bytes --]

EMACS = emacs -batch -l ~/.emacs
LATEX = latex

pdfFiles =  weekCalendar.pdf yearCalendar.pdf monthCalendar3.pdf monthCalendar2.pdf monthCalendar1.pdf

all: pocketMod.pdf hipsterPDA.pdf

%.dvi: %.tex
	$(LATEX) $^

%.pdf: %.dvi
	dvipdf $^

weekCalendar.tex: ~/diary
	$(EMACS) -eval "(progn (calendar) (cal-tex-cursor-week-iso 4) (with-current-buffer cal-tex-buffer (write-file \"$@\")))"

monthCalendar1.tex: ~/diary
	 $(EMACS) -eval "(progn (calendar) (cal-tex-cursor-month-landscape 1) (with-current-buffer cal-tex-buffer (write-file \"$@\")))"

monthCalendar2.tex: ~/diary
	 $(EMACS) -eval "(progn (calendar) (calendar-forward-month 1) (cal-tex-cursor-month-landscape 1) (with-current-buffer cal-tex-buffer (write-file \"$@\")))"

monthCalendar3.tex: ~/diary
	 $(EMACS) -eval "(progn (calendar) (calendar-forward-month 2) (cal-tex-cursor-month-landscape 1) (with-current-buffer cal-tex-buffer (write-file \"$@\")))"

yearCalendar.tex: /home/egli/diary
	 $(EMACS) -eval "(progn (calendar) (calendar-forward-month 2) (cal-tex-cursor-year-landscape 1) (with-current-buffer cal-tex-buffer (write-file \"$@\")))"

pocketMod.pdf: $(pdfFiles)
	for pdf in month*.pdf year*.pdf; do \
		for n in 1 2 3; do \
			pdf90 --outfile tmp.pdf $$pdf; mv tmp.pdf $$pdf; \
		done; \
	done
	pdfjoin --outfile tmp.pdf $^
	pdfnup tmp.pdf --outfile $@ --nup 4x2 --frame true

hipsterPDA.pdf: $(pdfFiles)
	pdfnup weekCalendar.pdf --outfile page1.pdf --nup 2x2 --frame true
	pdfjoin --outfile tmp.pdf monthCalendar*.pdf yearCalendar.pdf
	pdfnup tmp.pdf --outfile page2.pdf --nup 2x2 --frame true
	pdfjoin --outfile $@ page1.pdf page2.pdf

clean:
	rm -rf *.aux *.dvi *.tex *.log *.pdf

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode