Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
appt.elc	18.08 KB	-rw-r--r--
cal-bahai.elc	12.95 KB	-rw-r--r--
cal-china.elc	31.28 KB	-rw-r--r--
cal-coptic.elc	9.21 KB	-rw-r--r--
cal-dst.elc	17.74 KB	-rw-r--r--
cal-french.elc	9.24 KB	-rw-r--r--
cal-hebrew.elc	48.6 KB	-rw-r--r--
cal-html.elc	16.8 KB	-rw-r--r--
cal-islam.elc	13.12 KB	-rw-r--r--
cal-iso.elc	6.82 KB	-rw-r--r--
cal-julian.elc	7.3 KB	-rw-r--r--
cal-loaddefs.el	30.7 KB	-rw-r--r--
cal-mayan.elc	18.6 KB	-rw-r--r--
cal-menu.elc	9.79 KB	-rw-r--r--
cal-move.elc	14.58 KB	-rw-r--r--
cal-persia.elc	6.65 KB	-rw-r--r--
cal-tex.elc	75.79 KB	-rw-r--r--
cal-x.elc	4.45 KB	-rw-r--r--
calendar.elc	98.48 KB	-rw-r--r--
diary-lib.elc	103.09 KB	-rw-r--r--
diary-loaddefs.el	10.61 KB	-rw-r--r--
hol-loaddefs.el	5.11 KB	-rw-r--r--
holidays.elc	32.73 KB	-rw-r--r--
icalendar.elc	58.07 KB	-rw-r--r--
iso8601.elc	8.69 KB	-rw-r--r--
lunar.elc	12.5 KB	-rw-r--r--
parse-time.elc	5.46 KB	-rw-r--r--
solar.elc	38.31 KB	-rw-r--r--
time-date.elc	14.26 KB	-rw-r--r--
timeclock.elc	46.18 KB	-rw-r--r--
todo-mode.elc	195.44 KB	-rw-r--r--

