42 |
(defvar calendar-frame nil "Frame in which to display the calendar.") |
(defvar calendar-frame nil "Frame in which to display the calendar.") |
43 |
|
|
44 |
(defvar diary-frame nil "Frame in which to display the diary.") |
(defvar diary-frame nil "Frame in which to display the diary.") |
45 |
|
|
46 |
;; This should not specify the font. That's up to the user. |
;; This should not specify the font. That's up to the user. |
47 |
;; Certainly it should not specify auto-lower and auto-raise |
;; Certainly it should not specify auto-lower and auto-raise |
48 |
;; since most users won't like that. |
;; since most users won't like that. |
51 |
(unsplittable . t) (minibuffer . nil)) |
(unsplittable . t) (minibuffer . nil)) |
52 |
"Parameters of the diary frame, if the diary is in its own frame. |
"Parameters of the diary frame, if the diary is in its own frame. |
53 |
Location and color should be set in .Xdefaults.") |
Location and color should be set in .Xdefaults.") |
54 |
|
|
55 |
(defvar calendar-frame-parameters |
(defvar calendar-frame-parameters |
56 |
'((name . "Calendar") (title . "Calendar") (minibuffer . nil) |
'((name . "Calendar") (title . "Calendar") (minibuffer . nil) |
57 |
(height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil)) |
(height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil)) |
63 |
(minibuffer . nil)) |
(minibuffer . nil)) |
64 |
"Parameters of the frame that displays both the calendar and the diary. |
"Parameters of the frame that displays both the calendar and the diary. |
65 |
Location and color should be set in .Xdefaults.") |
Location and color should be set in .Xdefaults.") |
66 |
|
|
67 |
(defvar calendar-after-frame-setup-hooks nil |
(defvar calendar-after-frame-setup-hooks nil |
68 |
"Hooks to be run just after setting up a calendar frame. |
"Hooks to be run just after setting up a calendar frame. |
69 |
Can be used to change frame parameters, such as font, color, location, etc.") |
Can be used to change frame parameters, such as font, color, location, etc.") |
70 |
|
|
71 |
(defun calendar-one-frame-setup (&optional arg) |
(defun calendar-one-frame-setup (&optional arg) |
72 |
"Start calendar and display it in a dedicated frame together with the diary." |
"Start calendar and display it in a dedicated frame together with the diary." |
73 |
(if (not (display-multi-frame-p)) |
(if (not (display-multi-frame-p)) |