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