Commit | Line | Data |
---|---|---|
189134c3 | 1 | ;;; cal-x.el --- calendar windows in dedicated frames in X |
38e3261c | 2 | |
8b72699e | 3 | ;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
dbfca9c4 | 4 | ;; Free Software Foundation, Inc. |
38e3261c ER |
5 | |
6 | ;; Author: Michael Kifer <kifer@cs.sunysb.edu> | |
7 | ;; Edward M. Reingold <reingold@cs.uiuc.edu> | |
aff88519 | 8 | ;; Maintainer: Glenn Morris <rgm@gnu.org> |
38e3261c | 9 | ;; Keywords: calendar |
189134c3 | 10 | ;; Human-Keywords: calendar, dedicated frames, X Window System |
38e3261c ER |
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 | |
075969b4 | 16 | ;; the Free Software Foundation; either version 3, or (at your option) |
38e3261c ER |
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 | |
b578f267 | 25 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
26 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 | ;; Boston, MA 02110-1301, USA. | |
38e3261c ER |
28 | |
29 | ;;; Commentary: | |
30 | ||
189134c3 | 31 | ;; This collection of functions implements dedicated frames in X for |
38e3261c ER |
32 | ;; calendar.el. |
33 | ||
38e3261c ER |
34 | ;;; Code: |
35 | ||
10dbf039 RS |
36 | (require 'calendar) |
37 | ||
38e3261c ER |
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.") | |
a1506d29 | 41 | |
eb18bc57 RS |
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. | |
38e3261c | 45 | (defvar diary-frame-parameters |
4a7cd65c ER |
46 | '((name . "Diary") (title . "Diary") (height . 10) (width . 80) |
47 | (unsplittable . t) (minibuffer . nil)) | |
38e3261c ER |
48 | "Parameters of the diary frame, if the diary is in its own frame. |
49 | Location and color should be set in .Xdefaults.") | |
a1506d29 | 50 | |
38e3261c | 51 | (defvar calendar-frame-parameters |
4a7cd65c ER |
52 | '((name . "Calendar") (title . "Calendar") (minibuffer . nil) |
53 | (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil)) | |
38e3261c ER |
54 | "Parameters of the calendar frame, if the calendar is in a separate frame. |
55 | Location and color should be set in .Xdefaults.") | |
56 | ||
57 | (defvar calendar-and-diary-frame-parameters | |
4a7cd65c ER |
58 | '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) |
59 | (minibuffer . nil)) | |
38e3261c ER |
60 | "Parameters of the frame that displays both the calendar and the diary. |
61 | Location and color should be set in .Xdefaults.") | |
a1506d29 | 62 | |
38e3261c ER |
63 | (defvar calendar-after-frame-setup-hooks nil |
64 | "Hooks to be run just after setting up a calendar frame. | |
65 | Can be used to change frame parameters, such as font, color, location, etc.") | |
a1506d29 | 66 | |
519d8c19 GM |
67 | ;; calendar-basic-setup is called first, and will autoload diary-lib. |
68 | (declare-function make-fancy-diary-buffer "diary-lib" nil) | |
69 | ||
38e3261c | 70 | (defun calendar-one-frame-setup (&optional arg) |
091f6920 GM |
71 | "Start calendar and display it in a dedicated frame together with the diary. |
72 | This function requires a display capable of multiple frames, else | |
73 | `calendar-basic-setup' is used instead." | |
53e1a74c | 74 | (if (not (display-multi-frame-p)) |
38e3261c ER |
75 | (calendar-basic-setup arg) |
76 | (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) | |
77 | (if (frame-live-p diary-frame) (delete-frame diary-frame)) | |
78 | (let ((special-display-buffer-names nil) | |
79 | (view-diary-entries-initially t)) | |
80 | (save-window-excursion | |
81 | (save-excursion | |
82 | (setq calendar-frame | |
83 | (make-frame calendar-and-diary-frame-parameters)) | |
84 | (run-hooks 'calendar-after-frame-setup-hooks) | |
85 | (select-frame calendar-frame) | |
86 | (if (eq 'icon (cdr (assoc 'visibility | |
87 | (frame-parameters calendar-frame)))) | |
88 | (iconify-or-deiconify-frame)) | |
89 | (calendar-basic-setup arg) | |
ed554ebd | 90 | (set-window-dedicated-p (selected-window) t) |
38e3261c ER |
91 | (set-window-dedicated-p |
92 | (display-buffer | |
0f12fdab ER |
93 | (if (not (memq 'fancy-diary-display diary-display-hook)) |
94 | (get-file-buffer diary-file) | |
95 | (if (not (bufferp (get-buffer fancy-diary-buffer))) | |
96 | (make-fancy-diary-buffer)) | |
97 | fancy-diary-buffer)) | |
ed554ebd | 98 | t)))))) |
77a7efce KH |
99 | |
100 | (defun calendar-only-one-frame-setup (&optional arg) | |
091f6920 GM |
101 | "Start calendar and display it in a dedicated frame. |
102 | This function requires a display capable of multiple frames, else | |
103 | `calendar-basic-setup' is used instead." | |
53e1a74c | 104 | (if (not (display-multi-frame-p)) |
77a7efce KH |
105 | (calendar-basic-setup arg) |
106 | (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) | |
107 | (let ((special-display-buffer-names nil) | |
108 | (view-diary-entries-initially nil)) | |
109 | (save-window-excursion | |
110 | (save-excursion | |
111 | (setq calendar-frame | |
112 | (make-frame calendar-frame-parameters)) | |
113 | (run-hooks 'calendar-after-frame-setup-hooks) | |
114 | (select-frame calendar-frame) | |
115 | (if (eq 'icon (cdr (assoc 'visibility | |
116 | (frame-parameters calendar-frame)))) | |
117 | (iconify-or-deiconify-frame)) | |
118 | (calendar-basic-setup arg) | |
ed554ebd | 119 | (set-window-dedicated-p (selected-window) t)))))) |
0f12fdab | 120 | |
38e3261c | 121 | (defun calendar-two-frame-setup (&optional arg) |
091f6920 GM |
122 | "Start calendar and diary in separate, dedicated frames. |
123 | This function requires a display capable of multiple frames, else | |
124 | `calendar-basic-setup' is used instead." | |
53e1a74c | 125 | (if (not (display-multi-frame-p)) |
38e3261c ER |
126 | (calendar-basic-setup arg) |
127 | (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) | |
128 | (if (frame-live-p diary-frame) (delete-frame diary-frame)) | |
129 | (let ((pop-up-windows nil) | |
130 | (view-diary-entries-initially nil) | |
131 | (special-display-buffer-names nil)) | |
132 | (save-window-excursion | |
133 | (save-excursion (calendar-basic-setup arg)) | |
134 | (setq calendar-frame (make-frame calendar-frame-parameters)) | |
135 | (run-hooks 'calendar-after-frame-setup-hooks) | |
136 | (select-frame calendar-frame) | |
137 | (if (eq 'icon (cdr (assoc 'visibility | |
138 | (frame-parameters calendar-frame)))) | |
139 | (iconify-or-deiconify-frame)) | |
140 | (display-buffer calendar-buffer) | |
ed554ebd | 141 | (set-window-dedicated-p (selected-window) t) |
38e3261c ER |
142 | (setq diary-frame (make-frame diary-frame-parameters)) |
143 | (run-hooks 'calendar-after-frame-setup-hooks) | |
144 | (select-frame diary-frame) | |
145 | (if (eq 'icon (cdr (assoc 'visibility | |
146 | (frame-parameters diary-frame)))) | |
147 | (iconify-or-deiconify-frame)) | |
148 | (save-excursion (diary)) | |
149 | (set-window-dedicated-p | |
150 | (display-buffer | |
0f12fdab ER |
151 | (if (not (memq 'fancy-diary-display diary-display-hook)) |
152 | (get-file-buffer diary-file) | |
153 | (if (not (bufferp (get-buffer fancy-diary-buffer))) | |
154 | (make-fancy-diary-buffer)) | |
155 | fancy-diary-buffer)) | |
ed554ebd | 156 | t))))) |
38e3261c | 157 | |
b5da410a KH |
158 | ;; Formerly (get-file-buffer diary-file) was added to the list here, |
159 | ;; but that isn't clean, and the value could even be nil. | |
38e3261c ER |
160 | (setq special-display-buffer-names |
161 | (append special-display-buffer-names | |
162 | (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer | |
b5da410a | 163 | fancy-diary-buffer |
32eb9671 | 164 | other-calendars-buffer calendar-buffer))) |
38e3261c ER |
165 | |
166 | (run-hooks 'cal-x-load-hook) | |
167 | ||
168 | (provide 'cal-x) | |
169 | ||
3fbd3d25 | 170 | ;; arch-tag: c6dbddca-ae84-442d-87fc-244b76e38e17 |
38e3261c | 171 | ;;; cal-x.el ends here |