summaryrefslogtreecommitdiff
path: root/.emacs.d/org-7.4/contrib/scripts/org2hpda
blob: 6b308f38b824417438430fe8868d0455d511b7e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
# org2hpda - a small utility to generate hipster pda style printouts from org mode 
# Copyright (C) 2007  Christian Egli
# 
# Version: 0.6
#
# 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/>.
#
# Commentary:
# ===========
#
# set cal-tex-diary to true so that diary entries show up in the calendar 
#
# Usage:
# ======
#
# run this makefile with 
#
#  make -f org2hpda
#
# The makfile will take the entries from your diary file and generate
# two PDFs containing nicely printed weekly and monthly calendars. One
# is done in the style of a pocketMod (http://www.pocketmod.com/) and
# the other is done in the style of the Hipster PDA
# (http://en.wikipedia.org/wiki/Hipster_PDA). 
#
# Requirements:
# =============
#
# the pdf* commands are part of the pdfjam package which can be found
# at http://www.warwick.ac.uk/go/pdfjam

EMACS = emacs -batch -l ~/.emacs
LATEX = latex
DIARY = $($(EMACS) -eval "diary-file")

# Number of weeks to be printed. Should be a multiple of 4, because 4
# of them are merged on one page. Can be set when invoking the script
# as follows: make NUMBER_OF_WEEKS=8 -f org2hpda
NUMBER_OF_WEEKS = 4 

hipsterFiles =  weekCalendar.pdf yearCalendar.pdf monthCalendar3.pdf monthCalendar2.pdf monthCalendar1.pdf
pocketModFiles =  weekCalendar.pdf yearCalendar-rotated.pdf \
	monthCalendar3-rotated.pdf monthCalendar2-rotated.pdf monthCalendar1-rotated.pdf

all: pocketMod.pdf hipsterPDA.pdf

%.dvi: %.tex
	# Quick hack to massage the LaTeX produced by cal-tex
	# quote '@', then increase font size of week calendars,
	# increase font of diary entries in moth calendar and 
	# finally reduce links to their destination, i.e. 
	# change '[[http://foo][bar]]' to 'bar'
	sed 	-e 's/\\verb|@|/\@/g' \
		-e 's/documentclass\[11pt\]/documentclass[12pt]/g' \
		-e 's/{\\tiny \\raggedright #3}/{\\small \\raggedright #3}/g' \
		-e 's/\[\[[^]]\+\]\[\([^]]\+\)\]\]/\1/g' \
		< $< > /tmp/temp-org-file.$$$$; mv /tmp/temp-org-file.$$$$ $<
	$(LATEX) $^

%.pdf: %.dvi
	dvipdf $^

%-rotated.pdf: %.pdf
	cp $^ $@
	for n in 1 2 3; do \
		pdf90 --outfile tmp.pdf $@; mv tmp.pdf $@; \
	done

weekCalendar.tex: $(DIARY)
	$(EMACS) -eval "(progn (calendar) (cal-tex-cursor-week-iso $(NUMBER_OF_WEEKS)) (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: $(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: $(pocketModFiles)
	pdfjoin --outfile tmp.pdf $^
	pdfnup tmp.pdf --outfile $@ --nup 4x2 --frame true

hipsterPDA.pdf: $(hipsterFiles)
	pdfnup weekCalendar.pdf --outfile page1.pdf --nup 2x2 --frame true
	pdfjoin --outfile tmp.pdf monthCalendar[1-3]-rotated.pdf yearCalendar-rotated.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