Mercurial > emacs
diff lisp/calendar/cal-tex.el @ 88155:d7ddb3e565de
sync with trunk
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Mon, 16 Jan 2006 00:03:54 +0000 |
parents | 0d8b17d428b5 |
children |
line wrap: on
line diff
--- a/lisp/calendar/cal-tex.el Sun Jan 15 23:02:10 2006 +0000 +++ b/lisp/calendar/cal-tex.el Mon Jan 16 00:03:54 2006 +0000 @@ -1,9 +1,11 @@ ;;; cal-tex.el --- calendar functions for printing calendars with LaTeX -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005 +;; Free Software Foundation, Inc. ;; Author: Steve Fisk <fisk@bowdoin.edu> ;; Edward M. Reingold <reingold@cs.uiuc.edu> +;; Maintainer: Glenn Morris <rgm@gnu.org> ;; Keywords: calendar ;; Human-Keywords: Calendar, LaTeX @@ -21,8 +23,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -158,7 +160,7 @@ (defvar cal-tex-day-name-format "\\myday{%s}%%" "The format for LaTeX code for a day name. The names are taken from -calendar-day-name-array.") +`calendar-day-name-array'.") (defvar cal-tex-cal-one-month "\\def\\calmonth#1#2% @@ -649,6 +651,11 @@ ;;; Weekly calendars ;;; +(defvar cal-tex-LaTeX-hourbox + "\\newcommand{\\hourbox}[2]% +{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" + "One hour and a line on the right.") + (defun cal-tex-cursor-week (&optional arg) "Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in. @@ -870,11 +877,6 @@ (cal-tex-end-document) (run-hooks 'cal-tex-hook))) -(defvar cal-tex-LaTeX-hourbox - "\\newcommand{\\hourbox}[2]% -{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" - "One hour and a line on the right.") - (defun cal-tex-week-hours (date holidays height) "Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT." (let ((month (extract-calendar-month date)) @@ -1781,4 +1783,5 @@ (provide 'cal-tex) +;;; arch-tag: ca8168a4-5a00-4508-a565-17e3bccce6d0 ;;; cal-tex.el ends here