mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(diary-frame-parameters, calendar-frame-parameters)

Browse Source 
(calendar-and-diary-frame-parameters): Fix custom type; add options.
(calendar-frame, diary-frame): Doc fixes.
(calendar-dedicate-diary, calendar-frame-1): Extract common code into
new functions.
(calendar-one-frame-setup, calendar-two-frame-setup): Doc fixes.
Use calendar-frame-1 and calendar-dedicate-diary.
(calendar-one-frame-setup): Also handle only-one-frame case.
(calendar-only-one-frame-setup): Doc fix.  Just call calendar-one-frame-setup.
This commit is contained in:
Glenn Morris 2008-03-17 02:38:26 +00:00
parent 1435831ffa
commit 2c080040fb
2 changed files with 107 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lisp/ChangeLog
View File

@ -1,3 +1,43 @@
2008-03-17 Glenn Morris <rgm@gnu.org>
* calendar/cal-x.el (diary-frame-parameters)
(calendar-frame-parameters, calendar-and-diary-frame-parameters):
Fix custom type; add options.
(calendar-frame, diary-frame): Doc fixes.
(calendar-dedicate-diary, calendar-frame-1): Extract common code into
new functions.
(calendar-one-frame-setup, calendar-two-frame-setup): Doc fixes.
Use calendar-frame-1 and calendar-dedicate-diary.
(calendar-one-frame-setup): Also handle only-one-frame case.
(calendar-only-one-frame-setup): Doc fix. Just call
calendar-one-frame-setup.
* calendar/diary-lib.el: Re-order some definitions before their use.
(nongregorian-diary-listing-hook, nongregorian-diary-marking-hook)
(diary-list-entries): Doc fixes.
(make-fancy-diary-display): Remove function.
* calendar/calendar.el (calendar-today-marker)
(initial-calendar-window-hook, today-visible-calendar-hook)
(today-invisible-calendar-hook, diary-file, calendar-basic-setup):
(calendar-star-date, calendar-mark-today): Doc fixes.
(today-visible-calendar-hook): Add options.
(calendar-in-read-only-buffer): New macro.
(calendar-basic-setup): Adapt for change in calendar-read-date.
Place holiday let inside if.
(calendar-day-name-array, calendar-month-name-array): Make defcustoms.
(calendar-read-date): Set day to 1 rather than nil in the NODAY case.
(calendar-print-other-dates): Use one let rather than many.
* calendar/calendar.el (calendar-in-read-only-buffer): New macro.
(calendar-print-other-dates):
* calendar/cal-hebrew.el (list-yahrzeit-dates):
* calendar/diary-lib.el (simple-diary-display, fancy-diary-display):
* calendar/holidays.el (calendar-list-holidays, list-holidays)
(calendar-cursor-holidays):
* calendar/lunar.el (calendar-phases-of-moon): Use
calendar-in-read-only-buffer to replace previous code and disable undo.
2008-03-16 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-edit-string): Use search-ring-yank-pointer

140
lisp/calendar/cal-x.el
View File

