1 ;;; cal-x.el --- calendar windows in dedicated frames in X
3 ;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;; 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 (defvar calendar-frame nil
"Frame in which to display the calendar.")
40 (defvar diary-frame nil
"Frame in which to display the diary.")
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.
49 Location and color should be set in .Xdefaults.")
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.
55 Location and color should be set in .Xdefaults.")
57 (defvar calendar-and-diary-frame-parameters
58 '((name .
"Calendar") (title .
"Calendar") (height .
28) (width .
80)
60 "Parameters of the frame that displays both the calendar and the diary.
61 Location and color should be set in .Xdefaults.")
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.")
67 (defun calendar-one-frame-setup (&optional arg
)
68 "Start calendar and display it in a dedicated frame together with the diary.
69 This 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
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
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))
97 (defun calendar-only-one-frame-setup (&optional arg
)
98 "Start calendar and display it in a dedicated frame.
99 This 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
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
))))))
118 (defun calendar-two-frame-setup (&optional arg
)
119 "Start calendar and diary in separate, dedicated frames.
120 This 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
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))
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
161 other-calendars-buffer calendar-buffer
)))
163 (run-hooks 'cal-x-load-hook
)
167 ;;; arch-tag: c6dbddca-ae84-442d-87fc-244b76e38e17
168 ;;; cal-x.el ends here