14269
|
1 ;;; cal-x.el --- calendar windows in dedicated frames in X
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
2
|
13046
|
3 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
4
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
5 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
6 ;; Edward M. Reingold <reingold@cs.uiuc.edu>
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
7 ;; Keywords: calendar
|
14269
|
8 ;; Human-Keywords: calendar, dedicated frames, X Window System
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
9
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
10 ;; This file is part of GNU Emacs.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
11
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, or (at your option)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
15 ;; any later version.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
16
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
17 ;; GNU Emacs is distributed in the hope that it will be useful,
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
20 ;; GNU General Public License for more details.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
21
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License
|
14169
|
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
25 ;; Boston, MA 02111-1307, USA.
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
26
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
27 ;;; Commentary:
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
28
|
14269
|
29 ;; This collection of functions implements dedicated frames in X for
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
30 ;; calendar.el.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
31
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
32 ;; Comments, corrections, and improvements should be sent to
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
33 ;; Edward M. Reingold Department of Computer Science
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
34 ;; (217) 333-6733 University of Illinois at Urbana-Champaign
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
35 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
36 ;; Urbana, Illinois 61801
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
37
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
38 ;;; Code:
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
39
|
13441
|
40 (require 'calendar)
|
|
41
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
42 (defvar calendar-frame nil "Frame in which to display the calendar.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
43
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
44 (defvar diary-frame nil "Frame in which to display the diary.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
45
|
15114
|
46 ;; This should not specify the font. That's up to the user.
|
|
47 ;; Certainly it should not specify auto-lower and auto-raise
|
|
48 ;; since most users won't like that.
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
49 (defvar diary-frame-parameters
|
23552
|
50 '((name . "Diary") (title . "Diary") (height . 10) (width . 80)
|
|
51 (unsplittable . t) (minibuffer . nil))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
52 "Parameters of the diary frame, if the diary is in its own frame.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
53 Location and color should be set in .Xdefaults.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
54
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
55 (defvar calendar-frame-parameters
|
23552
|
56 '((name . "Calendar") (title . "Calendar") (minibuffer . nil)
|
|
57 (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
58 "Parameters of the calendar frame, if the calendar is in a separate frame.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
59 Location and color should be set in .Xdefaults.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
60
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
61 (defvar calendar-and-diary-frame-parameters
|
23552
|
62 '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80)
|
|
63 (minibuffer . nil))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
64 "Parameters of the frame that displays both the calendar and the diary.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
65 Location and color should be set in .Xdefaults.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
66
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
67 (defvar calendar-after-frame-setup-hooks nil
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
68 "Hooks to be run just after setting up a calendar frame.
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
69 Can be used to change frame parameters, such as font, color, location, etc.")
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
70
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
71 (defun calendar-one-frame-setup (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
72 "Start calendar and display it in a dedicated frame together with the diary."
|
37431
|
73 (if (not (display-multi-frame-p))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
74 (calendar-basic-setup arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
75 (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
76 (if (frame-live-p diary-frame) (delete-frame diary-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
77 (let ((special-display-buffer-names nil)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
78 (view-diary-entries-initially t))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
79 (save-window-excursion
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
80 (save-excursion
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
81 (setq calendar-frame
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
82 (make-frame calendar-and-diary-frame-parameters))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
83 (run-hooks 'calendar-after-frame-setup-hooks)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
84 (select-frame calendar-frame)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
85 (if (eq 'icon (cdr (assoc 'visibility
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
86 (frame-parameters calendar-frame))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
87 (iconify-or-deiconify-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
88 (calendar-basic-setup arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
89 (set-window-dedicated-p (selected-window) 'calendar)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
90 (set-window-dedicated-p
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
91 (display-buffer
|
12060
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
92 (if (not (memq 'fancy-diary-display diary-display-hook))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
93 (get-file-buffer diary-file)
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
94 (if (not (bufferp (get-buffer fancy-diary-buffer)))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
95 (make-fancy-diary-buffer))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
96 fancy-diary-buffer))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
97 'diary))))))
|
12060
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
98
|
24890
|
99 (defun calendar-only-one-frame-setup (&optional arg)
|
|
100 "Start calendar and display it in a dedicated frame."
|
37431
|
101 (if (not (display-multi-frame-p))
|
24890
|
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) 'calendar))))))
|
|
117
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
118 (defun calendar-two-frame-setup (&optional arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
119 "Start calendar and diary in separate, dedicated frames."
|
37431
|
120 (if (not (display-multi-frame-p))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
121 (calendar-basic-setup arg)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
122 (if (frame-live-p calendar-frame) (delete-frame calendar-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
123 (if (frame-live-p diary-frame) (delete-frame diary-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
124 (let ((pop-up-windows nil)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
125 (view-diary-entries-initially nil)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
126 (special-display-buffer-names nil))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
127 (save-window-excursion
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
128 (save-excursion (calendar-basic-setup arg))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
129 (setq calendar-frame (make-frame calendar-frame-parameters))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
130 (run-hooks 'calendar-after-frame-setup-hooks)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
131 (select-frame calendar-frame)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
132 (if (eq 'icon (cdr (assoc 'visibility
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
133 (frame-parameters calendar-frame))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
134 (iconify-or-deiconify-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
135 (display-buffer calendar-buffer)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
136 (set-window-dedicated-p (selected-window) 'calendar)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
137 (setq diary-frame (make-frame diary-frame-parameters))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
138 (run-hooks 'calendar-after-frame-setup-hooks)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
139 (select-frame diary-frame)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
140 (if (eq 'icon (cdr (assoc 'visibility
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
141 (frame-parameters diary-frame))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
142 (iconify-or-deiconify-frame))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
143 (save-excursion (diary))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
144 (set-window-dedicated-p
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
145 (display-buffer
|
12060
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
146 (if (not (memq 'fancy-diary-display diary-display-hook))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
147 (get-file-buffer diary-file)
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
148 (if (not (bufferp (get-buffer fancy-diary-buffer)))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
149 (make-fancy-diary-buffer))
|
b163768a998f
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
Edward M. Reingold <reingold@emr.cs.iit.edu>
diff
changeset
|
150 fancy-diary-buffer))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
151 'diary)))))
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
152
|
24860
|
153 ;; Formerly (get-file-buffer diary-file) was added to the list here,
|
|
154 ;; but that isn't clean, and the value could even be nil.
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
155 (setq special-display-buffer-names
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
156 (append special-display-buffer-names
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
157 (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer
|
24860
|
158 fancy-diary-buffer
|
22262
|
159 other-calendars-buffer calendar-buffer)))
|
10088
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
160
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
161 (run-hooks 'cal-x-load-hook)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
162
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
163 (provide 'cal-x)
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
164
|
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff
changeset
|
165 ;;; cal-x.el ends here
|