1 ;;; cal-x.el --- calendar windows in dedicated frames in X
3 ;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2008 Free Software Foundation, Inc.
6 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
7 ;; Edward M. Reingold <reingold@cs.uiuc.edu>
8 ;; Maintainer: Glenn Morris <rgm@gnu.org>
10 ;; Human-Keywords: calendar, dedicated frames, X Window System
12 ;; This file is part of GNU Emacs.
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 3, or (at your option)
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.
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.
31 ;; This collection of functions implements dedicated frames in X for
38 (defcustom diary-frame-parameters
39 '((name .
"Diary") (title .
"Diary") (height .
10) (width .
80)
40 (unsplittable . t
) (minibuffer . nil
))
41 "Parameters of the diary frame, if the diary is in its own frame.
42 Location and color should be set in .Xdefaults."
46 (defcustom calendar-frame-parameters
47 '((name .
"Calendar") (title .
"Calendar") (minibuffer . nil
)
48 (height .
10) (width .
80) (unsplittable . t
) (vertical-scroll-bars . nil
))
49 "Parameters of the calendar frame, if the calendar is in a separate frame.
50 Location and color should be set in .Xdefaults."
54 (defcustom calendar-and-diary-frame-parameters
55 '((name .
"Calendar") (title .
"Calendar") (height .
28) (width .
80)
57 "Parameters of the frame that displays both the calendar and the diary.
58 Location and color should be set in .Xdefaults."
62 (defcustom calendar-after-frame-setup-hooks nil
63 "Hooks to be run just after setting up a calendar frame.
64 Can be used to change frame parameters, such as font, color, location, etc."
66 :group
'calendar-hooks
)
68 ;;; End of user options.
70 (defvar calendar-frame nil
71 "Frame in which to display the calendar.")
73 (defvar diary-frame nil
74 "Frame in which to display the diary.")
76 ;; calendar-basic-setup is called first, and will autoload diary-lib.
77 (declare-function make-fancy-diary-buffer
"diary-lib" nil
)
80 (defun calendar-one-frame-setup (&optional arg
)
81 "Start calendar and display it in a dedicated frame together with the diary.
82 This function requires a display capable of multiple frames, else
83 `calendar-basic-setup' is used instead. The optional argument ARG is
84 passed to `calendar-basic-setup'."
85 (if (not (display-multi-frame-p))
86 (calendar-basic-setup arg
)
87 (if (frame-live-p calendar-frame
) (delete-frame calendar-frame
))
88 (if (frame-live-p diary-frame
) (delete-frame diary-frame
))
89 (let ((special-display-buffer-names nil
)
90 (view-diary-entries-initially t
))
91 (save-window-excursion
94 (make-frame calendar-and-diary-frame-parameters
))
95 (run-hooks 'calendar-after-frame-setup-hooks
)
96 (select-frame calendar-frame
)
97 (if (eq 'icon
(cdr (assoc 'visibility
98 (frame-parameters calendar-frame
))))
99 (iconify-or-deiconify-frame))
100 (calendar-basic-setup arg
)
101 (set-window-dedicated-p (selected-window) t
)
102 (set-window-dedicated-p
104 (if (not (memq 'fancy-diary-display diary-display-hook
))
105 (get-file-buffer diary-file
)
106 (if (not (bufferp (get-buffer fancy-diary-buffer
)))
107 (make-fancy-diary-buffer))
112 (defun calendar-only-one-frame-setup (&optional arg
)
113 "Start calendar and display it in a dedicated frame.
114 This function requires a display capable of multiple frames, else
115 `calendar-basic-setup' is used instead. The optional argument
116 ARG is passed to `calendar-basic-setup'"
117 (if (not (display-multi-frame-p))
118 (calendar-basic-setup arg
)
119 (if (frame-live-p calendar-frame
) (delete-frame calendar-frame
))
120 (let ((special-display-buffer-names nil
)
121 (view-diary-entries-initially nil
))
122 (save-window-excursion
125 (make-frame calendar-frame-parameters
))
126 (run-hooks 'calendar-after-frame-setup-hooks
)
127 (select-frame calendar-frame
)
128 (if (eq 'icon
(cdr (assoc 'visibility
129 (frame-parameters calendar-frame
))))
130 (iconify-or-deiconify-frame))
131 (calendar-basic-setup arg
)
132 (set-window-dedicated-p (selected-window) t
))))))
135 (defun calendar-two-frame-setup (&optional arg
)
136 "Start calendar and diary in separate, dedicated frames.
137 This function requires a display capable of multiple frames, else
138 `calendar-basic-setup' is used instead. The optional argument
139 ARG is passed to `calendar-basic-setup'"
140 (if (not (display-multi-frame-p))
141 (calendar-basic-setup arg
)
142 (if (frame-live-p calendar-frame
) (delete-frame calendar-frame
))
143 (if (frame-live-p diary-frame
) (delete-frame diary-frame
))
144 (let ((pop-up-windows nil
)
145 (view-diary-entries-initially nil
)
146 (special-display-buffer-names nil
))
147 (save-window-excursion
148 (save-excursion (calendar-basic-setup arg
))
149 (setq calendar-frame
(make-frame calendar-frame-parameters
))
150 (run-hooks 'calendar-after-frame-setup-hooks
)
151 (select-frame calendar-frame
)
152 (if (eq 'icon
(cdr (assoc 'visibility
153 (frame-parameters calendar-frame
))))
154 (iconify-or-deiconify-frame))
155 (display-buffer calendar-buffer
)
156 (set-window-dedicated-p (selected-window) t
)
157 (setq diary-frame
(make-frame diary-frame-parameters
))
158 (run-hooks 'calendar-after-frame-setup-hooks
)
159 (select-frame diary-frame
)
160 (if (eq 'icon
(cdr (assoc 'visibility
161 (frame-parameters diary-frame
))))
162 (iconify-or-deiconify-frame))
163 (save-excursion (diary))
164 (set-window-dedicated-p
166 (if (not (memq 'fancy-diary-display diary-display-hook
))
167 (get-file-buffer diary-file
)
168 (if (not (bufferp (get-buffer fancy-diary-buffer
)))
169 (make-fancy-diary-buffer))
173 ;; Formerly (get-file-buffer diary-file) was added to the list here,
174 ;; but that isn't clean, and the value could even be nil.
175 (setq special-display-buffer-names
176 (append special-display-buffer-names
177 (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer
179 other-calendars-buffer calendar-buffer
)))
181 (run-hooks 'cal-x-load-hook
)
186 ;; generated-autoload-file: "cal-loaddefs.el"
189 ;; arch-tag: c6dbddca-ae84-442d-87fc-244b76e38e17
190 ;;; cal-x.el ends here