Code Editor : cal-menu.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'calendar)
#@46 Key map for "Sun/Moon" menu in the calendar.
(defconst cal-menu-sunmoon-menu '("Sun/Moon" ["Lunar Phases" calendar-lunar-phases] ["Sunrise/sunset for cursor date" calendar-sunrise-sunset] ["Sunrise/sunset for cursor month" calendar-sunrise-sunset-month]) (#$ . 428))
#@43 Key map for "Diary" menu in the calendar.
(defconst cal-menu-diary-menu '("Diary" ["Other File" diary-view-other-diary-entries] ["Cursor Date" diary-view-entries] ["Mark All" diary-mark-entries] ["Show All" diary-show-all-entries] ["Insert Diary Entry" diary-insert-entry] ["Insert Weekly" diary-insert-weekly-entry] ["Insert Monthly" diary-insert-monthly-entry] ["Insert Yearly" diary-insert-yearly-entry] ["Insert Anniversary" diary-insert-anniversary-entry] ["Insert Block" diary-insert-block-entry] ["Insert Cyclic" diary-insert-cyclic-entry] ("Insert Bahá’í" ["One time" diary-bahai-insert-entry] ["Monthly" diary-bahai-insert-monthly-entry] ["Yearly" diary-bahai-insert-yearly-entry]) ("Insert Chinese" ["One time" diary-chinese-insert-entry] ["Monthly" diary-chinese-insert-monthly-entry] ["Yearly" diary-chinese-insert-yearly-entry] ["Anniversary" diary-chinese-insert-anniversary-entry]) ("Insert Islamic" ["One time" diary-islamic-insert-entry] ["Monthly" diary-islamic-insert-monthly-entry] ["Yearly" diary-islamic-insert-yearly-entry]) ("Insert Hebrew" ["One time" diary-hebrew-insert-entry] ["Monthly" diary-hebrew-insert-monthly-entry] ["Yearly" diary-hebrew-insert-yearly-entry])) (#$ . 701))
#@76 Return a string suffix for the "Window" entry in `cal-menu-holidays-menu'.
(defalias 'cal-menu-holiday-window-suffix #[nil "\302\303!\302\304!\305\306\307	@\310\"	AAU\203�\311\202 �\305\312	A\"\307@\310\"A%*\207" [my2 my1 calendar-increment-month-cons -1 1 format "%s%s-%s, %d" calendar-month-name abbrev "" ", %d"] 7 (#$ . 1919)])
#@46 Key map for "Holidays" menu in the calendar.
(defconst cal-menu-holidays-menu (byte-code "\303\304\305\306\307\310\311\312\313	\nW\2038�\314\315\316	\"\317\311\320\321\322\323	\324ZEDF\325\315\326\322\323	\324ZEE$B	T\211\202
�*\237)\327\"BBBBB\207" [l i --dotimes-limit-- "Holidays" ["For Cursor Date -" calendar-cursor-holidays :suffix (calendar-date-string (calendar-cursor-to-date) t t) :visible (calendar-cursor-to-date)] ["For Window -" calendar-list-holidays :suffix (cal-menu-holiday-window-suffix)] ["For Today -" (calendar-cursor-holidays (calendar-current-date)) :suffix (calendar-date-string (calendar-current-date) t t)] "--" append nil 11 0 vector format "hol-year-%d" lambda (interactive) holiday-list + displayed-year 5 :label "For Year %d" ("--" ["Unmark Calendar" calendar-unmark] ["Mark Holidays" calendar-mark-holidays])] 17) (#$ . 2263))
#@42 Key map for "Goto" menu in the calendar.
(defconst cal-menu-goto-menu '("Goto" ["Today" calendar-goto-today] ["Beginning of Week" calendar-beginning-of-week] ["End of Week" calendar-end-of-week] ["Beginning of Month" calendar-beginning-of-month] ["End of Month" calendar-end-of-month] ["Beginning of Year" calendar-beginning-of-year] ["End of Year" calendar-end-of-year] ["Other Date" calendar-goto-date] ["Day of Year" calendar-goto-day-of-year] ["ISO Week" calendar-iso-goto-week] ["ISO Date" calendar-iso-goto-date] ["Astronomical Date" calendar-astro-goto-day-number] ["Hebrew Date" calendar-hebrew-goto-date] ["Persian Date" calendar-persian-goto-date] ["Bahá’í Date" calendar-bahai-goto-date] ["Islamic Date" calendar-islamic-goto-date] ["Julian Date" calendar-julian-goto-date] ["Chinese Date" calendar-chinese-goto-date] ["Coptic Date" calendar-coptic-goto-date] ["Ethiopic Date" calendar-ethiopic-goto-date] ("Mayan Date" ["Next Tzolkin" calendar-mayan-next-tzolkin-date] ["Previous Tzolkin" calendar-mayan-previous-tzolkin-date] ["Next Haab" calendar-mayan-next-haab-date] ["Previous Haab" calendar-mayan-previous-haab-date] ["Next Round" calendar-mayan-next-round-date] ["Previous Round" calendar-mayan-previous-round-date]) ["French Date" calendar-french-goto-date]) (#$ . 3134))
#@44 Key map for "Scroll" menu in the calendar.
(defconst cal-menu-scroll-menu '("Scroll" ["Scroll Commands" nil :help "Commands that scroll the visible window"] ["Forward 1 Month" calendar-scroll-left] ["Forward 3 Months" calendar-scroll-left-three-months] ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"] ["Backward 1 Month" calendar-scroll-right] ["Backward 3 Months" calendar-scroll-right-three-months] ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"] "--" ["Motion Commands" nil :help "Commands that move point"] ["Forward 1 Day" calendar-forward-day] ["Forward 1 Week" calendar-forward-week] ["Forward 1 Month" calendar-forward-month] ["Forward 1 Year" calendar-forward-year] ["Backward 1 Day" calendar-backward-day] ["Backward 1 Week" calendar-backward-week] ["Backward 1 Month" calendar-backward-month] ["Backward 1 Year" calendar-backward-year]) (#$ . 4436))
#@114 Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.
Signals an error if popups are unavailable.
(defalias 'cal-menu-x-popup-menu '(macro . #[(event title &rest body) "\303\304\305\306	\307\306	D\nBBEE\310BBB\207" [event title body if (display-popup-menus-p) x-popup-menu list append ((error "Popup menus are not available on this system"))] 9 (#$ . 5328)]))
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put cal-menu-x-popup-menu lisp-indent-function 2 autoload diary-list-entries "diary-lib"] 4)
#@206 Pop up menu of diary entries for mouse-selected date.
Use optional DATE and alternative file DIARY.  EVENT is the event
that invoked this command.  Shows holidays if `diary-show-holidays-flag'
is non-nil.
(defalias 'calendar-mouse-view-diary-entries #[(&optional date diary event) "\206�\306\307	\"\n\206�\307\310\311\312\313\314#\"\205\"�\315!\316\317\n\2031�\316\320\n\"\2022�\321\322!# \323 \203g�\324	 \325 C\310\326\"\205R�\327\211D
\203`�\310\330\331\325
\"\"\202a�\332$D\"\202j�\333\334!\211!\205t�\335!!.\207" [date event diary diary-file diary-list-include-blanks diary-entries calendar-cursor-to-date nil mapcar #[(x) "\301A@\302\"\207" [x split-string "\n"] 3] diary-list-entries 1 list-only calendar-check-holidays format "Diary entries%s for %s" " from %s" "" calendar-date-string display-popup-menus-p x-popup-menu append #[(x) "\301PC\207" [x "     "] 2] "--shadow-etched-in" list apply ("None") error "Popup menus are not available on this system" call-interactively diary-show-holidays-flag holidays title selection] 13 (#$ . 5863) "i\ni\ne"])
#@76 Pop up menu of diary entries from alternative file on mouse-selected date.
(defalias 'calendar-mouse-view-other-diary-entries #[(&optional event) "\302\303\304\"\305\306	\304\307$#\207" [event default-directory calendar-mouse-view-diary-entries calendar-cursor-to-date nil read-file-name "Enter diary file name: " t] 7 (#$ . 6957) "e"])
#@56 Convert date of last event to title suitable for MENU.
(defalias 'cal-menu-set-date-title #[(menu) "\303\304!\205*�\3051�\306\307\"0\202�\210\307\211\203$�\310\n\311	\312\307#\"\202)�\313\314!\210\307)\207" [last-input-event date menu derived-mode-p calendar-mode (error) calendar-cursor-to-date nil easy-menu-filter-return calendar-date-string t message "Not on a date!"] 7 (#$ . 7302)])
#@61 Pop up mouse menu for selected date in the calendar window.
(defvar cal-menu-context-mouse-menu nil (#$ . 7701))
(easy-menu-do-define 'cal-menu-context-mouse-menu nil "Pop up mouse menu for selected date in the calendar window." '("cal-menu-context-mouse-menu" :filter cal-menu-set-date-title "--" ["Holidays" calendar-cursor-holidays] ["Mark date" calendar-set-mark] ["Sunrise/sunset" calendar-sunrise-sunset] ["Other calendars" calendar-print-other-dates] ("Prepare LaTeX buffer" ["Daily (1 page)" cal-tex-cursor-day] ["Weekly (1 page, with hours)" cal-tex-cursor-week] ["Weekly (2 pages, with hours)" cal-tex-cursor-week2] ["Weekly (1 page, no hours)" cal-tex-cursor-week-iso] ["Weekly (1 page, with hours, different style)" cal-tex-cursor-week-monday] ["Weekly (2 pages, no hours)" cal-tex-cursor-week2-summary] ["Monthly" cal-tex-cursor-month] ["Monthly (landscape)" cal-tex-cursor-month-landscape] ["Yearly" cal-tex-cursor-year] ["Yearly (landscape)" cal-tex-cursor-year-landscape] ("Filofax styles" ["Filofax Daily (one-day-per-page)" cal-tex-cursor-filofax-daily] ["Filofax Weekly (2-weeks-at-a-glance)" cal-tex-cursor-filofax-2week] ["Filofax Weekly (week-at-a-glance)" cal-tex-cursor-filofax-week] ["Filofax Yearly" cal-tex-cursor-filofax-year])) ("Write HTML calendar" ["For selected month" cal-html-cursor-month] ["For selected year" cal-html-cursor-year]) ["Diary entries" calendar-mouse-view-diary-entries :keys "d"] ["Insert diary entry" diary-insert-entry] ["Other diary file entries" calendar-mouse-view-other-diary-entries :keys "D"]))
#@72 Menu bound to a mouse event, not specific to the mouse-click location.
(defvar cal-menu-global-mouse-menu nil (#$ . 9261))
(byte-code "\300\301\302\303\304$\210\305\306!\207" [easy-menu-do-define cal-menu-global-mouse-menu nil "Menu bound to a mouse event, not specific to the mouse-click location." ("Calendar" ["Scroll forward" calendar-scroll-left-three-months] ["Scroll backward" calendar-scroll-right-three-months] ["Mark diary entries" diary-mark-entries] ["List holidays" calendar-list-holidays] ["Mark holidays" calendar-mark-holidays] ["Unmark" calendar-unmark] ["Lunar phases" calendar-lunar-phases] ["Sunrise times for month" calendar-sunrise-sunset-month] ["Show diary" diary-show-all-entries] ["Exit calendar" calendar-exit]) provide cal-menu] 5)

${this.title}

Code Editor : cal-menu.elc