calendar-mode-line-format
calendar-mode-line-format is a variable defined in `
calendar.el
'.
Its value is shown
below.
- This variable may be risky if used as a file-local variable.
Documentation:
If non-nil, the mode line of the calendar buffer.
This is a list of items that evaluate to strings. The elements
are evaluated and concatenated, evenly separated by blanks.
During evaluation, the variable `date' is available as the date
nearest the cursor (or today's date if that fails). To update
the mode-line as the cursor moves, add
`calendar-update-mode-line' to `calendar-move-hook'.
If nil, do not modify the mode line at all.
Here is an example that has the Hebrew date, the day number/days
remaining in the year, and the ISO week/year numbers:
(list
""
'(calendar-hebrew-date-string date)
'(let* ((year (calendar-extract-year date))
(d (calendar-day-number date))
(days-remaining
(- (calendar-day-number (list 12 31 year)) d)))
(format "%d/%d" d days-remaining))
'(let* ((d (calendar-absolute-from-gregorian date))
(iso-date (calendar-iso-from-absolute d)))
(format "ISO week %d of %d"
(calendar-extract-month iso-date)
(calendar-extract-year iso-date)))
""))
You can customize this variable.
Value:
(#("<" 0 1
(keymap
(keymap
(mode-line keymap
(mouse-1 . calendar-scroll-right)))
mouse-face mode-line-highlight help-echo "mouse-1: previous month"))
"Calendar"
#("? info / o other / . today" 0 6
(help-echo "mouse-1: read Info on Calendar" mouse-face mode-line-highlight keymap
(keymap
(mode-line keymap
(mouse-1 . calendar-goto-info-node))))
9 16
(help-echo "mouse-1: choose another month" mouse-face mode-line-highlight keymap
(keymap
(mode-line keymap
(mouse-1 . calendar-other-month))))
19 26
(help-echo "mouse-1: go to today's date" mouse-face mode-line-highlight keymap
(keymap
(mode-line keymap
(mouse-1 . calendar-goto-today)))))
(calendar-date-string
(calendar-current-date)
t)
#(">" 0 1
(keymap
(keymap
(mode-line keymap
(mouse-1 . calendar-scroll-left)))
mouse-face mode-line-highlight help-echo "mouse-1: next month")))