@ -39,16 +39,22 @@
'((name . "Diary") (title . "Diary") (height . 10) (width . 80)
(unsplittable . t) (minibuffer . nil))
"Parameters of the diary frame, if the diary is in its own frame.
Location and color should be set in .Xdefaults."
:type 'sexp
Location and color should be set in .Xdefaults." ; why?
:type 'alist
:options '((name string) (title string) (height integer) (width integer)
(unsplittable boolean) (minibuffer boolean)
(vertical-scroll-bars boolean))
:group 'calendar)
(defcustom calendar-frame-parameters
'((name . "Calendar") (title . "Calendar") (minibuffer . nil)
(height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil))
'((name . "Calendar") (title . "Calendar") (height . 10) (width . 80)
(unsplittable . t) (minibuffer . nil) (vertical-scroll-bars . nil))
"Parameters of the calendar frame, if the calendar is in a separate frame.
Location and color should be set in .Xdefaults."
:type 'sexp
:type 'alist
:options '((name string) (title string) (height integer) (width integer)
(unsplittable boolean) (minibuffer boolean)
(vertical-scroll-bars boolean))
:group 'calendar)
(defcustom calendar-and-diary-frame-parameters
@ -56,7 +62,10 @@ Location and color should be set in .Xdefaults."
(minibuffer . nil))
"Parameters of the frame that displays both the calendar and the diary.
Location and color should be set in .Xdefaults."
:type 'sexp
:type 'alist
:options '((name string) (title string) (height integer) (width integer)
(unsplittable boolean) (minibuffer boolean)
(vertical-scroll-bars boolean))
:group 'calendar)
(defcustom calendar-after-frame-setup-hooks nil
@ -68,75 +77,73 @@ Can be used to change frame parameters, such as font, color, location, etc."
;;; End of user options.
(defvar calendar-frame nil
"Frame in which to display the calendar.")
"Frame in which the calendar was last displayed.")
(defvar diary-frame nil
"Frame in which to display the diary.")
"Frame in which the diary was last displayed.")
(defun calendar-frame-1 (frame)
"Subroutine used by `calendar-one-frame-setup' etc."
(run-hooks 'calendar-after-frame-setup-hooks)
(select-frame frame)
(if (eq 'icon (cdr (assoc 'visibility (frame-parameters frame))))
(iconify-or-deiconify-frame)))
;; calendar-basic-setup is called first, and will autoload diary-lib.
(declare-function make-fancy-diary-buffer "diary-lib" nil)
(defun calendar-dedicate-diary ()
"Dedicate the window associated with the diary buffer."
(set-window-dedicated-p
(display-buffer
(if (not (memq 'fancy-diary-display diary-display-hook))
(get-file-buffer diary-file)
(or (buffer-live-p fancy-diary-buffer)
(make-fancy-diary-buffer))
fancy-diary-buffer))
t))
;;; FIXME ../../src/emacs -Q --eval "(setq calendar-setup 'calendar-only)" -f calendar
;;;###cal-autoload
(defun calendar-one-frame-setup (&optional arg)
"Start calendar and display it in a dedicated frame together with the diary.
This function requires a display capable of multiple frames, else
`calendar-basic-setup' is used instead. The optional argument ARG is
passed to `calendar-basic-setup'."
(defun calendar-one-frame-setup (&optional arg only)
"Start calendar and display it in a dedicated frame.
Also show the diary in that frame, unless ONLY is non-nil. The optional
argument ARG is passed to `calendar-basic-setup'. If the display
is not capable of multiple frames, `calendar-basic-setup' is all
that is used."
(if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
(if (frame-live-p diary-frame) (delete-frame diary-frame))
(unless only
(if (frame-live-p diary-frame) (delete-frame diary-frame)))
(let ((special-display-buffer-names nil)
(view-diary-entries-initially t))
(view-diary-entries-initially (not only)))
(save-window-excursion
(save-excursion
(setq calendar-frame
(make-frame calendar-and-diary-frame-parameters))
(run-hooks 'calendar-after-frame-setup-hooks)
(select-frame calendar-frame)
(if (eq 'icon (cdr (assoc 'visibility
(frame-parameters calendar-frame))))
(iconify-or-deiconify-frame))
(calendar-basic-setup arg)
(calendar-frame-1
(setq calendar-frame
(make-frame (if only
calendar-frame-parameters
calendar-and-diary-frame-parameters))))
(calendar-basic-setup arg) ; FIXME move?
;; FIXME display-buffer?
(set-window-dedicated-p (selected-window) t)
(set-window-dedicated-p
(display-buffer
(if (not (memq 'fancy-diary-display diary-display-hook))
(get-file-buffer diary-file)
(if (not (bufferp (get-buffer fancy-diary-buffer)))
(make-fancy-diary-buffer))
fancy-diary-buffer))
t))))))
(unless only (calendar-dedicate-diary)))))))
;;;###cal-autoload
(defun calendar-only-one-frame-setup (&optional arg)
"Start calendar and display it in a dedicated frame.
This function requires a display capable of multiple frames, else
`calendar-basic-setup' is used instead. The optional argument
ARG is passed to `calendar-basic-setup'."
(if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
(let ((special-display-buffer-names nil)
(view-diary-entries-initially nil))
(save-window-excursion
(save-excursion
(setq calendar-frame
(make-frame calendar-frame-parameters))
(run-hooks 'calendar-after-frame-setup-hooks)
(select-frame calendar-frame)
(if (eq 'icon (cdr (assoc 'visibility
(frame-parameters calendar-frame))))
(iconify-or-deiconify-frame))
(calendar-basic-setup arg)
(set-window-dedicated-p (selected-window) t))))))
The optional argument ARG is passed to `calendar-basic-setup'.
If the display is not capable of multiple frames, `calendar-basic-setup'
is all that is used."
(calendar-one-frame-setup arg t))
;;;###cal-autoload
(defun calendar-two-frame-setup (&optional arg)
"Start calendar and diary in separate, dedicated frames.
This function requires a display capable of multiple frames, else
`calendar-basic-setup' is used instead. The optional argument
ARG is passed to `calendar-basic-setup'."
The optional argument ARG is passed to `calendar-basic-setup'.
If the display is not capable of multiple frames, `calendar-basic-setup'
is all that is used."
(if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
@ -145,30 +152,17 @@ ARG is passed to `calendar-basic-setup'."
(view-diary-entries-initially nil)
(special-display-buffer-names nil))
(save-window-excursion
;; FIXME why does this do things in a slightly different order
;; to calendar-one-frame-setup?
(save-excursion (calendar-basic-setup arg))
(setq calendar-frame (make-frame calendar-frame-parameters))
(run-hooks 'calendar-after-frame-setup-hooks)
(select-frame calendar-frame)
(if (eq 'icon (cdr (assoc 'visibility
(frame-parameters calendar-frame))))
(iconify-or-deiconify-frame))
(calendar-frame-1
(setq calendar-frame (make-frame calendar-frame-parameters)))
(display-buffer calendar-buffer)
(set-window-dedicated-p (selected-window) t)
(setq diary-frame (make-frame diary-frame-parameters))
(run-hooks 'calendar-after-frame-setup-hooks)
(select-frame diary-frame)
(if (eq 'icon (cdr (assoc 'visibility
(frame-parameters diary-frame))))
(iconify-or-deiconify-frame))
(calendar-frame-1
(setq diary-frame (make-frame diary-frame-parameters)))
(save-excursion (diary))
(set-window-dedicated-p
(display-buffer
(if (not (memq 'fancy-diary-display diary-display-hook))
(get-file-buffer diary-file)
(if (not (bufferp (get-buffer fancy-diary-buffer)))
(make-fancy-diary-buffer))
fancy-diary-buffer))
t)))))
(calendar-dedicate-diary)))))
;; Formerly (get-file-buffer diary-file) was added to the list here,
;; but that isn't clean, and the value could even be nil.