1;;; cal-x.el --- calendar windows in dedicated frames in X
2
3;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4;;   Free Software Foundation, Inc.
5
6;; Author: Michael Kifer <kifer@cs.sunysb.edu>
7;;      Edward M. Reingold <reingold@cs.uiuc.edu>
8;; Maintainer: Glenn Morris <rgm@gnu.org>
9;; Keywords: calendar
10;; Human-Keywords: calendar, dedicated frames, X Window System
11
12;; This file is part of GNU Emacs.
13
14;; GNU Emacs is free software; you can redistribute it and/or modify
15;; it under the terms of the GNU General Public License as published by
16;; the Free Software Foundation; either version 2, or (at your option)
17;; any later version.
18
19;; GNU Emacs is distributed in the hope that it will be useful,
20;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22;; GNU General Public License for more details.
23
24;; You should have received a copy of the GNU General Public License
25;; along with GNU Emacs; see the file COPYING.  If not, write to the
26;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27;; Boston, MA 02110-1301, USA.
28
29;;; Commentary:
30
31;; This collection of functions implements dedicated frames in X for
32;; calendar.el.
33
34;;; Code:
35
36(require 'calendar)
37
38(defvar calendar-frame nil "Frame in which to display the calendar.")
39
40(defvar diary-frame nil "Frame in which to display the diary.")
41
42;; This should not specify the font.  That's up to the user.
43;; Certainly it should not specify auto-lower and auto-raise
44;; since most users won't like that.
45(defvar diary-frame-parameters
46  '((name . "Diary") (title . "Diary") (height . 10) (width . 80)
47    (unsplittable . t) (minibuffer . nil))
48  "Parameters of the diary frame, if the diary is in its own frame.
49Location and color should be set in .Xdefaults.")
50
51(defvar calendar-frame-parameters
52  '((name . "Calendar") (title . "Calendar") (minibuffer . nil)
53    (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil))
54  "Parameters of the calendar frame, if the calendar is in a separate frame.
55Location and color should be set in .Xdefaults.")
56
57(defvar calendar-and-diary-frame-parameters
58  '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80)
59    (minibuffer . nil))
60  "Parameters of the frame that displays both the calendar and the diary.
61Location and color should be set in .Xdefaults.")
62
63(defvar calendar-after-frame-setup-hooks nil
64  "Hooks to be run just after setting up a calendar frame.
65Can be used to change frame parameters, such as font, color, location, etc.")
66
67(defun calendar-one-frame-setup (&optional arg)
68  "Start calendar and display it in a dedicated frame together with the diary.
69This function requires a display capable of multiple frames, else
70`calendar-basic-setup' is used instead."
71  (if (not (display-multi-frame-p))
72      (calendar-basic-setup arg)
73    (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
74    (if (frame-live-p diary-frame) (delete-frame diary-frame))
75    (let ((special-display-buffer-names nil)
76          (view-diary-entries-initially t))
77      (save-window-excursion
78        (save-excursion
79          (setq calendar-frame
80		(make-frame calendar-and-diary-frame-parameters))
81          (run-hooks 'calendar-after-frame-setup-hooks)
82          (select-frame calendar-frame)
83          (if (eq 'icon (cdr (assoc 'visibility
84                                     (frame-parameters calendar-frame))))
85              (iconify-or-deiconify-frame))
86          (calendar-basic-setup arg)
87          (set-window-dedicated-p (selected-window) t)
88          (set-window-dedicated-p
89           (display-buffer
90            (if (not (memq 'fancy-diary-display diary-display-hook))
91                (get-file-buffer diary-file)
92              (if (not (bufferp (get-buffer fancy-diary-buffer)))
93                  (make-fancy-diary-buffer))
94              fancy-diary-buffer))
95           t))))))
96
97(defun calendar-only-one-frame-setup (&optional arg)
98  "Start calendar and display it in a dedicated frame.
99This function requires a display capable of multiple frames, else
100`calendar-basic-setup' is used instead."
101  (if (not (display-multi-frame-p))
102      (calendar-basic-setup arg)
103    (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
104    (let ((special-display-buffer-names nil)
105          (view-diary-entries-initially nil))
106      (save-window-excursion
107        (save-excursion
108          (setq calendar-frame
109		(make-frame calendar-frame-parameters))
110          (run-hooks 'calendar-after-frame-setup-hooks)
111          (select-frame calendar-frame)
112          (if (eq 'icon (cdr (assoc 'visibility
113                                     (frame-parameters calendar-frame))))
114              (iconify-or-deiconify-frame))
115          (calendar-basic-setup arg)
116          (set-window-dedicated-p (selected-window) t))))))
117
118(defun calendar-two-frame-setup (&optional arg)
119  "Start calendar and diary in separate, dedicated frames.
120This function requires a display capable of multiple frames, else
121`calendar-basic-setup' is used instead."
122  (if (not (display-multi-frame-p))
123      (calendar-basic-setup arg)
124    (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
125    (if (frame-live-p diary-frame) (delete-frame diary-frame))
126    (let ((pop-up-windows nil)
127          (view-diary-entries-initially nil)
128          (special-display-buffer-names nil))
129      (save-window-excursion
130        (save-excursion (calendar-basic-setup arg))
131        (setq calendar-frame (make-frame calendar-frame-parameters))
132        (run-hooks 'calendar-after-frame-setup-hooks)
133        (select-frame calendar-frame)
134        (if (eq 'icon (cdr (assoc 'visibility
135                                  (frame-parameters calendar-frame))))
136            (iconify-or-deiconify-frame))
137        (display-buffer calendar-buffer)
138        (set-window-dedicated-p (selected-window) t)
139        (setq diary-frame (make-frame diary-frame-parameters))
140        (run-hooks 'calendar-after-frame-setup-hooks)
141        (select-frame diary-frame)
142        (if (eq 'icon (cdr (assoc 'visibility
143                                  (frame-parameters diary-frame))))
144            (iconify-or-deiconify-frame))
145        (save-excursion (diary))
146        (set-window-dedicated-p
147         (display-buffer
148          (if (not (memq 'fancy-diary-display diary-display-hook))
149              (get-file-buffer diary-file)
150            (if (not (bufferp (get-buffer fancy-diary-buffer)))
151                (make-fancy-diary-buffer))
152            fancy-diary-buffer))
153         t)))))
154
155;; Formerly (get-file-buffer diary-file) was added to the list here,
156;; but that isn't clean, and the value could even be nil.
157(setq special-display-buffer-names
158      (append special-display-buffer-names
159              (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer
160                    fancy-diary-buffer
161                    other-calendars-buffer calendar-buffer)))
162
163(run-hooks 'cal-x-load-hook)
164
165(provide 'cal-x)
166
167;;; arch-tag: c6dbddca-ae84-442d-87fc-244b76e38e17
168;;; cal-x.el ends here
169