1;;; cal-x.el --- calendar windows in dedicated frames in X 2 3;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007 4;; Free Software Foundation, Inc. 5 6;; Author: Michael Kifer <kifer@cs.sunysb.edu> 7;; Edward M. Reingold <reingold@cs.uiuc.edu> 8;; Maintainer: Glenn Morris <rgm@gnu.org> 9;; Keywords: calendar 10;; Human-Keywords: calendar, dedicated frames, X Window System 11 12;; This file is part of GNU Emacs. 13 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 2, or (at your option) 17;; any later version. 18 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. 23 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. 28 29;;; Commentary: 30 31;; This collection of functions implements dedicated frames in X for 32;; calendar.el. 33 34;;; Code: 35 36(require 'calendar) 37 38(defvar calendar-frame nil "Frame in which to display the calendar.") 39 40(defvar diary-frame nil "Frame in which to display the diary.") 41 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. 49Location and color should be set in .Xdefaults.") 50 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. 55Location and color should be set in .Xdefaults.") 56 57(defvar calendar-and-diary-frame-parameters 58 '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80) 59 (minibuffer . nil)) 60 "Parameters of the frame that displays both the calendar and the diary. 61Location and color should be set in .Xdefaults.") 62 63(defvar calendar-after-frame-setup-hooks nil 64 "Hooks to be run just after setting up a calendar frame. 65Can be used to change frame parameters, such as font, color, location, etc.") 66 67(defun calendar-one-frame-setup (&optional arg) 68 "Start calendar and display it in a dedicated frame together with the diary. 69This 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 78 (save-excursion 79 (setq calendar-frame 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 89 (display-buffer 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)) 94 fancy-diary-buffer)) 95 t)))))) 96 97(defun calendar-only-one-frame-setup (&optional arg) 98 "Start calendar and display it in a dedicated frame. 99This 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 107 (save-excursion 108 (setq calendar-frame 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)))))) 117 118(defun calendar-two-frame-setup (&optional arg) 119 "Start calendar and diary in separate, dedicated frames. 120This 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 147 (display-buffer 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)) 152 fancy-diary-buffer)) 153 t))))) 154 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 160 fancy-diary-buffer 161 other-calendars-buffer calendar-buffer))) 162 163(run-hooks 'cal-x-load-hook) 164 165(provide 'cal-x) 166 167;;; arch-tag: c6dbddca-ae84-442d-87fc-244b76e38e17 168;;; cal-x.el ends here 169